VBA,半角英数字,チェック

EXCEL VBAで正規表現による半角英数字をチェックするさせる方法を教えてください

こんな悩みに回答します。

非表示にできる< 目次 >

こんな悩みの人向け

正規表現により半角英数字をチェックしたい人

これをやりたい人には様々な理由があると思います。

例えば、EXCELを入力フォーマットとして利用していた場合、後続処理の関係で、入力値が正しいかどうかを自動で確定させたい・・・など。

僕の場合は、VBAでWebスクレイピングする際、ログインID/PWを事前にEXCELに入力してもらう方式を取ってるんですが、そういった場合に正規表現は活用してますね。

Nakamura

正規表現は奥が深いので、今回は「半角英数字」に絞っておりますゆえ、お許しください。

基本的にコピペでOKです。VBAの使い方が分からない人は、この辺の記事をどうぞ。

Nakamura

: 【説明】VBEで作成したVBAコードの実行方法【EXCEL VBA】

続きを見る

: 【解説付】マクロ・VBE・VBAの違いの説明【EXCEL VBA】

続きを見る

ということで、説明となります。

コードの紹介（結論）※コピペでOK

コードは至ってシンプルで、以下の通り。

Functionの方が、使い勝手が良いので、Functionで記載しております。

'***********************************************
'正規表現による半角英数字チェック
' <チェック項目>
' 半角英数値で入力してあること
'***********************************************
Public Function chk_hankakueisuzi(InputStr As String) As Boolean
    Dim objReg As Object
    Set objReg = CreateObject("VBScript.RegExp")
    objReg.IgnoreCase = True  '大文字と小文字の区別をしない
    objReg.Pattern = "^[a-zA-Z0-9]+$"
    chk_hankakueisuzi = objReg.Test(InputStr)  '英数字がある場合は True、ない場合は False が戻る
    Set objReg = Nothing
End Function

'***********************************************

'正規表現による半角英数字チェック

' <チェック項目>

' 半角英数値で入力してあること

'***********************************************

Public Function chk_hankakueisuzi(InputStr As String) As Boolean

Dim objReg As Object

Set objReg = CreateObject("VBScript.RegExp")

objReg.IgnoreCase = True '大文字と小文字の区別をしない

objReg.Pattern = "^[a-zA-Z0-9]+$"

chk_hankakueisuzi = objReg.Test(InputStr) '英数字がある場合は True、ない場合は False が戻る

Set objReg = Nothing

End Function

重要なポイント

このFunctionは Boolean型で返り値（True/False）が出力されます。
「英数字だけで構成されている場合は True、そうでない場合は False 」が戻る仕様となっています。

実行したいSub～End Sub の間に「chk_hankakueisuzi（対象文字列)」と記入すれば、True/Falseが判明します。

VBAで正規表現をやろうとしている人は、VBA中級者以上だと思いますので、Functionの詳細な説明は省きますね！

Nakamura

検証用のテストコード

簡単ですが、検証用のテストコードを紹介しますね。

Public Sub 正規表現_動作確認()
   Dim Str1 As String
   Dim Str2 As String
   Dim Str3 As String
   Dim Str4 As String
   Dim Str5 As String
   Dim Str6 As String
   Dim Str7 As String
   Dim Str8 As String
   Dim Str9 As String
   
   Str1 = "a"           '半角英字のみ 　　（結果：True）
   Str2 = "123"         '半角数字のみ 　　（結果：True）
   Str3 = "a123"        '半角英字＋数字 　（結果：True）
   Str4 = "日本語"      '日本語　　　　　 （結果：False）
   Str5 = "a123日本語"  '半角英数字+日本語（結果：False）
   
   Str6 = "Ａ"              '全角英字　 　（結果：False）
   Str7 = "１２３"          '全角数字　　 （結果：False）
   Str8 = "Ａ１２３日本語"  '全角英数字+日本語（結果：False）

   
   Debug.Print "①半角英字のみ："; chk_hankakueisuzi(Str1)
   Debug.Print "②半角数字のみ："; chk_hankakueisuzi(Str2)
   Debug.Print "③半角英字＋数字："; chk_hankakueisuzi(Str3)
   Debug.Print "④日本語："; chk_hankakueisuzi(Str4)
   Debug.Print "⑤半角英数字+日本語："; chk_hankakueisuzi(Str5)
   
   Debug.Print "⑥全角英字："; chk_hankakueisuzi(Str6)
   Debug.Print "⑦全角数字："; chk_hankakueisuzi(Str7)
   Debug.Print "⑧半角英数字+日本語："; chk_hankakueisuzi(Str8)

