vba - SHIFT-JIS 到 Unicode？

Question

在运行一个小型 vba 应用程序时，我想检查某个名称是否存在，例如エンジン回転数 通过简单地将单元格值与预定义的字符串匹配而出现在我的表格中。

如何在 VBA 中存储此字符串エンジン回転数？我的第一个猜测是将其存储在字节数组中。然而，StrConv 函数只是将其存储为与 ? 相对应的 63 数组。有什么建议吗？

Answer 1

我建议使用以下 VB 脚本转换复制的文本，因为 Excel 的 InputBox() 似乎无法正确处理此类输入:

s = InputBox("Enter text")
With CreateObject("Scripting.Dictionary")
    For i = 1 To Len(s)
        .Item(.Count) = "ChrW(" & AscW(Mid(s, i, 1)) & ")"
    Next
    q = Join(.Items(), " & ")
End With
MsgBox q & vbCrLf & Eval(q)

只需将其粘贴到记事本中，保存并将文件扩展名“.txt”替换为“.vbs”即可。双击运行它。将文本粘贴到对话框中:

然后生成的对话框显示用 ChrW 函数参数表示的字符串:

您可以按Ctrl+C将结果复制到剪贴板。

然后你可以在VBA代码中检查它:

    Cells(1, 1).Value = ChrW(12456) & ChrW(12531) & ChrW(12472) & ChrW(12531) & ChrW(22238) & ChrW(-28958) & ChrW(25968)

输出应该是: