Trzy metody sprawdzania poprawności komórek, aby akceptowały tylko adresy IP w programie Excel

Czy podczas korzystania z programu Excel wiesz, jak skonfigurować kolumnę lub zakres komórek, aby akceptowały tylko format adresu IP (xxx.xxx.xxx.xxx)? W tym artykule przedstawiono kilka metod radzenia sobie z tym problemem.

---

Sprawdź, czy komórki akceptują tylko adresy IP z funkcją Walidacja danych

Funkcja sprawdzania poprawności danych może pomóc w ograniczeniu prawidłowych wpisów w określonych komórkach, aby zezwolić tylko na wprowadzenie adresu IP w programie Excel. Wykonaj następujące czynności.

1. Wybierz komórki, dla których zezwalasz tylko na wpisywanie formatu adresu IP, a następnie kliknij Dane > Walidacja danych. Zobacz zrzut ekranu:

2. W oknie dialogowym Sprawdzanie poprawności danych wybierz opcję Niestandardowe z listy rozwijanej Zezwalaj, skopiuj poniższą formułę do pola Formuła, a następnie kliknij przycisk OK.

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

Uwaga: We wzorze A2 jest pierwszą komórką z wybranego zakresu komórek. Zmień to, jak potrzebujesz.

Odtąd zawartość formatu adresu IP można wprowadzać tylko do tych określonych komórek.

Jeśli zostanie wykryta zawartość w niedopasowanym formacie, pojawi się okno ostrzegawcze, jak pokazano poniżej.

---

---

Sprawdź, czy komórki akceptują tylko adresy IP z kodem VBA

Możesz również zastosować poniższy kod VBA, aby sprawdzić, czy komórki akceptują tylko format adresu IP w programie Excel. Wykonaj następujące czynności.

1. Otwórz arkusz roboczy, w którym sprawdzisz komórki, kliknij prawym przyciskiem myszy kartę arkusza i kliknij Wyświetl kod z menu kontekstowego.

2. W otwarciu Microsoft Visual Basic for Applications skopiuj do niego poniższy kod VBA.

Kod VBA: sprawdź, czy komórki akceptują tylko adresy IP w programie Excel

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

Uwaga: W kodzie A1: A10 to zakres komórek, w którym sprawdzisz poprawność typu danych wejściowych. Zmień zakres w zależności od potrzeb.

3. wciśnij inny + Q klucze do zamknięcia Microsoft Visual Basic for Applications okno.

Odtąd zawartość formatu adresu IP można wprowadzać tylko do tych określonych komórek.

Jeśli zostanie wprowadzona treść o niedopasowanym formacie, pojawi się okno ostrzegawcze, jak pokazano poniżej.

---

Z łatwością sprawdzaj, czy komórki akceptują tylko adresy IP z niesamowitą funkcją

1. Wybierz zakres komórek, w których można wprowadzać tylko adresy IP. Kliknij Kutools > Zapobiegaj pisaniu > Sprawdź poprawność adresu IP. Zobacz zrzut ekranu:

2. Następnie kliknij OK w wyskakującym okienku Kutools dla programu Excel dialog.

Od teraz do określonego zakresu komórek można wprowadzać tylko dane formatu adresu IP.