- 帖子
- 10
- 主題
- 2
- 精華
- 0
- 積分
- 12
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2003或2010
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2014-11-20
- 最後登錄
- 2014-12-24
|
本帖最後由 chingmac 於 2014-12-22 01:27 編輯
回復 7# t8899
不是這樣喔！除了英文、數字、中文以外，還有符號喔！(例如!@#$....，甚至空白鍵、Esc之類的)，可用ASCII碼去區別- Sub Ex()
- '假設要判斷的文字+數字放在A1儲存格
- Dim j
- For j = 1 To Len(Sheets("sheet1").Range("A1"))
- With Range("A1").Characters(Start:=j, Length:=1).Font
- If Mid(Range("A1"), j, 1) Like "[0-9]" Then '是數字
- .ColorIndex = 3
- ElseIf Mid(Range("A1"), j, 1) Like "[A-Z]" Then '是大寫英文字母
- .ColorIndex = 8
- ElseIf Mid(Range("A1"), j, 1) Like "[a-z]" Then '是小寫英文字母
- .ColorIndex = 4
- ElseIf Asc(Mid(Range("A1"), j, 1)) > 0 Then '不是數字也不是英文也不是中文的其他符號
- .ColorIndex = 1
- ElseIf Asc(Mid(Range("A1"), j, 1)) < 0 Then '是中文
- .ColorIndex = 5
- End If
- End With
- Next
- End Sub
|
|
發表於 2014-12-22 01:26
| 