ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[¤À¨É] 数¦r¨ç数

[¤À¨É] 数¦r¨ç数

Function 数¦r(ByVal rang As String)
Dim i As Integer, str As Integer
For i = 1 To Len(rang) '¹M历单¤¸®æ¤¤¨C个¦r²Å
If VBA.IsNumeric(Mid(rang, i, 1)) Then
str = str & Mid(rang, i, 1)
End If
Next i
数¦r = str
End Function
学习

str = str Mid(rang, i, 1)
¦n¹³À³¬°
str = str & Mid(rang, i, 1)

TOP

¶K¥N½X½Ð¥Î¥N½X®Ø¬[¡A´N¬O¤W­±ªº"<>''²Å¸¹
§K±o±¼¦r±¼²Å¸¹¡C

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD