[已解决]辨别是否是汉字？？

xdwy81129

如题
希望辨别第一个字符是否是汉字，应该怎么做呢？？

如：
[A1]="提问"
[A2]="ssssss"
arr=[A1:A2]
这里arr(i,1)的第一个字符是不是汉字？？？

最佳答案

月排行榜 / 总排行榜

snrvgbb

2011-2-17 18:21

1. Sub aaa()
   
2. [A1] = "提问"
   
3. [A2] = "ssssss"
   
4. arr = [A1:A2]
   
5. For i = 1 To UBound(arr)
   
6.     If Left(arr(i, 1), 1) Like "[一-龥]" Then
   
7.         MsgBox "汉字"
   
8.     Else
   
9.         MsgBox "非汉字"
   
10.     End If
    
11. Next
    
12. End Sub

复制代码

跳转到最佳答案楼层

snrvgbb

1. Sub aaa()
   
2. [A1] = "提问"
   
3. [A2] = "ssssss"
   
4. arr = [A1:A2]
   
5. For i = 1 To UBound(arr)
   
6.     If Left(arr(i, 1), 1) Like "[一-龥]" Then
   
7.         MsgBox "汉字"
   
8.     Else
   
9.         MsgBox "非汉字"
   
10.     End If
    
11. Next
    
12. End Sub

复制代码

lyn666666

学习了........

xdwy81129

回复 snrvgbb 的帖子

百度都查了下："[一-龥]"

但没有清楚的解释，不知道能否解释下，谢谢

老糊涂

snrvgbb 发表于 2011-2-17 18:21

向高手学习。

yy_hyd

还是这么勤奋，佩服的不行不行的了