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

爱疯

相关帖：http://www.excelpx.com/forum.php?mod=viewthread&tid=93047 ，晕了[em11]

这里具体比如，判断A1中的字符串，是否含有(中文简体)汉字？谢谢！

最佳答案

月排行榜 / 总排行榜

枯禅

2010-4-19 18:10

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

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编辑过]

跳转到最佳答案楼层

raulerini

必须是汉字吗？？？

字母和符号不行？？？

爱疯

QUOTE:

以下是引用raulerini在2010-4-19 15:54:00的发言：

必须是汉字吗？？？

字母和符号不行？？？

谢谢raulerini！

Sub ddd()

    [a1] = "大"
   
    '判断[a1]的值是不是汉字
   
End Sub

即第1句变更后，后面的判断仍有效就行。为讨论方便，这里我们假设[a1]中有且仅有1个字符。[em04]

静候你的佳音

好像有个判断是否是双字节的函数...

开辆小富康

asc(某字符)<0,是汉字，或者说是双字符字符，包括标点的。他那个东东，好象用的是十六进制吧

爱疯

QUOTE:

以下是引用开辆小富康在2010-4-19 16:16:00的发言：

asc(某字符)<0,是汉字，或者说是双字符字符，包括标点的。他那个东东，好象用的是十六进制吧

Sub dd()
MsgBox Chr(46323)
End Sub

这里，46323不就是>0吗？为什么你的是要<0呢

[em04]

和气生财

但是，在立即窗口中，

?asc("大")
-19213

哈哈

开辆小富康

Sub dd()
MsgBox Chr(46323)
MsgBox Asc(Chr(46323))
End Sub

爱疯

vgkUahFg.rar (271.18 KB, 下载次数: 0)

2010-4-19 17:21 上传

点击文件名下载附件
怎样判断A1中是否含有汉字

Sub test3()
    Dim arr
    Dim i As Long

    arr = [c1:c65536]
    For i = 1 To UBound(arr)
        arr(i, 1) = Asc(arr(i, 1))
    Next i
'    [d1].Resize(UBound(arr), 1) = arr
End Sub

 

 
test3()为什么到i=256出错终止？

而且255，254，253 .... 好像也不对[em09]

和气生财

好像附件内容不齐全。arr = [c1:c65536] 的内容是全空的。