【EXCEL VBA】数字だけを抽出するオリジナルの関数を作成する

訪問して頂きありがとうございます。まさふくろーです。

この記事では、数字だけを抽出するオリジナルの関数を作成する方法をご紹介します。

数字だけを抽出するオリジナルの関数を作成する
作成手順
オリジナル関数をどのファイルからでも使えるようにする
- アドインファイルの作成
- アドインファイルの取り込み

数字だけを抽出するオリジナルの関数を作成する

作成手順

VBEの起動

起動方法は、VBE(Visual Basic Editor)の起動手順まとめをご覧ください。

標準モジュールの作成

①「挿入」を選択⇒②「標準モジュール」を選択し、標準モジュールを作成します。

VBAコードの入力

VBE(Visual Basic Editor)のピンク枠の部分に、VBAコードを入力していきます。

入力するコードは以下になります。

Function GetNumber(Target As String) As Variant

    Dim i As Integer
    Dim NowPos As Integer
    Dim buf As String
    
    NowPos = 1
    buf = ""

    For i = 1 To Len(Target)
        
        If IsNumeric(Mid(Target, NowPos, 1)) = True Then
            buf = buf + Mid(Target, NowPos, 1)
        End If
        
        NowPos = NowPos + 1
    
    Next

    If buf = "" Then
        GetNumber = ""
    Else
        GetNumber = CDbl(buf)
    End If

End Function

Function GetNumber(Target As String) As Variant

Dim i As Integer

Dim NowPos As Integer

Dim buf As String

NowPos = 1

buf = ""

For i = 1 To Len(Target)

If IsNumeric(Mid(Target, NowPos, 1)) = True Then

buf = buf + Mid(Target, NowPos, 1)

End If

NowPos = NowPos + 1

If buf = "" Then

GetNumber = ""

Else

GetNumber = CDbl(buf)

End If

End Function

3	繰り返し処理用の変数「i」を用意。
4	対象文字列の先頭から1文字ずつチェックするための変数「NowPos 」を用意。
5	対象文字列から数値のみを保持しておく変数「buf 」を用意。
7,8	変数の初期化。
10	対象文字列の1文字目～文字列の長さ分、処理を繰り返す。
12	対象文字列を1文字ずつ、数値かどうかをチェックする。
13	チェックした結果、数値だった場合、変数に格納。
16	1つずつカウントアップし、チェックする文字列を動的に変える。
20～24	対象文字列に数値が含まれているかによって、戻り値の値を変える。