驗證單元格以僅接受Excel中IP地址的三種方法

使用Excel時，您知道如何設置一列或一系列單元格以僅接受IP地址格式（xxx.xxx.xxx.xxx）嗎？ 本文提供了幾種處理方法。

---

使用數據驗證功能驗證單元以僅接受IP地址

數據驗證功能可以幫助您限制指定單元格上的有效條目，以僅允許在Excel中輸入IP地址。 請執行以下操作。

1.選擇僅允許輸入IP地址格式的單元格，然後單擊 數據 > 數據驗證。 看截圖：

2.在“數據驗證”對話框中，在“允許”下拉列表中選擇“自定義”，將以下公式複製到“公式”框中，然後單擊“確定”按鈕。

=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。 按 其他 + Q 關閉鍵 Microsoft Visual Basic for Applications 窗口。

從現在開始，您只能在這些指定的單元格中輸入IP地址格式的內容。

如果輸入格式不匹配的內容，則會彈出一個警告框，如下圖所示。

---

輕鬆驗證單元以僅接受具有出色功能的IP地址

1.選擇僅允許輸入IP地址的單元格範圍。 請點擊 庫工具 > 防止打字 > 驗證IP地址。 見截圖：

2.然後在彈出窗口中單擊確定。 Excel的Kutools 對話。

從現在開始，只能將IP地址格式數據輸入到指定的單元格範圍內。