[已解决][求助] 怎样用 LI判断一个单元格里是非中文？请指点一下。

jianwu1106

[求助] 怎样用 Like 判断一个单元格里是非中文？请指点一下。

最佳答案

月排行榜 / 总排行榜

happym8888

2012-3-11 02:19

If Not str Like "*[一-龥]*" then

If Not Range("A1").value  Like "*[一-龥]*" then

跳转到最佳答案楼层

happym8888

If Not str Like "*[一-龥]*" then

If Not Range("A1").value  Like "*[一-龥]*" then

那么的帅

1. 
   
2.     S = Range("A1")
   
3.     Y = True
   
4.     For I = 1 To Len(S)
   
5.         S1 = Mid(S, I, 1)
   
6.         If Not (S1 Like "[一-龥]") Then
   
7.             Y = False
   
8.             Exit For
   
9.         End If
   
10.     Next I
    
11.     'Y=FALSE 时，A1单元格有非汉字，Y=TRUE ，A1单元格全部为汉字
    

复制代码

happym8888

那么的帅 发表于 2012-3-11 02:22

帅老师你还不睡啊？

TTTTT

向夜猫子们致敬，同时学习代码、留脚印。

曹洪峰

我没弄懂？
不好意

那么的帅

happym8888 发表于 2012-3-11 02:24
帅老师你还不睡啊？

你不睡，我哪能睡？