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

mhl9mhl9

±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