Wie binäre Zahlen mit VBA hinzufügen oder subtrahieren?

Question

Ich habe eine Daten von 5-Bit-Binärzahlen (10110, 10111, 01011, etc ..), die die Dateninformationen der übertragenen Bits in der Faser sind. Jetzt habe ich getan, dass ich binäre Zahlen addieren und subtrahieren muss, und diese sind in der Lautstärke hoch. So, wie ich bereits diese Daten in meinem Excel-Blatt habe, dachte ich über die Implementierung von VBA-Code zum Hinzufügen und Subtrahieren der Binärzahlen. Ich konnte keine Funktion finden, die 1 + 1 = 10 summiert, ich finde nur, dass 1 + 1 = 2. Auch, um zu subtrahieren, gibt es eine Methode der 1er und 2er Kompliment. Wenn es etwas gibt, das von VBA getan werden kann, bitte hilf mir. Ich habe versucht, mein Bestes zu geben, aber es summiert 1 + 1 = 2. Danke!

Answer 1

mit 5-Bit-Binärdateien in A1 und A2, in einer anderen Zelle eingeben:

=DEC2BIN(SUM(BIN2DEC(A1),BIN2DEC(A2))) 

Wie Sie sehen, ist VBA nicht erforderlich. Wenn Sie wirklich brauchen VBA dann:

Public Function BinSum(s1 As String, s2 As String) As String 
    With Application.WorksheetFunction 
     BinSum = .Dec2Bin(.Sum(.Bin2Dec(s1), .Bin2Dec(s2))) 
    End With 
End Function 

Answer 2

VBA

worksheetfunction.DEC2BIN(worksheetfunction.BIN2DEC("0011") + worksheetfunction.BIN2DEC("0011"))