Converter vários valores unicode para o texto correspondente na planilha do Excel

Question

Se meu caractere Unicode contiver mais de um valor hexadecimal em uma célula do Excel, como escrever uma função no Excel para convertê-lo no caractere correspondente?

Por exemplo: Valores hexadecimais Unicode na célula do Excel: 0B15 0B4D 0B37 . Caractere a ser formado a partir dos valores acima: କ୍ଷ (Odia / Indian language)

    

Answer 1

Com dados como:

InstaleoseguinteUserDefinadoFunção(UDF):

PublicFunctionqwerty(rAsRange)AsVariantDimLAsLong,CHAsString,CH2AsStringarr=Split(ActiveCell.Text," ")
   For Each a In arr
      L = Application.WorksheetFunction.Hex2Dec(a)
      CH = ChrW(L)
      CH2 = CH2 & CH
   Next a
   qwerty = CH2
End Function

Em seguida, escolha uma célula, digamos célula B1 , formate-a para Arial Unicode MS e digite:

=qwerty(A1)

FunçõesDefinidaspeloUsuário(UDFs)sãomuitofáceisdeinstalareusar:

1. ALT-F11exibeajaneladoVBE
2. ALT-IALT-Mabreumnovomódulo
3. coleomaterialefecheajaneladoVBE

Sevocêsalvarapastadetrabalho,aUDFserásalvacomela.SevocêestiverusandoumaversãodoExcelposteriora2003,deverásalvaroarquivocomo.xlsmemvezde.xlsx

PararemoveroUDF:

1. abrirajaneladoVBEcomoacima
2. limpeocódigo
3. fecheajaneladoVBE

ParausaroUDFdoExcel:

=qwerty(A1)

Parasabermaissobremacrosemgeral,consulte:

link

e

link

e para detalhes sobre UDFs, consulte:

link

As macros devem estar ativadas para que isso funcione!