How do I change hexadecimal number to binary in excel

[Aimran]

[Hernandez, Roberto]

If you want to do it digit by digit you could do something like this

In a 'normal' module:

'***********************************************
Function hextobin(byval hexa as string)

Select Case hexa

Case "0": hextobin = "0000"
Case "1": hextobin = "0001"
Case "2": hextobin = "0010"
Case "3": hextobin = "0011"
'continue until last hexa digit....
'
'
case "F": hextobin = "1111"
End Select

End function

'***********************************************
"Aimran" <[email protected]> escribió en el mensaje
news:[email protected]...
>

[Duke Carey]

Rather than rolling your own, use Excel's HEX2BIN() function. You must have
the Analysis Toolpak add-in checked to make this available


"Hernandez, Roberto" wrote:

> If you want to do it digit by digit you could do something like this
>
> In a 'normal' module:
>
> '***********************************************
> Function hextobin(byval hexa as string)
>
> Select Case hexa
>
> Case "0": hextobin = "0000"
> Case "1": hextobin = "0001"
> Case "2": hextobin = "0010"
> Case "3": hextobin = "0011"
> 'continue until last hexa digit....
> '
> '
> case "F": hextobin = "1111"
> End Select
>
> End function
>
> '***********************************************
> "Aimran" <[email protected]> escribió en el mensaje
> news:[email protected]...
> >
>
>
>

[Hernandez, Roberto]

Thanks Duke!
I know the Hex2bin function...
I was actually trying to 'spread' some example to use the powerful VBA
capabilities.


"Duke Carey" <[email protected]> escribió en el mensaje
news:[email protected]...
> Rather than rolling your own, use Excel's HEX2BIN() function. You must
> have
> the Analysis Toolpak add-in checked to make this available
>
>
> "Hernandez, Roberto" wrote:
>
>> If you want to do it digit by digit you could do something like this
>>
>> In a 'normal' module:
>>
>> '***********************************************
>> Function hextobin(byval hexa as string)
>>
>> Select Case hexa
>>
>> Case "0": hextobin = "0000"
>> Case "1": hextobin = "0001"
>> Case "2": hextobin = "0010"
>> Case "3": hextobin = "0011"
>> 'continue until last hexa digit....
>> '
>> '
>> case "F": hextobin = "1111"
>> End Select
>>
>> End function
>>
>> '***********************************************
>> "Aimran" <[email protected]> escribió en el mensaje
>> news:[email protected]...
>> >
>>
>>
>>