Conversione di stringhe in esadecimale in Excel VBA

Question

Ho bisogno di convertire stringhe in esadecimali nella mia macro VBA di Excel.

ho provato:

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

ma Convert.ToInt32(val, 16) non funziona, sto cercando di indovinare perché non è VB.NET?

In ogni caso, posso utilizzare CInt(val) per convertire una stringa in un numero intero, ma se ho la rappresentazione di stringa di un valore esadecimale, ad es. "3366CC", come posso convertirlo in esadecimale così da poter eseguire calcoli esadecimali su di esso?

Answer 1

In VBA è necessario pasticciare con la &H letterale:

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

Modifica

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

Poi

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

O per le costanti, ovviamente;

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

Answer 2

considerare:

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

VBA codice ha bisogno di sapere o di fare una supposizione circa la stringa di input. Il codice precedente presuppone che la stringa rappresenti il ​​valore decimale.

Se la stringa di input è Hex, poi:

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

Qui Hval può essere utilizzato aritmeticamente.