[已解决]如何判断字符是不是中文汉字

爱疯

~~~~~~~~~~~~~~~~~~~~~~

Sub cc1()
Dim str As String
str = "大"
MsgBox Asc(str)
End Sub

~~~~~~~~~~~~~~~~~~~~~~

换了几个字后，发现都是-10000多，我想找到最大值max、最小值min，然后：

If (Asc(str) > Min) Or (Asc(str) < Max) Then
    '''说明str是汉字
End If

请问：

1. 这样想对么？如何更好。
2. 最大值max、最小值min，如何求出？
3. If语句中的括号，能省么？

谢谢！

最佳答案

月排行榜 / 总排行榜

蓝桥玄霜

2008-12-31 20:00

If Asc(str) < 0 Then
    '''说明str是汉字
End If

跳转到最佳答案楼层

canlly

你先根据-50000到+10000取字符到单元格里,连同编码一起,然后在根据编码排序,你就可以知道汉字的区间了!

PS:貌似你被这些问题折磨了快不行了哈!坚持就会得到结果!

[em01][em01]

蓝桥玄霜

If Asc(str) < 0 Then
    '''说明str是汉字
End If

和气生财

QUOTE:

以下是引用蓝桥玄霜在2008-12-31 20:00:00的发言：

If Asc(str) < 0 Then
    '''说明str是汉字
End If

很少用到.[em17]

爱疯

谢谢版主！

爱疯

ZWjwKaGY.rar (561.93 KB, 下载次数: 24)

2008-12-31 23:20 上传

点击文件名下载附件
[已解决]如何判断字符是不是中文汉字

还有个尾巴，为什么这样看不到汉字呢？
谢谢！

[em04]