
正規表現を使用して、
・携帯の電話番号をチェックする方法
を記載します!

ここでは
・正しい携帯の電話番号(ハイフンあり)
かどうかをチェックします!
VBAコード
ここでは例として、シート「sample」のセル「C3」の携帯の電話番号をチェックします。
※不正な携帯の電話番号を設定しています。

Option Explicit
Sub sample()
Dim regexp As Object
Set regexp = CreateObject("VBScript.Regexp")
'チェック内容(=パターン)を指定
regexp.Pattern = "^0[789]0-\d{4}-\d{4}$"
'携帯の電話番号をチェック
If regexp.Test(Worksheets("sample").Range("C3")) = False Then
MsgBox ("不正な携帯の電話番号です。")
End If
End Sub
チェック内容(=パターン)は以下です
パターン | 内容 |
---|---|
^ | 直後の文字(ここでは数字の0)が先頭 |
0 | 数字の0 |
[789] | 数字の7 or 8 or 9 |
– | -(ハイフン) |
\d{4} | 数字4桁 |
– | -(ハイフン) |
\d{4} | 数字4桁 |
$ | 直前の文字(ここでは数字4桁)が末尾 |
実行結果
携帯の電話番号が正しく入力されているかチェックすることが出来ました。
