在Excel中添加一个10进制转换为8进制的函数

在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中。