[已解决]如何把：单元格中的十六进制数据用vba转换成十进制数据

hyl9td

求助：如何把：单元格中的十六进制数据用vba转换成十进制数据。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-7-18 23:01

跳转到最佳答案楼层

hwc2ycy

工作表中就有现成的函数HEX2DEC

hwc2ycy

我用的10版本有，低版本就不知道了。

将十六进制数转换为十进制数。

语法
HEX2DEC(number)HEX2DEC 函数语法具有下列参数 （参数：为操作、事件、方法、属性、函数或过程提供信息的值。）：

Number  必需。待转换的十六进制数。参数 number 的位数不能多于 10 位（40 位二进制），最高位为符号位，其余 39 位是数字位。负数用二进制数的补码表示。
说明
如果参数 Number 不是合法的十六进制数，则函数 HEX2DEC 返回错误值 #NUM!。

hyl9td

hwc2ycy 发表于 2013-7-18 22:53
我用的10版本有，低版本就不知道了。

将十六进制数转换为十进制数。

谢谢！工作表函数可以实现，但是用vba怎么做呢？

hwc2ycy

直接调用工作表函数嘛，worksheetfunction.hex2dec

hwc2ycy

hyl9td

hwc2ycy 发表于 2013-7-18 22:53
我用的10版本有，低版本就不知道了。

将十六进制数转换为十进制数。

Sub t10() '把a1中的十六进制数据转换为十进制数据放在b1单元格中
Range("b1") = CLng("&H" & Range("a1"))
End Sub

hwc2ycy

hyl9td 发表于 2013-7-18 23:17
Sub t10() '把a1中的十六进制数据转换为十进制数据放在b1单元格中
Range("b1") = CLng("&H" & Range("a1 ...

这方法也不错呀。