Excel 2013 VBA 代码中的特殊字符（字母 čćžšđ）

Question

我在 Excel 2010 VBA 中制作了一个程序，其中包含像 ć č š 之类的字母...

Msgbox("Čiča gliša") 有效。

看起来 Excel 2013 在单元格和公式中支持这些字母，但在 VBA 中不支持。

VBA 将它们替换为一些甚至不在键盘上的符号。

执行代码时出错。

我认为这与语言设置有关。

Answer 1

正如 BambiLongGone 所说，奇怪的字符串不太可能起作用。 我想说你最好的镜头是看this article。有一个名为 Unicode to VBA 的工具，您可以使用它来转换应用程序中的所有字符串。 例如：

Čiča gliša

将转换为

ChrW$(&H10C) & "i" & ChrW$(&H10D) & "a gli" & ChrW$(&H161) & "a"

Answer 2

VBA 是 ANSI。 Ps 在它与 Windows 的交互中。它内部是 UTF16，COM 也是 UTF 16。但它的文件格式也是 ANSI，所以输入奇怪的字符串不太可能工作（因为它们不能按原样保存）。

因此，字符转换会自动发生，有一百万条规则控制它（大部分以可访问的方式未记录）。

如果遇到麻烦分配给一个字节数组。也许你需要从 unicode 文件中读取来绕过表单的 ANSI。

你的字符串（）=“废话”

如果传递给字符串函数，VB 会将字节数组视为字符串。

Answer 3

问题在于 Windows 区域设置：非 unicode 程序的区域/管理/语言，必须将其设置为可以处理您的特殊字符的语言。

Answer 4

您可以在出现的每段代码中手动编写重音符号，并且可以使用“查找和替换”来更快地完成。如果你有类似的东西：

MsgBox "Código único"

然后就可以查找替换了：

[ó] 到 [" & Chr(243) & "]

[ú] 到 [" & Chr(250) & "]

等等……

你会得到：

MsgBox "C" & Chr(243) & "digo " & Chr(250) & "nico"

如果您不知道每个重音字母的代码，那么您可以使用带有函数“CODE”的excel（函数Char相反）

另外，您可以使用来自互联网的列表，如下所示：

ASCII Code - The extended ASCII table

我只是遇到了同样的问题并做了这个程序。使用 Visual Studio Code 运行良好，速度非常快。

Answer 5

Function CroatianCharacters(CroatianCharacterOrderNumber As Integer, Optional UpperCase As Boolean = True, Optional DisplayAll As Boolean = False) As String

   'ISO Latin1 Extended A decimal code
    Dim AllCharacters
    UpperCaseLetters = "A,B,C," & ChrW(268) & "," & ChrW(262) & "," & "D," & "D" & ChrW(382) & "," & ChrW(272) & "," & _
        "E,F,G,H,I,J,K,L,Lj,M,N,Nj,O,P,R,S," & ChrW(352) & ",T,U,V,Z," & ChrW(381)
    LowerCaseLetters = "a,b,c," & ChrW(269) & "," & ChrW(263) & "," & "d," & "d" & ChrW(382) & "," & ChrW(273) & "," & _
        "e,f,g,h,i,j,k,l,lj,m,n,nj,o,p,r,s," & ChrW(353) & ",t,u,v,z," & ChrW(382)
    CroatianCharacters = LowerCaseLetters

    If (UpperCase = True) Then
        If (DisplayAll = False) Then
            AllCharacters = Split(UpperCaseLetters, ",")
            CroatianCharacters = AllCharacters(CroatianCharacterOrderNumber - 1)
        Else
            CroatianCharacters = UpperCaseLetters
        End If
    Else
        If (DisplayAll = False) Then
            AllCharacters = Split(LowerCaseLetters, ",")
            CroatianCharacters = AllCharacters(CroatianCharacterOrderNumber - 1)
        Else
            CroatianCharacters = LowerCaseLetters
        End If
    End If

End Function

Answer 6

说明：

问题与字符编码有关 - 请参阅 BambiLongGone's answer。

“č,ř,ě”等特殊字符是Unicode Standard 的一部分。但是，VBA 使用Windows-native ("ANSI") code pages，它们可能支持也可能不支持特殊字符。因此，直接在 VBA 字符串中使用的特殊字符可能会也可能不会正常工作。

最终用户方面的解决方案：

如果您尝试使用带有 VBA 代码的文件并且显示错误字符，您通常可以通过更改 Windows 区域设置来解决此问题。转到：Control Panel - > Region -> Administrative -> Language for non-unicode programs -> Change system locale... 并将 Current system locale 更改为支持特殊字符的语言。

开发者方面的解决方案：

如果您正在使用 VBA 代码制作文件并且您的带有特殊字符的字符串无法正确显示，您需要使用字符代码定义字符。您可以直接使用特殊字符以“正常”方式编写字符串，然后使用 StrConv function 或自定义函数转换字符串 - 见下文。

使用StrConv function进行转换：

Sub mySub()
    Dim myText As String
    myText = "Mý něw čář"
    myText = StrConv(myText, vbFromUnicode)
    Range("O17").Value2 = myText 
End Sub

使用包含所有需要的特殊字符的自定义函数进行转换（对于所有 Unicode 字符，请参阅 Wikipedia）：

Sub mySub()
    Dim myText As String
    Dim myTextConv As String
    myText = "Mý něw čář"
    myTextConv = UNItoANSI(myText)
    Range("A1").Value2 = myTextConv
End Sub

Private Function UNItoANSI(text As String) As String
    text = Replace(text, "á", "" & ChrW$(225) & "")
    text = Replace(text, "ý", "" & ChrW$(253) & "")
    text = Replace(text, "ě", "" & ChrW$(283) & "")
    text = Replace(text, "č", "" & ChrW$(269) & "")
    text = Replace(text, "ř", "" & ChrW$(345) & "")
    UNItoANSI = text
End Function