Excel: повторение сценария VBA после завершения слова

Question

Я все еще учусь делать скрипты в VBA.Сейчас я хочу создать скрипт, конвертирующий текст из ячейки в юникод Little Endian Hex.У меня есть скрипт, который работает сейчас только для первого персонажа.Как применить цикл, чтобы перейти к следующей букве, добавить его в печать и закончить скрипт, когда текст закончится?

Function Text2LE(Character As String)    
Dim x As Long
x = AscW(Character)
If x < 16 Then
  Text2LE = "000" & Hex(AscW(Character))
  Text2LE = Right(Text2LE, 2) & Left(Text2LE, 2)
ElseIf x < 256 Then
  Text2LE = "00" & Hex(AscW(Character))
  Text2LE = Right(Text2LE, 2) & Left(Text2LE, 2)
Else
  Text2LE = "0" & Hex(AscW(Character))
  Text2LE = Right(Text2LE, 2) & Left(Text2LE, 2)
End If
End Function

Answer 1

вам нужно что-то вроде перебрать символ в строке и преобразовать его с помощью вашей функции!Затем сгруппируйте HEX вместе и покажите или потребляйте!(Не уверен на дисплее hex в окне отладки)

sub Convert()
 Dim i as long
 Dim string_to_convert as string
 Dim Hex as String

 For i = 1 to len(string_to_convert)
   Hex = Hex + Text2LE(Mid(string_to_convert, i, 1))
 Next i

 debug.Print Hex

end sub