如何判斷儲存格內為文字或數字或文字加數字

yanto913

這是我先寫簡單用的VBA
用法是999999999~-999999999判定為數字，以外的判定為文字(會有判斷錯誤的可能)
請教各位先進有什麼方法可判斷儲存格為文字呢?
例如我想知道G10為
1.數字
2.文字
3.數字+文字的混合
甚至能判斷到字為中文字還是英文字那就真的太神奇了
也就是
4.數字+中文字+英文字

Hsieh

回復 1# yanto913

1. Private Sub CommandButton1_Click()
   
2. MsgBox StrType([G10])
   
3. [G10].Select
   
4. End Sub
   
5. Function StrType(Mystr)
   
6. Set d = CreateObject("Scripting.Dictionary")
   
7. If IsEmpty(Mystr) Then
   
8.    StrType = "空白"
   
9.    ElseIf IsNumeric(Mystr) Then
   
10.    StrType = "數字"
    
11.    Else
    
12.    For i = 1 To Len(Mystr)
    
13.      k = AscW(Mid(Mystr, i))
    
14.      Select Case k
    
15.      Case 48 To 57
    
16.      d("數字") = ""
    
17.      Case 65 To 90, 97 To 122
    
18.      d("英文") = ""
    
19.      Case 0 To 47, 58 To 64, 91 To 96, 122 To 255
    
20.       d("符號") = ""
    
21.     Case Else
    
22.     d("中文") = ""
    
23.     End Select
    
24.     Next
    
25.    StrType = Join(d.keys, ",")
    
26. End If
    
27. End Function

複製代碼