大量使用DEC2BIN（）

Question

我試圖在Excel中將4503599627370495轉換爲二進制。 DEC2BIN（）返回#NUM！錯誤，因爲DEC2BIN無法處理這麼大的數字。

有關我如何能夠使其工作的任何想法？

Answer 1

見VBA張貼在這裏

' 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 

Answer 2

感謝名單JustinDavies - 這是我需要的，但如果通過了-ve數它進入一個死循環。我的修改：

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 

Answer 3

對於正數4,294,967,295，您可以使用此answer給出的公式。如果你需要更大的數字，他的答案可以延長。

Answer 4

=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) 

禮貌Taosique誰回答了重複Decimal to binary conversion for large numbers in Excel。