Три способи перевірки комірок для прийняття лише IP-адреси в Excel

Використовуючи Excel, чи знаєте ви, як налаштувати стовпець або діапазон комірок, щоб приймати лише формат IP-адреси (xxx.xxx.xxx.xxx)? У цій статті наведено кілька методів боротьби з нею.

---

Перевірте комірки, щоб прийняти лише IP-адресу з функцією перевірки даних

Функція перевірки даних може допомогти вам обмежити допустимі записи у вказаних клітинках, дозволяючи лише вводити IP-адресу в Excel. Будь ласка, виконайте наступне.

1. Виділіть клітинки, для яких дозволено лише введення формату IP-адреси, а потім натисніть дані > Перевірка достовірності даних. Дивіться знімок екрана:

2. У діалоговому вікні Перевірка даних виберіть Власний у розкривному списку Дозволити, скопіюйте формулу нижче у поле Формула, а потім натисніть кнопку OK.

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

Примітка: У формулі A2 є першою клітинкою вибраного діапазону комірок. Будь ласка, змініть його, як вам потрібно.

Відтепер ви можете вводити лише вміст формату IP-адреси у зазначені комірки.

Якщо виявлено вміст неперевершеного формату, з’явиться попереджувальне вікно, як показано нижче.

---

---

Перевірте комірки, щоб приймати лише IP-адресу з кодом VBA

Ви також можете застосувати наведений нижче код VBA для перевірки комірок, щоб прийняти лише формат IP-адреси в Excel. Будь ласка, виконайте наступне.

1. Відкрийте аркуш, в якому ви перевірите клітинки, клацніть правою кнопкою миші вкладку аркуша та клацніть Переглянути код з контекстного меню.

2. На відкритті Microsoft Visual Basic для додатків вікно, скопіюйте в нього код VBA нижче.

Код VBA: перевірити комірки, щоб прийняти лише IP-адресу в 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

Примітка: У коді A1: A10 - це діапазон комірок, який ви перевірятимете тип введення. Будь ласка, змініть асортимент відповідно до ваших потреб.

3 Натисніть кнопку інший + Q клавіші, щоб закрити Microsoft Visual Basic для додатків вікна.

Відтепер ви можете вводити лише вміст формату IP-адреси у зазначені комірки.

Якщо введено неперевершений вміст формату, з’явиться попереджувальне вікно, як показано нижче.

---

Легко перевіряйте комірки, щоб приймати лише IP-адреси з чудовою функцією

1. Виберіть діапазон комірок, для яких дозволяється вводити лише IP-адресу. Клацніть Кутулс > Запобігання друку > Перевірте IP-адресу. Дивіться знімок екрана:

2. Потім натисніть OK в спливаючому вікні Kutools для Excel діалог

Відтепер у вказаний діапазон комірок можна вводити лише дані формату IP-адреси.