Tre metoder för att validera celler för att endast acceptera IP-adress i Excel

Medan du använder Excel, vet du hur man ställer in en kolumn eller ett cellområde för att endast acceptera IP-adressformat (xxx.xxx.xxx.xxx)? Den här artikeln innehåller flera metoder för att hantera det.

---

Validera celler för att endast acceptera IP-adress med datavalideringsfunktionen

Datavalideringsfunktionen kan hjälpa dig att begränsa giltiga poster i angivna celler så att endast IP-adress anges i Excel. Gör så här.

1. Markera de celler som du endast tillåter att IP-adressformat matar in och klicka sedan på Data > Datagransknings. Se skärmdump:

2. I dialogrutan Datavalidering, välj Anpassad i listrutan Tillåt, kopiera nedanstående formel till rutan Formel och klicka sedan på OK-knappen.

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

Notera: I formeln är A2 den första cellen i det valda cellområdet. Ändra det efter behov.

Från och med nu kan du bara ange innehåll för IP-adressformat i dessa angivna celler.

Om oöverträffat formatinnehåll har upptäckts kommer en varningsruta att dyka upp som bilden nedan visas.

---

---

Validera celler för att endast acceptera IP-adress med VBA-kod

Du kan också använda nedanstående VBA-kod för att validera celler för att endast acceptera IP-adressformat i Excel. Gör så här.

1. Öppna kalkylbladet som du validerar celler, högerklicka på arkfliken och klicka Visa kod från snabbmenyn.

2. I öppningen Microsoft Visual Basic för applikationer kopiera nedanstående VBA-kod till den.

VBA-kod: validera celler för att endast acceptera IP-adress i 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

Notera: I koden är A1: A10 det cellområde du kommer att validera inmatningstypen. Ändra intervallet baserat på dina behov.

3. tryck på andra + Q för att stänga Microsoft Visual Basic för applikationer fönster.

Från och med nu kan du bara ange innehåll för IP-adressformat i dessa angivna celler.

Om innehåll som inte matchas i formatet visas en varningsruta som visas nedan.

---

Validera enkelt celler för att endast acceptera IP-adress med en fantastisk funktion

1. Välj det cellområde som du bara tillåter att IP-adress matas in. Klick Kutools > Förhindra skrivning > Verifiera IP-adress. Se skärmdump:

2. Klicka sedan på OK när du dyker upp Kutools för Excel dialog.

Från och med nu kan endast IP-adressformatdata matas in i det angivna cellområdet.