À l'aide de DEC2BIN() avec un grand nombre

Je suis en train de convertir 4503599627370495 en binaire dans Excel. DEC2BIN() renvoie l'erreur #NOMBRE! erreur, car DEC2BIN ne peut pas gérer un tel nombre.

Des idées sur comment je pourrais être en mesure de le faire fonctionner?

Dans le cas général, pas facilement. Sur la feuille de calcul, Excel va stocker ce que 4503599627370490 (le dernier chiffre est perdu). Vous pouvez l'enregistrer en tant que texte, mais la conversion de BIN devient laid. Tushar Mehta a un grand page qui va dans le détail de la manipulation d'un grand nombre de mathématiques en VBA.
dailydoseofexcel.com/archives/2005/12/02/decimal-to-binary
Voir cette réponse: stackoverflow.com/a/24388218/2396122

OriginalL'auteur user3367131 | 2014-03-01

  1. 6

    Merci JustinDavies - c'était juste ce dont j'avais besoin, mais il est entré dans une boucle sans fin si elle est adoptée, a-ve nombre. Ma modification:

    Function DecToBin(ByVal DecimalIn As Variant, Optional NumberOfBits As Variant) As String
  DecToBin = ""
  DecimalIn = CDec(DecimalIn)
  If DecimalIn < 0 Then
    DecToBin = "Error - Number negative"
    Exit Function
  End If
  Do While DecimalIn <> 0
    DecToBin = Trim$(Str$(DecimalIn - 2 * Int(DecimalIn / 2))) & DecToBin
    DecimalIn = Int(DecimalIn / 2)
  Loop
  If Not IsMissing(NumberOfBits) Then
    If Len(DecToBin) > NumberOfBits Then
      DecToBin = "Error - Number too large for bit size"
    Else
      DecToBin = Right$(String$(NumberOfBits, "0") & _
      DecToBin, NumberOfBits)
    End If
  End If
End Function

    OriginalL'auteur AndruWitta

  2. 4

    Voir VBA posté ici

    ' The DecimalIn argument is limited to 79228162514264337593543950245
' (approximately 96-bits) - large numerical values must be entered
' as a String value to prevent conversion to scientific notation. Then
' optional NumberOfBits allows you to zero-fill the front of smaller
' values in order to return values up to a desired bit level.
Function DecToBin(ByVal DecimalIn As Variant, Optional NumberOfBits As Variant) As String
  DecToBin = ""
  DecimalIn = CDec(DecimalIn)
  Do While DecimalIn <> 0
    DecToBin = Trim$(Str$(DecimalIn - 2 * Int(DecimalIn / 2))) & DecToBin
    DecimalIn = Int(DecimalIn / 2)
  Loop
  If Not IsMissing(NumberOfBits) Then
    If Len(DecToBin) > NumberOfBits Then
      DecToBin = "Error - Number too large for bit size"
    Else
      DecToBin = Right$(String$(NumberOfBits, "0") & _
      DecToBin, NumberOfBits)
    End If
  End If
End Function
    Notez cette réponse a également été fournie à stackoverflow.com/questions/24387894/...

    OriginalL'auteur JustinJDavies

  3. 2
    =DEC2BIN(MOD(QUOTIENT($A$1,256^3),256),8)&DEC2BIN(MOD(QUOTIENT($A$1,256^2),256),8)&DEC2BIN(MOD(QUOTIENT($A$1,256^1),256),8)&DEC2BIN(MOD(QUOTIENT($A$1,256^0),256),8)

    courtoisie de Taosique qui répond à la double Décimal à binaire de conversion pour les grands nombres dans Excel .

    OriginalL'auteur zylstra

  4. 0

    J'ai besoin d'une fonction VBA convertir Excel entiers décimaux en binaire car MS a échoué moi, encore une fois. Je suis venu avec la suite, mais j'ai dû accepter une chaîne de & les zéros de la sortie, qui était OK pour moi. Il utilise le logarithme de base 2, qui peut être unique (ou pas?) et fonctionne pour tous les entiers positifs.

    Function Dec_Bin(dx As Integer) As String
    Dim x As Integer
    Dim y As Long
    Dim z As Integer
    Dim zz As Double
    Dim ch As String
    Dim str As String, s1 As String
    Dim lead As Boolean

    ch = String(15, "0")
'    Stop
    zz = Log(dx) /Log(2)
    z = Fix(zz)
    y = dx - 2 ^ z
    z = 15 - z
    Mid(ch, z, 1) = "1"
    While y > 0
        zz = Log(y) /Log(2)
        z = Fix(zz)
        y = y - 2 ^ z
        z = 15 - z
        Mid(ch, z, 1) = "1"
        Wend

    ch = ch & "B"
    Dec_Bin = ch
End Function

    OriginalL'auteur Jerry Hargis

  5. 0

    Cette fonction convertir aussi grand qu'un lit Double.
    Je n'ai pas essayer avec des valeurs négatives, bien que.

    Function cn(ByVal n As Double, ByVal s As Double)
  'n the number to convert
  's the numberic system to convert to.
  'This function can convert to binary all the way to the length of the
  'digits string and all in between.

  Dim x As Double  'The exponent without decimals
  Dim xx As Double 'The exponent with decimals, if any
  Dim r As String  'The return string
  Dim p As Integer 'Posistion of the digit in the return string
  Dim L As Long    'Length of the string return string
  Dim d            '(d+1) because mid() does not accept 0.
                   'The position of the digit in the digits string.
 Dim v As Double   'The numeric value of the position 
                   'of the digit in the return string
  Dim digits As String
  digits = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Start:

  If n > 0 Then
     xx = Log(n) /Log(s)
     x = Int(xx)
  End If
  p = x + 1
  If r = "" Then
    r = String(p, "0")
    L = p
  End If
  v = s ^ x
  d = n \ v
  Mid(r, L - x, 1) = Mid(digits, d + 1, 1)
  n = n - (v * d)
  If n <> 0 Then GoTo Start
  cn = r
End Function

    OriginalL'auteur Macrowriter