- ©«¤l
- 764
- ¥DÃD
- 254
- ºëµØ
- 0
- ¿n¤À
- 1031
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 11
- ³nÅ骩¥»
- OFFICE2021
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-5-30
- ³Ì«áµn¿ý
- 2025-5-1
|
§A¥i¥H Run ¤U±¬Ý¬Ý
Sub xx()
[a1] = "1¥¬2"
If Asc(Mid([a1], 2, 1)) < 0 Then [a2] = 1
[ ...
bobomi µoªí©ó 2015-5-1 09:57 
§Ú§â±zªºÈ "1¥¬2" "123"©ñ¤J a1 ´ú¸Õ¨S°ÝÃD
Sub MA3333_Click()
Dim k As Integer
For k = 1 To Len([A1])
If Asc(Mid([a1], k, 1)) < 0 Then
MsgBox Mid([a1], k, 1)
End If
Next
End Sub
¥t¥~¦A¸É§PÂ_¨ä¥L ^¤å¡A¼Æ¦r........ªº¤èªk
§PÂ_0-9 ===> If Mid([a1], 2, 1) Like "[0-9]" Then
[^A-Za-z]«D^¤å¦r [^0-9] «D¼Æ¦r [^0-9A-Za-z] °£¤F^¤å©M¼Æ¦r¤§¥~ªº¦r¤¸
^ªí¥Ü¤£¬O |
|