vba - 在 Excel VBA 中将字符串转换为十六进制

Question

我需要在 Excel VBA 宏中将字符串转换为十六进制。

我尝试过:

Dim val As String
val = "10"
Dim hexVal As Integer
hexVal = Convert.ToInt32(val, 16)

但是 Convert.ToInt32(val, 16) 不起作用，我猜是因为它不是 VB.NET？

无论如何，我可以使用 CInt(val) 将字符串转换为整数，但如果我有十六进制值的字符串表示形式，例如“3366CC”，如何将其转换为十六进制以便对其进行十六进制计算？

Answer 1

在 VBA 中，您需要处理 &H文字:

value = val("&H" & "10") '// 16
value = val("&H3366CC")  '// 3368652

编辑

Function FromHex(hexString As String) As Long
    FromHex = Val("&H" & hexString)
End Function

然后

resultString = hex$(FromHex("3366CC") / FromHex("A"))

或者显然是常数；

resultString = hex$(FromHex("3366CC") / &HA)