文字列から数値のみを取得するには？ (ID:91265)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 自分で作って見ました。 Private Function GetNumValue(ByVal strData As String) As Long On Error GoTo ErrHandler Dim i As Integer Dim strChar As String Dim strWork As String For i = 1 To Len(strData) strChar = Mid$(strData, i, 1) Select Case strChar Case 0 To 9 strWork = strWork & strChar End Select Next i GetNumValue = strWork Exit Function ErrHandler: GetNumValue = 0 End Function