EXCEL XOR bits multiples

Bon j'ai deux cellules avec une chaîne de bits 0111010 et 0101011. Je veux XOR les deux ensemble, de sorte que la cellule serait 0010001.

Je sais que vous pouvez l'utiliser pour les valeurs booléennes

=OR(AND(A1,NOT(A2)),AND(A2,NOT(A1)))

mais il ne fonctionne pas pour une chaîne de bits.

source d'informationauteur James Van Boxtel

excel xor

24

Vous avez besoin d'utiliser VBA pour ce faire. Si vous ouvrez VBA, créez un nouveau Module et entrez la fonction
```
Public Function BITXOR(x As Long, y As Long)
    BITXOR = x Xor y
End Function
```
Vous pouvez ensuite utiliser la DEC2BIN et BIN2DEC pour convertir du binaire en décimal pour exécuter cette fonction. Par exemple:

La Cellule A1 = 0111010

La Cellule A2 = 0101011
```
=DEC2BIN(BITXOR(BIN2DEC(A1),BIN2DEC(A2)))
```

Vous pouvez faire cela avec VBA:

Public Function XOR_binary(b1, b2) As String
    Dim len_b1
    Dim len_b2
    Dim len_diff
    Dim i
    Dim bit1
    Dim bit2

    ' see if the two string are the same length. If not, add 0's to
    ' the beginning of the shorter string

    len_b1 = Len(b1)
    len_b2 = Len(b2)
    len_diff = len_b1 - len_b2

    Select Case len_diff
        Case Is < 0
            ' b2 is longer
            b1 = String(Abs(len_diff), "0") & b1
        Case Is = 0
            ' they're the same length
        Case Is > 0
            ' b1 is longer
            b2 = String(len_diff, "0") & b2
    End Select

    XOR_binary = ""

    For i = Len(b2) To 1 Step -1
        bit1 = CInt(Mid(b1, i, 1))
        bit2 = CInt(Mid(b2, i, 1))

        XOR_binary = CInt(bit1 Xor bit2) & XOR_binary
    Next i

End Function

Probablement pas la meilleure mise en œuvre, mais il fonctionne.

À l'aide de votre exemple, A3 contient:

=XOR_Binary(A1,A2)

La chaîne résultante aura le même nombre de bits que la chaîne la plus longue que vous transmettez.

3

Voici une solution sans l'aide de VBA:

=TEXT(SUMPRODUCT(MOD(INT(MID(A1,{1,2,3,4,5,6,7},1))+INT(MID(A2,{1,2,3,4,5,6,7},1)),2),{1000000,100000,10000,1000,100,10,1}),"0000000")

Ce calcule le bit à bit XOR à l'aide de SUMPRODUCT et TEXT pour la transformer en une chaîne de bits.

Remarque: cette formule nécessite à la fois des valeurs d'entrée pour avoir la longueur 7 (comme par votre propre exemple) et la sortie aussi ont une longueur de 7. Pour permettre l'entrée différentes longueurs, il suffit de mettre en œuvre les dispositions de la troncature et/ou de rembourrage.

Vous pouvez choisir d'utiliser une abréviation définitions:
- définir BitPositions comme ={1,2,3,4,5,6,7} (7 bits),
- définir BitStrings comme ={1000000,100000,10000,1000,100,10,1} (7 bits),
- définir BitFormat comme ="0000000" (7 bits),
ensuite votre formule peut être fait un peu plus lisible/court/nettoyeur:

=TEXT(SUMPRODUCT(MOD(INT(MID(A1,BitPositions,1))+INT(MID(A2,BitPositions,1)),2),BitStrings),BitFormat)

Cela rend également plus facile de travailler avec les plus grandes chaînes de bits, par exemple:
- définir BitPositions comme =ROW(INDIRECT("1:32")) (32 bits),
- définir BitStrings comme =10^(32-ROW(INDIRECT("1:32"))) (32 bits),
- définir BitFormat comme =REPT("0",32) (32 bits)
Si vous souhaitez mettre en œuvre NOT/OR/AND/etc. ensuite, vous pouvez obtenir votre inspiration à partir de ces les formules pour le décimal homologues; voici quelques explications plus approfondies pour XOR avec SUMPRODUCT bien qu'il utilise la virgule entrées.
0

=1-(A1<>0)+(A2<>0) pour chaque bit.

Vous pouvez le diviser en colonnes individuelles pour la formule ci-dessus en utilisant ceci:
=MID(A1|7|1)
=MID(A1|6|1)
=MID(A1|5|1)
=MID(A1|4|1)
=MID(A1|3|1)
=MID(A1|2|1)
=MID(A1|1|1)
...

"ce VBA renvoie un double qui doit être formatée sur la feuille de calcul.

Option Explicit
Public Function MYXOR(r1 As Range, r2 As Range) As Double
'r1 and r2 are expected as HEX; for example, 
'DEC2HEX(CODE("B")) returns ASCII of "B" as HEX
On Error GoTo ErrHandler
  MYXOR = "&H" & r1.Value Xor "&H" & r2.Value
  GoTo CleanUp
ErrHandler:
  MYXOR = Err.Number
  Resume CleanUp
CleanUp:
' format the double being returned in MYXOR with TEXT(DEC2HEX(MYXOR(C9,F9)),"00000")
' number of leading zeroes according to the size of the HEX in r1 and r2
End Function

Vous devez vous connecter pour publier un commentaire.