如何区分字符串首字是否汉字
时间:2011-08-04
来源:互联网
作者: xiedl 发布时间: 2011-08-04
作者: livewire 发布时间: 2011-08-04
代码:
For i = 48 To 122If i = 58 Then i = 65
If i = 91 Then i = 97
If x = Chr(i) Then k = 9
Next
If k <> 9 Then MsgBox "非数字非字母"
作者: 白云2011 发布时间: 2011-08-04
作者: zez 发布时间: 2011-08-04
作者: uug 发布时间: 2011-08-04



=IF(A1<"吖","非","")&"汉字"
[ 本帖最后由 一指禅 于 2011-8-4 08:46 编辑 ]
作者: 一指禅 发布时间: 2011-08-04
引用:
原帖由 zez 于 2011-8-4 07:52 发表=IF(LEN(LEFT(A1,1))=LENB(LEFT(A1,1)),"非","")&"汉字"
IF(left(A1,1)>="吖","","非")&"汉字" 这个是什么原理?
作者: minjiwei 发布时间: 2011-08-04
我本来想在VBA程序中使用,所以直接在代码中启用EXCEL函数,我不会用,该怎么写?请教!
还是ASC函数,奇怪:asc("汉字")居然是负值,那我可以用 ASC(S) 是否>0 来区分?
作者: xiedl 发布时间: 2011-08-05
Mystr = "ab1"
If Mystr Like "[一-龥]*" Then MsgBox "汉字" Else MsgBox "非汉字"
Mystr = "和c"
If Mystr Like "[一-龥]*" Then MsgBox "汉字" Else MsgBox "非汉字"
End Sub
作者: 白云2011 发布时间: 2011-08-05
作者: 白云2011 发布时间: 2011-08-05
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读:74
-
如何安装mysql8.0
阅读:31
-
Word快速设置标题样式步骤详解
阅读:28
-
20+道必知必会的Vue面试题(附答案解析)
阅读:37
-
HTML如何制作表单
阅读:22
-
百词斩可以改天数吗?当然可以,4个步骤轻松修改天数!
阅读:31
-
ET文件格式和XLS格式文件之间如何转化?
阅读:24
-
react和vue的区别及优缺点是什么
阅读:121
-
支付宝人脸识别如何关闭?
阅读:21
-
腾讯微云怎么修改照片或视频备份路径?
阅读:28