¦p¦ó§PÂ_Àx¦s®æ¤º¬°¤å¦r©Î¼Æ¦r©Î¤å¦r¥[¼Æ¦r

yanto913

³o¬O§Ú¥ý¼g²³æ¥ÎªºVBA
¥Îªk¬O999999999~-999999999§P©w¬°¼Æ¦r¡A¥H¥~ªº§P©w¬°¤å¦r(·|¦³§PÂ_¿ù»~ªº¥i¯à)
½Ð±Ð¦U¦ì¥ý¶i¦³¤°»ò¤èªk¥i§PÂ_Àx¦s®æ¬°¤å¦r©O?
¨Ò¦p§Ú·Qª¾¹DG10¬°
1.¼Æ¦r
2.¤å¦r
3.¼Æ¦r+¤å¦rªº²V¦X
¬Æ¦Ü¯à§PÂ_¨ì¦r¬°¤¤¤å¦rÁÙ¬O­^¤å¦r¨º´N¯uªº¤Ó¯«©_¤F
¤]´N¬O
4.¼Æ¦r+¤¤¤å¦r+­^¤å¦r

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