EXCEL2007中最多可以转10位二进制的数,我想把40位的二进制转成十进制的数,有啥办法?

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了EXCEL2007中最多可以转10位二进制的数,我想把40位的二进制转成十进制的数,有啥办法?相关的知识,希望对你有一定的参考价值。

以下代码试验通过可行:
❤我自己对VB这门语言也是一知半解,代码写得很蹩脚。
返回值只能设定为Double了,设定为Long的话您的40位二进制会溢出的。
Double可允许的最大数值范围要大很多。Double最大有效数值位数为16位。也就是说最大能准确无误地显示的整数为:999999999……(16个9)。比这个数更大的整数赋值给Double就只能显示为不精确的小数或者用科学计数法表示了。而这个数转换为2进制后是49位。也就是说下面这段代码最多只能转换49位二进制数。比这个更长的数转换的结果就不精确。您可以用Win7系统自带的计算器的程序员模式进行验证。
Function MyBinToDec(ByVal value As String) As Double
On Error GoTo Catch
Try:
Dim result As Double
Dim length As Integer
length = Len(value)
For Index = 1 To length
result = result + CByte(Mid(value, Index, 1)) * Application.WorksheetFunction.Power(2, length - Index)
Next
MyBinToDec = result
Exit Function
Catch:
MsgBox "由于以下原因转换没有成功!" & vbNewLine & Err.Description
End Function
❤希望对您有所帮助。追问

谢谢!可我要在EXCEL2007中完成,不能用VB

追答

❤以上的代码就是我在Excel2007中用VBA写的。
您只需要按Alt+F11组合键就会切换到VBA代码编写界面。
再点击插入菜单中的模块子菜单,插入模块。并把我上面的代码贴进去。
这时候您再按Alt+F11切回Excel的表格界面。此时就可以使用刚刚在模块中自定义的函数MyBinToDec了。跟您在Excel中使用系统中自带的BinToDec函数方法一样。
你按照我说的做法再实验一遍吧。

追问

非常谢谢,真的。厉害

参考技术A =BIN2DEC(MID(A1,1,9))*512^3+BIN2DEC(MID(A1,10,9))*512^2+BIN2DEC(MID(A1,19,9))*512+BIN2DEC(MID(A1,28,9))

不过只能显示36位二进制数转十进制数;36位二进制放于A1格内,B1格输入此公式;连等号一起复制;以下是68719476735以下十进制转二进制数,且显示36位二进制数EXCEL2007公式;
=TEXT(DEC2BIN(MOD(INT(A1/512/512/512),512)),"000000000")&TEXT(DEC2BIN(MOD(INT(A1/512/512),512)),"000000000")&TEXT(DEC2BIN(MOD(INT(A1/512),512)),"000000000")&TEXT(DEC2BIN(MOD(A1,512)),"000000000")
这是68719476735以下的十进制数转36位二进制数公式;十进制数放于A1格内,B1格内输入此公式;也连等号一起复制;68719476735以上的十进制数不能用此公式;
以下是两个36位二进制数异或公式:(两个二进制数分别放于A1和B1格,C1格输入此公式)
=SUBSTITUTE(TEXT(MID(A1,1,15)+MID(B1,1,15),"000000000000000"),2,0)&SUBSTITUTE(TEXT(MID(A1,16,15)+MID(B1,16,15),"000000000000000"),2,0)&SUBSTITUTE(TEXT(MID(A1,31,6)+MID(B1,31,6),"000000"),2,0)

以上是关于EXCEL2007中最多可以转10位二进制的数,我想把40位的二进制转成十进制的数,有啥办法?的主要内容,如果未能解决你的问题,请参考以下文章

求一个10进制转十六进制的vb代码,要支持非常大的数的(30位)

在Excel中如何将十进制转换成二进制

excel随机数保留一位小数

excel里将16进制转换为IP地址

进制转换问题

long long 可以支持多少位的数?