標題: [分享] 從string中取出數字 [打印本頁]

---

作者: mhl9mhl9    時間: 2013-7-15 22:22     標題: 從string中取出數字

從string中取出數字,覺得好用,貼出大家分享,出處已不記得了
中文出現亂碼就刪除了

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)