VBA不能正确地将某些Unicode放入Excel

Question

我想在我的工作表中放一些特殊的符号，例如CHRW（6161）。

Public Function testing()
    Selection.value = ChrW(6161)
    Debug.Print AscW(Selection.value) 'Return 49, not 6161
End Function

我发现Excel会自动将某些字符代码切换为0-9，如下所示： 阿拉伯数字CHRW（1632年至1641年）

Chrw(1776 To 1785)

Chrw(2406 To 2415)

BENGALI DIGIT Chrw(2534 To 2543)

GURMUKHI DIGIT Chrw(2662 to 2671)

GUJARATI DIGIT Chrw(2790 To 2799)

Chrw(2918 To 2927)

TAMIL DIGIT Chrw(3046 To 3055)

Chrw(3174 To 3183)

KANNADA DIGIT Chrw(3302 To 3311)

MALAYALAM DIGIT Chrw(3430 To 3439)

Chrw(3664 To 3673)

Chrw(3792 To 3801)

Chrw(3872 To 3881)

MYANMAR DIGIT Chrw(4160 To 4169)

ETHIOPIC DIGIT Chrw(4969 To 4977)

KHMER DIGIT Chrw(6112 To 6121)

MONGOLIAN DIGIT Chrw(6160 To 6169)

我的问题是如何使这条代码工作。 selection.value = chrw（6161）

谢谢。

Answer 1

查看托德森建议的帖子后，以下代码正常工作。

Public Function testing()
    Selection.value = "'" & ChrW(6161)
    Debug.Print AscW(Selection.value) 'Return 49, not 6161
End Function
~~