End Sub

Public Sub 正規表現_動作確認()

Dim Str1 As String

Dim Str2 As String

Dim Str3 As String

Dim Str4 As String

Dim Str5 As String

Dim Str6 As String

Dim Str7 As String

Dim Str8 As String

Dim Str9 As String

Str1 = "a" '半角英字のみ　　（結果：True）

Str2 = "123" '半角数字のみ　　（結果：True）

Str3 = "a123" '半角英字＋数字　（結果：True）

Str4 = "日本語" '日本語　　　　　（結果：False）

Str5 = "a123日本語" '半角英数字+日本語（結果：False）

Str6 = "Ａ" '全角英字　　（結果：False）

Str7 = "１２３" '全角数字　　（結果：False）

Str8 = "Ａ１２３日本語" '全角英数字+日本語（結果：False）

Debug.Print "①半角英字のみ："; chk_hankakueisuzi(Str1)

Debug.Print "②半角数字のみ："; chk_hankakueisuzi(Str2)

Debug.Print "③半角英字＋数字："; chk_hankakueisuzi(Str3)

Debug.Print "④日本語："; chk_hankakueisuzi(Str4)

Debug.Print "⑤半角英数字+日本語："; chk_hankakueisuzi(Str5)

Debug.Print "⑥全角英字："; chk_hankakueisuzi(Str6)

Debug.Print "⑦全角数字："; chk_hankakueisuzi(Str7)

Debug.Print "⑧半角英数字+日本語："; chk_hankakueisuzi(Str8)

End Sub

検証するのが面倒な人向けに、検証用コードの出力結果をキャプチャを貼っておきます。

イミディエイトウィンドウにTrue/Falseが出力されてるのが分かります。

Nakamura

VBA_正規表現_テストコードの検証結果

余談：RegExp のちょっとした解説

RegExpとは

紹介コードに「Set objReg = CreateObject("VBScript.RegExp")」というのがあったと思います。

この「RegExp」は「Regular Expressions（意味：正規表現）」の略となります。

で、「CreateObject("VBScript.〇〇")」は、このRegExpを使用する際の構文となります。

つまり、雑な言い方ですが、「RegExp」を使って、正規表現チェックしまっせー、の意味になります。

CreateObject系は、分からなくても大丈夫ですよー。必要な時に、Googleで検索して都度使用すれば良いと思います。

Nakamura

RegExpについて

RegExpについて、プロパティ及びメソッドは以下の通り。

プロパティ	説明
Global	検索文字列全体にを検索する(True)か、最初の一致を検索する(既定値：False)のかを設定
Pattern	検索時のパターンを設定
IgnoreCase	検索時に大文字と小文字を区別する(既定値：False)か、区別しない(True)かの設定値

※青文字：本記事紹介コードで利用しているもの

メソッド	説明
Execute	objReg.Execute(string) 指定された文字列を正規表現で検索。見つかった文字列毎に存在するMatchオブジェクトを含むMatchesコレクションを返す。
Replace	objReg.Replace(string1, string2) 検索されたstring1→string2へ文字列を置換
Test	objReg.Test(string) パターンに一致する文字列が検索された場合、Trueを返します。見つからない場合、Falseを返す。

※青文字：本記事紹介コードで利用しているもの

ここまで読んだところで、本記事で紹介しているコード（同じ）を再度見てみましょう。

'***********************************************
'正規表現による半角英数字チェック
' <チェック項目>
' 半角英数値で入力してあること
'***********************************************
Public Function chk_hankakueisuzi(InputStr As String) As Boolean
    Dim objReg As Object
    Set objReg = CreateObject("VBScript.RegExp")
    objReg.IgnoreCase = True  '大文字と小文字の区別をしない
    objReg.Pattern = "^[a-zA-Z0-9]+$"
    chk_hankakueisuzi = objReg.Test(InputStr)  '英数字がある場合は True、ない場合は False が戻る
    Set objReg = Nothing
End Function