Excelでセルを検証してIPアドレスのみを受け入れるための3つの方法

Excelを使用する際、列やセル範囲を設定してIPアドレス形式（xxx.xxx.xxx.xxx）のみを受け入れるようにする方法をご存知ですか？この記事では、その問題に対処するためのいくつかの方法をご紹介します。

データ検証機能を使用してセルをIPアドレスのみ受け入れるように検証する

データ検証機能は、指定されたセルに有効な入力を制限し、ExcelでIPアドレスのみが入力されるようにするのに役立ちます。以下の手順に従ってください。

1. IPアドレス形式での入力のみを許可したいセルを選択し、次に「データ」＞「データの検証」をクリックします。スクリーンショットをご覧ください：

2. 「データの検証」ダイアログボックスで、「許可」ドロップダウンリストから「カスタム」を選択し、以下の数式を「数式」ボックスにコピーしてから「OK」ボタンをクリックします。

=AND((LEN(A2)-LEN(SUBSTITUTE(A2,".","")))=3,ISNUMBER(SUBSTITUTE(A2,".","")+0))

注釈: 数式内のA2は選択したセル範囲の最初のセルです。必要に応じて変更してください。

これで、これらの指定されたセルにはIPアドレス形式の内容のみを入力できるようになります。

一致しない形式の内容が検出された場合、下記のスクリーンショットのように警告ボックスが表示されます。

VBAコードを使用してセルをIPアドレスのみ受け入れるように検証する

以下のVBAコードを適用して、ExcelでセルをIPアドレス形式のみ受け入れるように検証することもできます。以下の手順に従ってください。

1. 検証するワークシートを開き、シートタブを右クリックしてコンテキストメニューから「コードの表示」をクリックします。

2. 開いたMicrosoft Visual Basic for Applicationsウィンドウに、以下のVBAコードをコピーします。

VBAコード: ExcelでセルをIPアドレスのみ受け入れるように検証する

Private Sub Worksheet_Change(ByVal Target As Range)
'Update by ExtendOffice 20180809
Dim xArrIp() As String
Dim xIntIP1, xIntIP2, xIntIP3, xIntIP4 As Integer
If Intersect(Target, Range("A2:A10")) Is Nothing Then
    Exit Sub
Else
    If Target = "" Then
        Exit Sub
    End If
    xArrIp = Split(Target.Text, ".")
    If UBound(xArrIp) <> 3 Then
        GoTo EIP
    Else
    xIntIP1 = CInt(xArrIp(0))
    xIntIP2 = CInt(xArrIp(1))
    xIntIP3 = CInt(xArrIp(2))
    xIntIP4 = CInt(xArrIp(3))
    If (xIntIP1 < 1) Or (xIntIP1 > 255) _
    Or (xIntIP2 < 1) Or (xIntIP2 > 255) _
    Or (xIntIP3 < 1) Or (xIntIP3 > 255) _
    Or (xIntIP4 < 1) Or (xIntIP4 > 255) Then
    GoTo EIP
     End If
    End If
End If
Exit Sub
EIP:
    MsgBox "Please enter correct IP address"
    Target = ""
End Sub

注釈: コード内のA1:A10は、入力タイプを検証するセル範囲です。必要に応じて範囲を変更してください。

3. Alt + Qキーを押してMicrosoft Visual Basic for Applicationsウィンドウを閉じます。

これで、これらの指定されたセルにはIPアドレス形式の内容のみを入力できるようになります。

一致しない形式の内容が入力された場合、下記のスクリーンショットのように警告ボックスが表示されます。

素晴らしい機能を使って簡単にセルをIPアドレスのみ受け入れるように検証する

1. IPアドレスのみを入力可能にするセル範囲を選択します。「Kutools」＞「入力を制限する」＞「IPアドレスの検証」をクリックします。スクリーンショットをご覧ください：

2. 表示されたKutools for Excelダイアログで「OK」をクリックします。

これで、指定されたセル範囲にはIPアドレス形式のデータのみを入力できるようになります。