Chuyển đổi chuỗi thành Hex trong Excel VBA

Question

Tôi cần chuyển đổi chuỗi thành thập lục phân trong macro VBA Excel của mình.

tôi đã cố gắng:

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

nhưng Convert.ToInt32(val, 16) không làm việc, tôi đoán vì nó không phải VB.NET?

Dù sao, tôi có thể sử dụng CInt(val) để chuyển đổi một chuỗi thành một số nguyên nhưng nếu tôi có chuỗi đại diện của một giá trị hex, ví dụ "3366CC", làm cách nào để chuyển đổi nó thành hex để tôi có thể thực hiện tính toán hex trên đó?

Answer 1

Trong VBA bạn cần phải mess về với &H đen:

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

Sửa

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

Sau đó

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

Hoặc cho hằng rõ ràng;

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

Answer 2

xem xét:

Sub dural() 
    Dim val As String, hval As String 
    val = "10" 
    hval = Application.WorksheetFunction.Dec2Hex(val) 
    MsgBox hval 
End Sub 

VBA mã cần biết hoặc thực hiện một giả định về chuỗi đầu vào. Mã ở trên giả định rằng chuỗi đại diện cho một giá trị số thập phân.

Nếu chuỗi đầu vào là Hex, thì:

Sub dural2() 
    Dim val As String, hval As Long 
    val = "10" 
    hval = Application.WorksheetFunction.Hex2Dec(val) 
    MsgBox hval 
End Sub 

Đây hval thể được sử dụng số học.