时间戳

首页 > 解决方案 > Excel：单词完成后重复 VBA 脚本

excel - Excel：单词完成后重复 VBA 脚本

问题描述

我仍在学习如何在 VBA 中制作脚本。现在我想创建将文本从单元格转换为 Unicode 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

标签： excelvba

解决方案

你需要像遍历字符串中的字符并使用你的函数转换它！然后将 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

推荐阅读