在Excel中,Microsoft已经为我们提供了许多现成的函数,包括数值计算,字符串处理等等。但是似乎没有看到一个由10进制转换为8进制的函数,当然类似的转换函数也没有看到。不过我们本着自己动手丰衣足食的原则,自己去写一个转换函数。用来文档处理用。
首先,在Excel的Tool--Macro---Visual Basic Editor中,我们选择Insert---标准Module,然后就添加了一个Module编辑区,把下面的代码copy进去
Function N10toC8(ByVal b As Long) As String
Dim a As Long
Dim a1 As String
Dim s As String
Do
a = b Mod 8
a1 = CStr(a)
s = a1 & s
b = b / 8
Loop Until b = 0
N10toC8= s
End Function
然后在你的Excel中就可以把N10toC8这个函数就好像普通的Excel函数一样使用了。比如=N10toC8(B2),就可以把B2 转换为8进制,得到的值放入当前的Cell中。