Dezimal zu Binär-Konvertierung für großen zahlen in Excel

Ich habe einige große Nummer in einem excel-sheet und ich möchten, konvertieren Sie Sie in binäre zB
12345678
965321458
-12457896
Könnte mir jemand helfen, wie dies zu tun.
Danke.

Haben Sie versucht, die DEC2BIN Funktion?
Siehe stackoverflow.com/questions/22109116/...
DEC2BIN nicht in den Griff Zahl, die größer als 511.
user3103991, die Informationen in dem Kommentar oben von Taosique würde normalerweise erwartet werden, enthalten sein, die von sich selbst zu zeigen, einige Stand der Forschung Bemühung auf Ihrem Teil.
Mögliche Duplikate von DEC2BIN() mit großen zahlen

InformationsquelleAutor user3103991 | 2014-06-24

43

Wenn wir sprechen positive Zahl zwischen 0 und 2^32-1 können Sie diese Formel verwenden:
```
=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)
```
HINWEIS: =DEC2BIN() Funktion nicht umgehen können zahlen, die größer als 511 ist so, wie Sie sehen, meine Formel bricht Ihre Anzahl in vier 8-bit-Blöcken, wandelt Sie in das binäre format und dann verkettet die Ergebnisse.

Naja, theoretisch können Sie aber verlängern Sie diese Formel bis zu sechs 8-bit-Blöcken. Maximale Präzision, die Sie bekommen können in Excel ist 15 (fünfzehn) Dezimalstellen. Wenn Sie überschritten werden, nur die wichtigsten 15 Ziffern bleiben, der rest wird gerundet. I. e. wenn Sie 12345678901234567 Excel speichert es als 12345678901234500. Also da 2^48-1 ist 15 Ziffern lang die Anzahl der nicht abgerundete.

Dies ist ERSTAUNLICH und sehr geschätzt. Danke!!!!!! Und auch wichtiger Hinweis, SHAME ON you Microsoft...!

InformationsquelleAutor Taosique

Siehe VBA geschrieben hier

' 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

InformationsquelleAutor JustinJDavies

5

Ich habe gerade versucht die Formel oben, und festgestellt, dass Microsoft geschraubt bis die Funktion DEC2BIN in einer anderen Art und Weise hält, dass die Formel korrekt mit negativen zahlen. Intern, DEC2BIN verwendet ein zehn-bit-Ergebnis; führende Nullen werden gelöscht, aus dem text ergeben, es sei denn, der optionale parameter length wird verwendet, in welchem Fall die erforderliche Anzahl von führenden Nullen in die Zeichenkette. Aber hier ist der Haken: eine negative Zahl beginnt immer mit eins, so gibt es keine führenden Nullen zu sinken, so dass DEC2BIN wird immer zeigen alle zehn bits! So, DEC2BIN(-1,8), die zeigen sollte 11111111 (acht) wird stattdessen 1111111111 (ten.)

Dieses Problem zu beheben, verwenden Sie die RECHTE zu trimmen Sie jede acht-bit-chunk acht bits, so dumm wie das klingt.
```
=RIGHT(DEC2BIN(QUOTIENT(A1,256^3),8),8) & RIGHT(...
```
(Ich lese über VBA, und es nicht das gleiche problem haben, aber es sieht nicht wie es wird die Verneinung bei allen.)

InformationsquelleAutor Joe Avins
2

Hinzufügen einfacher zu Lesen, formatieren Taosique tolle Antwort, können Sie auch brechen Sie in Stücke von 4 bits mit Leerzeichen dazwischen, obwohl die Formel wächst ein monster sein:
```
=DEC2BIN(MOD(QUOTIENT($A$1,16^7),16),4)&" "&DEC2BIN(MOD(QUOTIENT($A$1,16^6),16),4)&" "&DEC2BIN(MOD(QUOTIENT($A$1,16^5),16),4)&" "&DEC2BIN(MOD(QUOTIENT($A$1,16^4),16),4)&" "&DEC2BIN(MOD(QUOTIENT($A$1,16^3),16),4)&" "&DEC2BIN(MOD(QUOTIENT($A$1,16^2),16),4)&" "&DEC2BIN(MOD(QUOTIENT($A$1,16^1),16),4)&" "&DEC2BIN(MOD(QUOTIENT($A$1,16^0),16),4)

1101 0100 1111 0110 0011 0001 0000 0001
```
Natürlich, können Sie einfach die Rechte Hälfte, wenn Sie gerade interessiert sind, an 16 bit-zahlen:
```
=DEC2BIN(MOD(QUOTIENT($A$1,16^3),16),4)&" "&DEC2BIN(MOD(QUOTIENT($A$1,16^2),16),4)&" "&DEC2BIN(MOD(QUOTIENT($A$1,16^1),16),4)&" "&DEC2BIN(MOD(QUOTIENT($A$1,16^0),16),4)

0011 0001 0000 0001
```
Es ist einfacher und klarer zu Verwendung der Excel-Funktion TEXT: =TEXT( DEC2BIN(MOD(QUOTIENT(A1,256^3),256),8) & DEC2BIN(MOD(QUOTIENT(A1,256^2),256),8) & DEC2BIN(MOD(QUOTIENT(A1,256^1),256),8) & DEC2BIN(MOD(QUOTIENT(A1,256^0),256),8), "00000 0000 000 00 0") Dies macht es auch leicht zu brechen es in verschiedenen Längen-Blöcken getrennt durch Leerzeichen einfach indem Sie die Räume, in denen Sie wollen, dass Sie in der text-string. Zum Beispiel, wenn A1 enthält 14,163 die text-Zeichenfolge "00000 0000 000 00 0" geben würde, 01101 1101 010 01 1
Kann nicht scheinen, um die Formatierung im obigen post... ich würde gerne schauen, wie der Kommentar sofort oben. Kann mir jemand sagen wie?

