I have searched the community website for VBA codes to convert binary code to
decimal but did not find any; although there are VBA codes for converting
decimal to binary codes.

Can anybody advise, where I can get hold of VBA codes for converting binary
code to decimal? I don't have the Analysis Tookpak.

Thank you.

The DEC2BIN function is the one you want, and you are correct that it is part
of the Analysis Toolpack.

Instructions on isntalling this free expansion pack are here:
http://office.microsoft.com/en-us/ex...277241033.aspx

--
"Actually, I *am* a rocket scientist." -- JB

Your feedback is appreciated, click YES if this post helped you.


"Francis Ang" wrote:

> I have searched the community website for VBA codes to convert binary code to
> decimal but did not find any; although there are VBA codes for converting
> decimal to binary codes.
>
> Can anybody advise, where I can get hold of VBA codes for converting binary
> code to decimal? I don't have the Analysis Tookpak.
>
> Thank you.

I'm just curious on how you would use this. Would you have a cell that has a
binary number in 1's and 0's and you want this converted to a decimal value?

Jerry

Hi Jerry,

I have a file that contains some binary code which I need to convert to
decimals. I am also looking for codes that convert HEX2DEC. I know Excel has
these functions, but I don't have the Analysis Toolpack.

"JerryH" wrote:

> I'm just curious on how you would use this. Would you have a cell that has a
> binary number in 1's and 0's and you want this converted to a decimal value?
>
> Jerry
>

Here is a VB function I've posted in the past that will handle up to a
96-bit binary number (which I'm guessing is way more than you will need)...

Function Bin2Dec(BinaryString As String) As Variant
Dim X As Integer
Const TwoToThe48 As Variant = 281474976710656#
For X = 0 To Len(BinaryString) - 1
If X > 48 Then
Bin2Dec = CDec(Bin2Dec) + Val(Mid(BinaryString, _
Len(BinaryString) - X, 1)) * _
TwoToThe48 * CDec(2 ^ (X - 48))
Else
Bin2Dec = CDec(Bin2Dec) + Val(Mid(BinaryString, _
Len(BinaryString) - X, 1)) * CDec(2 ^ X)
End If
Next
End Function

--
Rick (MVP - Excel)


"Francis Ang" <(E-Mail Removed)> wrote in message
news:0EDDAE4E-BB2C-418D-9655-(E-Mail Removed)...
> Hi Jerry,
>
> I have a file that contains some binary code which I need to convert to
> decimals. I am also looking for codes that convert HEX2DEC. I know Excel
> has
> these functions, but I don't have the Analysis Toolpack.
>
> "JerryH" wrote:
>
>> I'm just curious on how you would use this. Would you have a cell that
>> has a
>> binary number in 1's and 0's and you want this converted to a decimal
>> value?
>>
>> Jerry
>>