[已解决]怎样判断A1中是否含有汉字

枯禅

如果仅有一个字符，（更多字符道理是一样的）提供两种判断方法供参考：

Sub test() '正则
Dim regex As Object
set regex = CreateObject("vbscript.regexp")
With regex
    .Global = True
    .Pattern = "[\u4e00-\u9fa5]"
    MsgBox .test([a1])
End With
End Sub

Sub test2()
If [a1].Value Like "[一－龥]" Then
    MsgBox "汉字"
Else
    MsgBox "非汉字"
End If
End Sub

[此贴子已经被作者于2010-4-19 18:10:33编辑过]

爱疯

谢谢大家了！

小富康和枯禅好像都行，因为不懂为什么，枯禅的好像更好吧（我不知道我不知道啊）。。。

很想知道他们的办法为什么可以？我那样测试为什么不可以？

这样郁郁而终，死不瞑目啊[em11]