InformationsquelleAutor Nate

Jemand finden binären shift Operationen mehr klar und relevant hier

=DEC2BIN(BITRSHIFT($A$1,24),8) & DEC2BIN(MOD(BITRSHIFT($A$1,16),256),8) & DEC2BIN(MOD(BITRSHIFT($A$1,8),256),8) & DEC2BIN(MOD($A$1,256),8)

Diese Formel ist für 32-bit-Werte

InformationsquelleAutor Geom

1

Diese vba-Funktion löst das problem mit der binären Umrechnung von zahlen, die größer als 511, die nicht getan werden kann mit WorksheetFunction.dec2bin.

Der code nutzt die WorksheetFunction.dec2bin-Funktion indem Sie es in Stücke.
```
Function decimal2binary(ByVal decimal2convert As Long) As String
Dim rest As Long
If decimal2convert = 0 Then
   decimal2binary = "0"
   Exit Function
End If
Do While decimal2convert > 0
   rest = decimal2convert Mod 512
   decimal2binary = Right("000000000" + WorksheetFunction.Dec2Bin(rest), 9) + decimal2binary
   decimal2convert = (decimal2convert - rest) / 512
Loop
decimal2binary = Abs(decimal2binary)
End Function
```
Willkommen ALSO! Code-nur die Antworten sind entmutigt, weil Sie keinen Einblick in, wie das problem gelöst wurde. Bitte aktualisieren Sie Ihre Lösung um eine Erklärung, wie Ihr code löst das problem 🙂
danke für die Anregung! Ich veränderte meinen post.

InformationsquelleAutor Diego
0

Hier ist ein weiterer Weg. Es ist nicht mit einer einzigen Formel, aber ich habe versucht und umgewandelt, bis die Zahl 2,099,999,999,999. Meine erste Absicht war es, ein 51-bit-Zähler, aber irgendwie funktioniert es nicht mit zahlen über die, die ich erwähnt. Download
http://www.excelexperto.com/content/macros-production/contador-binario-de-51-bits/

Ich hoffe, es ist nützlich. Grüße.

InformationsquelleAutor Víctor Urbina

Während ich nicht schreiben, das für negative oder Dezimalzahlen, es sollte relativ einfach zu ändern. Dieses VBA-konvertiert alle super groß (oder nicht so groß, wenn Sie wollen, aber das war nicht der Punkt) dezimal bis zu der konvertiert Binär-Ergebnis mit bis zu 32767 digits (maximale string-Länge in VBA).

Geben Sie dezimal in Zelle "A1" als string, das Ergebnis in "B1" als string.

Dim NBN As String

Dim Bin As String

5 Big = Range("A1")

AA = Len(Big)

For XX = 1 To AA

L1 = Mid(Big, XX, 1) + CRY

CRY = 0

If L1 = 0 Then

FN = "0"

GoTo 10

End If

If Int(L1 / 2) = L1 / 2 Then

FN = L1 / 2

GoTo 10

End If

If Int(L1 / 2) <> L1 / 2 Then

FN = Int(L1 / 2)

CRY = 10

GoTo 10

End If

10 NBN = NBN & FN

Next XX

If Left(NBN, 1) = "0" Then

NBN = Right(NBN, (Len(NBN) - 1))

End If

If CRY = 10 Then Bin = "1" & Bin Else Bin = "0" & Bin

Range("A1") = NBN

Range("A2") = Bin

If Len(NBN) > 0 Then

NBN = ""

CRY = 0

GoTo 5

End If

InformationsquelleAutor jbs3141

-2

Gibt es vielleicht eine einfache Lösung. Ich habe mehrere 4,2 Milliarden Zellen, die tatsächlich eine negative Zweier-Komplement-und dies funktioniert um den richtigen Wert:
=SUMME(2^31-(A1-2^31))

InformationsquelleAutor howy61

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.