请问:
Application.WorksheetFunction.IsNumber(“A1”) '使用工作表函数检查A1单元格中的数据是否为数字
那么,使用工作表函数检查A1单元格中的数据是否为汉字、英文又是怎么表达?
使用道具 举报
用vba的函数isnumeric可以判断数字
判断文本用istext
汉字4E00-9FA5或"一"-"龥"
英文A-Za-z
用LIKE进行比较,或者正则匹配。
Sub b() Select Case Asc(Range("a1")) Case Is < 0 MsgBox "汉字" Case 48 To 57 MsgBox "数字" Case 65 To 90 MsgBox "大写字母" Case 97 To 122 MsgBox "小写字母" End SelectEnd Sub
[em09]
谢谢各位,收藏了!
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )
GMT+8, 2024-9-21 18:22 , Processed in 0.323962 second(s), 5 queries , Gzip On, Yac On.
Powered by Discuz! X3.4
Copyright © 2001-2020, Tencent Cloud.