VBA判断某个字符是否为汉字？

north00

请教高手：



str="我"

如何判断str是否为一个汉字？
谢谢！

pc_12

asc("我")<0

liulang0808

if str like "[一-龥]" then
msgbox "汉字"
else
msgbox "非汉字"
endif
看看是否可用吧

陆离Lowry

STR LIKE "[一-龥]"

smsn

这事情说简单也行，说复杂也行。
方法是判断字符的unicode范围。
网上普遍说汉字的Unicode范围U4E00…U9FA5，就是楼上的 "[一-龥]"
基本够用但也不是全部，不够再说。
可以用函数 Hex(AscW(汉字)) 算出

tanglf188

    stri = "我"
    If stri Like "*[一-龥]*" Then MsgBox "包含汉字"
    If stri Like "*[一-﨩]*" Then MsgBox "包含汉字"
以上两个随便用一个就可以了str是函数，不能用作变量

north00

pc_12 发表于 2023-1-10 16:47
asc("我")

这个好像很简单，谢谢了！

north00

liulang0808 发表于 2023-1-10 16:48
if str like "[一-龥]" then
msgbox "汉字"
else

[一-龥]，这几个字符怎么敲出来的？直接拷贝到VBE里变成了乱码了。。。

smsn

north00 发表于 2023-1-11 10:35
[一-龥]，这几个字符怎么敲出来的？直接拷贝到VBE里变成了乱码了。。。

你用英文版的office吗？
还是你设置能西文字体？乱码显示，但是能用。