十进制转二进制，显示错误，如何修改vba

ywf641122 · 发表于 2012-4-25 08:26

大家好，想请教，十进制转二进制，显示错误，如何修改VBA或公式，文件已上传

十进制转二进制，显示错误，如何修改.rar (6.51 KB, 下载次数: 42)

蓝桥玄霜 · 发表于 2012-4-25 08:41

Sub yy()
aa = Format([b17], "0000'0000'0000'0000")
MsgBox aa
End Sub

复制代码

ywf641122 · 发表于 2012-4-25 09:12

蓝桥玄霜，这段代码加什么位置啊？
Public Function 转为2进制(mynum As Variant) As String
  Dim loopcounter As Integer
  If mynum >= 2 ^ 31 Then
   转为2进制 = "Too big"
   Exit Function
  End If
Do
  If (mynum And 2 ^ loopcounter) = 2 ^ loopcounter Then
   转为2进制 = "1" & 转为2进制
  Else
   转为2进制 = "0" & 转为2进制
  End If
  loopcounter = loopcounter + 1
  Loop Until 2 ^ loopcounter > mynum
End Function

wj2368 · 发表于 2012-4-25 09:14

....................

wj2368 · 发表于 2012-4-25 09:15

Public Function 转为2进制(mynum As Variant) As String
Dim loopcounter As Integer
If mynum >= 2 ^ 31 Then
转为2进制 = "Too big"
Exit Function
End If
Do
If (mynum And 2 ^ loopcounter) = 2 ^ loopcounter Then
s = "1" & s
Else
s = "0" & s
End If
loopcounter = loopcounter + 1
Loop Until 2 ^ loopcounter > mynum
转为2进制 = Format(s, "0000'0000'0000'0000")
End Function

复制代码

ywf641122 · 发表于 2012-4-25 09:37

本帖最后由 ywf641122 于 2012-4-25 11:16 编辑

wj2368，你太厉害了啊！谢谢你！

wtb162 · 发表于 2012-4-26 15:16

wj2368 发表于 2012-4-25 09:15

高手，这句不明白什么原理，能否解释下 If (mynum And 2 ^ loopcounter) = 2 ^ loopcounter。谢谢！

wj2368 · 发表于 2012-4-26 15:47

wtb162 发表于 2012-4-26 15:16
高手，这句不明白什么原理，能否解释下 If (mynum And 2 ^ loopcounter) = 2 ^ loopcounter。谢谢！

条件句。。。…。……。…。………

guojianlin1985 · 发表于 2012-7-8 20:13

又学一法。

buciyuan · 发表于 2018-10-29 22:01

各位老师，如果把二进制转为十进制，如何更改程序呢，因为excel自带的函数只能处理九位数，不方便。谢谢各位老师的指点！

		自动登录	找回密码
密码			免费注册

[求助] 十进制转二进制，显示错误，如何修改vba

评分