VBA中ChrW函数处理含字母UTF编码的阿拉伯字符失效问题求助

修复你的AddArabic函数 #

你的代码核心问题在于：阿拉伯语的Unicode转义码是十六进制格式（如\u062a），而CInt只能解析十进制数字，遇到字母就会报错。我们需要将十六进制字符串转为数值，再用ChrW生成对应字符。

修正后的代码如下：

Sub exampleMsg()
    Dim Atxt As String
    Dim Etxt As String

    Atxt = "\u0627\u062e\u062a\u0628\u0627\u0631\u0627\u062a"
    Etxt = "testing"
    MsgBox AddArabic(Atxt, Etxt)
End Sub

Function AddArabic(ARtxt As String, ENtxt As String) As String
    Dim arr As Variant
    arr = Split(ARtxt, "\u")
    
    Dim uStr As Variant
    Dim s As String
    Dim uNum As Integer
    
    For Each uStr In arr
        ' 跳过分割后产生的空字符串（因为原字符串以"\u"开头）
        If uStr <> "" Then
            ' 用&H前缀将十六进制字符串转为数值
            uNum = CLng("&H" & uStr)
            s = s & ChrW(uNum)
        End If
    Next uStr
    
    s = s & vbNewLine & vbNewLine & ENtxt
    AddArabic = s
End Function

关键修改点：

• 使用CLng("&H" & uStr)解析十六进制转义码，&H是VBA中表示十六进制的前缀
• 跳过分割数组的第一个空元素
• 显式声明函数返回类型为String，避免默认的Variant类型

更简便的方法：直接使用阿拉伯文本 #

如果你的VBA编辑器支持Unicode（Office 2010及以后版本默认支持），可以直接粘贴阿拉伯语文本到代码中，无需转义：

Sub DirectArabicMsg()
    Dim Atxt As String
    Dim Etxt As String
    
    Atxt = "اختبارات" ' 直接粘贴阿拉伯语文本
    Etxt = "testing"
    
    MsgBox Atxt & vbNewLine & vbNewLine & Etxt
End Sub

如果直接粘贴后MsgBox仍显示乱码，可以检查：

1. 确保Windows系统已安装阿拉伯语语言包
2. 将工作簿保存为.xlsm格式（宏启用工作簿），该格式支持Unicode存储
3. 避免使用老旧的.xls格式（仅支持ANSI编码）

从单元格读取阿拉伯文本 #

若阿拉伯语文本存储在工作表中，直接读取单元格值即可：

Sub ReadArabicFromCell()
    Dim Atxt As String
    Dim Etxt As String
    
    ' 假设阿拉伯语在Sheet1的A1单元格
    Atxt = Sheet1.Range("A1").Value
    Etxt = "testing"
    
    MsgBox Atxt & vbNewLine & vbNewLine & Etxt
End Sub

内容的提问来源于stack exchange，提问作者DerEnglaender