代码之家 › 专栏 › 技术社区 › Senseful

在VB中获取字符的unicode值

unicode vba

Senseful · 技术社区 · 15 年前

例如,我知道可以使用ascii:

i = Asc("a") // i == 97 (correct)

如果我有一个unicode字符呢?

i = Asc("â¢") // i == 149 (incorrect... should return 8226)

显然,第二个示例不起作用,因为该字符不在Ascii集中。我能用一个等价的函数来返回 8226 149 ?

如果有什么不同的话,我是在Outlook 2003中这样做的。

2 回复 | 直到 14 年前

user180100 user180100 15 年前

那怎么办 AscW

Nisse Engström sting_roc 10 年前

RC提供的答案。帮了我很多,但我有问题 AscW()

在我的例子中,这个问题是在处理汉字时出现的。

我在网上找到了一份工作:

Function CharToUnicode(strChar As String)

    Dim lngUnicode As Long

    lngUnicode = AscW(strChar)

    If lngUnicode < 0 Then
        lngUnicode = 65536 + lngUnicode
    End If

    CharToUnicode = lngUnicode

End Function

推荐文章

Kram Kramer · 通过vba自动调整文本大小以适应形状

1 年前

Swapnil Supekar · 将二维阵列转换为一维阵列,并将一维阵列粘贴到另一张图纸上

1 年前

Eric · 我有邮政编码替换问题Excel VBA

1 年前

Chasester · VBA使用嵌套的DIV抓取URL

1 年前

jkp · 特殊字符复选标记

1 年前

Iron Man · 代码插入和复制到错误的工作表

1 年前

NoFafo · 将文本框放入数组进行格式化

1 年前

Smokestack · 过滤器范围C3:G3并粘贴到其他单元格

1 年前

Julie S. · Excel VBA for循环的代码帮助,用于检查多个ListBoxes是否有值?

1 年前

Kram Kramer · 如何通过vba代码将Chart xAxes字体颜色从黑色更改为红色?

1 年前