在 Excel 中驗證儲存格只接受 IP 位址的三種方法

在使用 Excel 時，您是否知道如何設定一列或一組儲存格只接受 IP 位址格式（xxx.xxx.xxx.xxx）？本文提供了幾種方法供您處理此問題。

使用資料驗證功能驗證儲存格只接受 IP 位址

資料驗證功能可以幫助您限制指定儲存格的有效輸入，使其只能輸入 IP 位址格式。請按照以下步驟操作：

1. 選擇您只允許輸入 IP 位址格式的儲存格，然後點擊 資料 > 資料驗證。參見截圖：

2. 在「資料驗證」對話框中，於「允許」下拉列表中選擇「自訂」，將以下公式複製到「公式」框中，然後點擊「確定」按鈕。

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

備註：在公式中，A2 是所選儲存格範圍的第一個儲存格。請根據需要進行更改。

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

如果檢測到不匹配格式的內容，將會彈出如下截圖所示的警告框。

使用 VBA 程式碼驗證儲存格只接受 IP 位址

您還可以應用以下 VBA 程式碼來驗證儲存格只接受 IP 位址格式。請按照以下步驟操作：

1. 打開要驗證儲存格的工作表，右鍵單擊工作表標籤，然後從上下文選單中選擇 查看程式碼。

2. 在打開的 Microsoft Visual Basic for Applications 視窗中，將以下 VBA 程式碼複製到其中。

VBA 程式碼：驗證儲存格只接受 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 對話框中點擊「確定」。

從現在開始，只有 IP 位址格式的數據才能輸入到指定的儲存格範圍內。