求一个EXCEL函数，功能是把一个10进制数转化成34（10个阿拉伯数字+26个英文字母去掉L，M）进制数。
求一个EXCEL函数，功能是把一个10进制数转化成34（10个阿拉伯数字+26个英文字母去掉L，M）进制数。
日期：2013-02-27 08:54:32 人气：1
Function DEC234(x) As String
Dim y
Dim str
DEC234 = ""
str = "0123456789ABCDEFGHIJKNOPQRSTUVWXYZ"
Do While x / 34 >= 1
y = x Mod 34
x = Int(x / 34)
DEC234 = Mid(str, y + 1, 1) &