Три метода проверки ячеек для приема только IP-адресов в Excel

При использовании Excel знаете ли вы, как настроить столбец или диапазон ячеек, чтобы они принимали только формат IP-адреса (xxx.xxx.xxx.xxx)? В этой статье представлены несколько методов для решения этой задачи.

Проверка ячеек для приема только IP-адресов с помощью функции Проверка данных

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

1. Выберите ячейки, куда можно вводить только формат IP-адреса, затем нажмите Данные > Проверка данных. См. скриншот:

2. В диалоговом окне Проверка данных выберите Пользовательский в раскрывающемся списке Разрешить, скопируйте приведенную ниже формулу в поле Формула и нажмите кнопку ОК.

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

Примечание: В формуле A2 является первой ячейкой выбранного диапазона ячеек. Измените её по необходимости.

С этого момента вы сможете вводить только содержимое в формате IP-адреса в эти указанные ячейки.

Если будет обнаружено содержимое несоответствующего формата, появится окно предупреждения, как показано на скриншоте ниже.

Проверка ячеек для приема только IP-адресов с помощью кода VBA

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

1. Откройте лист, где нужно проверить ячейки, щелкните правой кнопкой мыши по вкладке листа и выберите Просмотр кода из контекстного меню.

2. В открывшемся окне Microsoft Visual Basic for Applications скопируйте приведенный ниже код 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. Нажмите клавиши Alt + Q, чтобы закрыть окно Microsoft Visual Basic for Applications.

С этого момента вы сможете вводить только содержимое в формате IP-адреса в эти указанные ячейки.

Если введено содержимое несоответствующего формата, появится окно предупреждения, как показано на скриншоте ниже.

Легко проверьте ячейки для приема только IP-адресов с помощью отличной функции

1. Выберите диапазон ячеек, куда можно вводить только IP-адреса. Нажмите Kutools > Ограничить ввод > Проверка IP-адреса. См. скриншот:

2. Затем нажмите OK в появившемся диалоговом окне Kutools для Excel.

С этого момента в указанный диапазон ячеек можно вводить только данные в формате IP-адреса.