Saltar para: Post [1], Pesquisa e Arquivos [2]

Code Snippets Blog

Pequenas rotinas em vba, vbscript e outras linguagens. Noticias sobre informática, workshops, e outras coisas relacionadas com novas tecnologias.

Code Snippets Blog

Pequenas rotinas em vba, vbscript e outras linguagens. Noticias sobre informática, workshops, e outras coisas relacionadas com novas tecnologias.

08
Jan08

VBA - Funções que convertem Texto para Hexadecimal e Hexadecimal em Texto novamente.

Funções  que convertem ou codificam um texto em hexadecimal e vice-versa. Estas funções depois de colocados num suplemento ou num livro pessoal de macros podem ser usadas directamente nas celulas.

Function StrToHex(st As String) As String
    Dim i As Integer, stChar As String, stHex As String
    On Error GoTo Erro
    For i = 1 To Len(st)
        stChar = Hex(Asc(Mid(st, i, 1)))
        If Len(stChar) = 1 Then stChar = "0" + stChar
        stHex = stHex & stChar
    Next i
    StrToHex = stHex
    Exit Function
Erro:
    StrToHex = ""
End Function


Function HexToStr(stHex As String) As String
    Dim i As Integer, stChar As String, st As String
    On Error GoTo Erro
    For i = 1 To Len(stHex) Step 2
       stChar = Mid(stHex, i, 2)
       st = st + Chr(Val("&H" + stChar))
    Next i
    HexToStr = st
    Exit Function
Erro:
    HexToStr = ""
End Function