Private Sub Worksheet_Change(ByVal Target As Range)
'IPのチェック
Dim RegEx As Object
Set RegEx =CreateObject("vbscript.regexp")
RegEx.Global = True
RegEx.Pattern ="^(\d{1,2}|1\d\d|2[0-4]\d|25[0-5])\.(\d{1,2}|1\d\d|2[0-4]\d|25[0-5])\.(\d{1,2}|1\d\d|2[0-4]\d|25[0-5])\.(\d{1,2}|1\d\d|2[0-4]\d|25[0-5])$"
If Not (RegEx.Test(Target.Text))Then
Target.Characters(Start:=1,Length:=Len(Target.Text)).Font.ColorIndex = 3
MsgBox ("IPアドレスは違います。")
End If
End Sub