写一个十进制转二进制的函数。dtob()在模块中添加,则可直接使用。注意参数只能是具体的数,而不能是单元格引用 (需要另写代码)。
Function dtob(kk As Long)
Dim i As Integer
Dim bb As String
While kk > 1
i = kk Mod 2
kk = kk / 2
bb = bb & i
Wend
bb = bb & "1"
For i = Len(bb) To 1 Step -1
dtob = dtob & Mid(bb, i, 1)
Next i
End Function
本人水平就这样,也是一时高兴写了这个。其它的就不写了。希望能帮到您。
excel 十进制转二进制帮实现
DEC2BIN将10进制转成2进制。
BIN2DEC将2进制转成10进制