请高手指点：VBA中调用Excel内部函数的问题

三流高手

excel VBA中是可以用dec2hex()函数的，但在excel2003 VBA中引用时总是出错，代码如下（例如B1单元格输入“123456”）：
Sub conver()
Range("a1").Value = Application.WorksheetFunction.Dec2hex(Range("b1"),6)
End Sub
错误提示“运行时错误“438”，对象不支持该属性或方法。”
该代码在Excel2007中可正确运行，不知为什么？在2003中该如何修改呢？

蓝桥玄霜

高版本中可用的，很可能在低版本中不能用。
2003版本中用hex([b1])即可。

zhaogang1960

2003帮助DEC2HEX
将十进制数转换为十六进制数。
如果该函数不可用，并返回错误值 #NAME?，请安装并加载“分析工具库”加载宏。
看来2003不支持调用这种函数，还是用公式吧：
Sub Macro1()
    Range("A1") = "=DEC2HEX(B1,3)"
End Sub

三流高手

可是HEX()函数得不到Dec2hex()的显示效果，例如9转换为000009，10转换为00000A。我的问题是在2003的VBA中如使用Dec2hex(9,6)可正确运行，但具体的数字改为单元格引用后（如：Dec2hex(Range("b1"),6)）就出错了，不知是不是语法不对？

香川群子

如果2003版中无法正常使用，可以改为使用自定义函数。

例如：
第2参数默认k=0时，把十进制转化为十六进制。并且默认采用每4位长度加0补足的表示形式：如 007B,0012034D
第2参数k=1时，把十六进制转化为十进制。

1. Function DH(NUM, Optional k = 0)
   
2.     If k = 1 Then
   
3.         NUM = UCase(NUM)
   
4.         For i = 1 To Len(NUM)
   
5.             h = Mid(NUM, i, 1)
   
6.             If Asc(h) > 64 Then h = Asc(h) - 55
   
7.             DH = DH + h * 16 ^ (Len(NUM) - i)
   
8.         Next i
   
9.         Exit Function
   
10.     End If
    
11.    
    
12.     If NUM < 0 Then NUM = 16 ^ 4 + NUM
    
13.     n = Int(Log(NUM) / Log(16))
    
14.     For i = n To 1 Step -1
    
15.         s = Int(NUM / 16 ^ Int(i))
    
16.         NUM = NUM - s * 16 ^ Int(i)
    
17.         If s > 9 Then s = Chr(55 + s)
    
18.         DH = DH & s
    
19.     Next i
    
20.    
    
21.     If NUM > 9 Then NUM = Chr(55 + NUM)
    
22.     m = Int(n / 4 + 1) * 4
    
23.     DH = "" & Right(String(m, "0") & DH & NUM, m)
    
24.    
    
25. End Function

复制代码

gszsg

香川群子 发表于 2012-6-23 11:03
如果2003版中无法正常使用，可以改为使用自定义函数。

例如：

这个很有用，已经用上了

gszsg

谢谢楼上的，很有用。已经用上了。