VBA 判断全角半角
摘要:
Option ExplicitSub 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 "[A-Z]": MsgBox "全角英文大写" Case a Li 阅读全文
posted @ 2013-12-11 08:57 鱼东鱼 阅读(1137) 评论(0) 推荐(0) 编辑