Convierta texto a binario en Excel usando el ejemplo de código VBA

Después de indagar en varios repositorios y foros al final hemos descubierto la respuesta que te mostraremos más adelante.

Ejemplo 1: excel vba string a binario

'VBA function to convert text to a binary string representation:PublicFunction TextToBinaryString$(s$)Dim c&, i&, lo&, bin$(0To255), d()AsByteConst ZEROS$="00000000"For c =0To255
        bin(c)= ZEROS
        If c And1&Then MidB$(bin(c),15)="1"If c And2&Then MidB$(bin(c),13)="1"If c And4&Then MidB$(bin(c),11)="1"If c And8&Then MidB$(bin(c),9)="1"If c And16&Then MidB$(bin(c),7)="1"If c And32&Then MidB$(bin(c),5)="1"If c And64&Then MidB$(bin(c),3)="1"If c And128&Then MidB$(bin(c),1)="1"Next
    d = s
    lo =1
    TextToBinaryString = Space$(LenB(s)*8)For i =0To LenB(s)-1Step2
        Mid$(TextToBinaryString, lo)= bin(d(i +1))
        Mid$(TextToBinaryString, lo +8)= bin(d(i))
        lo = lo +16NextEndFunction'------------------------------------------------------------------------------
            
MsgBox TextToBinaryString("Hi")'<--displays: 00000000010010000000000001101001

Ejemplo 2: excel vba convertir número a binario string

'VBA function to convert number to binary string:Function DecToBin$(ByVal n&)Do
        DecToBin = n Mod2& DecToBin
        n = n 2LoopWhile n
EndFunction'-------------------------------------------------------------------  'NB: Excel has the built-in worksheet function, DEC2BIN(), but it'can only handle 10-bit numbers or less. The above function can'convert all positive 32-bit numbers: 
  
MsgBox DecToBin(9512489)'<--displays: 100100010010011000101001

valoraciones y comentarios

Te invitamos a corroborar nuestro estudio dejando un comentario y valorándolo te estamos agradecidos.

---

---

Utiliza Nuestro Buscador