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

[¤À¨É] ±qstring¤¤¨ú¥X¼Æ¦r

[¤À¨É] ±qstring¤¤¨ú¥X¼Æ¦r

±qstring¤¤¨ú¥X¼Æ¦r,ı±o¦n¥Î,¶K¥X¤j®a¤À¨É,¥X³B¤w¤£°O±o¤F
¤¤¤å¥X²{¶Ã½X´N§R°£¤F

Function GetNumbers(TargetText As Variant) As String
    Dim LenStr As Long
    For LenStr = 1 To Len(TargetText)
        Select Case Asc(Mid(TargetText, LenStr, 1))
        Case 48 To 57
            GetNumbers = GetNumbers & Mid(TargetText, LenStr, 1)
        End Select
    Next
   
    GetNumbers = CDbl(GetNumbers)

End Function
lmh

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD