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 = "¼Æ¦r"
    
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("¼Æ¦r") = ""
    
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

½Æ»s¥N½X