VBA 判断全角半角

最新推荐文章于 2024-08-09 09:33:36 发布

weixin_33938733

最新推荐文章于 2024-08-09 09:33:36 发布

阅读量1.9k

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/yuzhengdong/p/3468607.html

Option Explicit
Sub N_Sample034()
    Dim a As String
    a = Application.InputBox(Prompt:="请输入一个字符")
    Select Case True
        Case a Like "[A-Z]": MsgBox "半角英文大写"
        Case a Like "[a-z]": MsgBox "半角英文小写"
        Case a Like "[Ａ-Ｚ]": MsgBox "全角英文大写"
        Case a Like "[a-z]": MsgBox "全角英文小写"
        Case a Like "[0-9]": MsgBox "半角数字"
        Case a Like "[０-９]": MsgBox "全角数字"
        Case Else: MsgBox "中文字符或者符号"
    End Select
End Sub