Microsoft Access 掲示板

Microsoft Access 掲示板

文字と数字のデータを分けたい / 5

14 コメント
views
4 フォロー
5
hatena 2023/08/03 (木) 18:19:49

標準の関数だけでやるのは難しいので、VBAでユーザー定義関数を作成してそれを利用することになりますね。

標準モジュールに下記の関数をコピーして貼り付けてください。

Public Function GetVal(s) As Currency
    If Nz(s) = "" Then Exit Function
    
    Dim i As Long
    For i = 1 To Len(s)
        If IsNumeric(Mid(s, i, 1)) Then
            GetVal = Val(Mid(s, i))
            Exit For
        End If
    Next
End Function

クエリのフィールド欄に下記の式を設定します。

外注単価: GetVal([規格・型番])

以上です。
データに数値が含まれない場合は、0 を返すようになってます。

通報 ...