跳到主要内容

验证单元格以仅接受Excel中IP地址的三种方法

添加一名作者 最后修改时间:2020-11-27

使用Excel时,您知道如何设置一列或一系列单元格以仅接受IP地址格式(xxx.xxx.xxx.xxx)吗? 本文提供了几种处理方法。


使用数据验证功能验证单元以仅接受IP地址

数据验证功能可以帮助您限制指定单元格上的有效条目,以仅允许在Excel中输入IP地址。 请执行以下操作。

1.选择仅允许输入IP地址格式的单元格,然后单击 时间 > 数据验证。 看截图:

2.在“数据验证”对话框中,在“允许”下拉列表中选择“自定义”,将以下公式复制到“公式”框中,然后单击“确定”按钮。

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

请注意: 在公式中,A2是所选像元范围的第一个像元。 请根据需要进行更改。

从现在开始,您只能在这些指定的单元格中输入IP地址格式的内容。

如果检测到格式不匹配的内容,将弹出警告框,如下图所示。


轻松单击几下即可验证单元格以仅接受IP地址

我们推荐使用 验证IP地址 实用程序 Kutools for Excel 帮助您轻松设置一系列单元格,以仅允许通过单击输入IP地址。 参见下面的演示:
立即下载并试用! (30 天免费试用)


验证单元以仅接受带有VBA代码的IP地址

您还可以应用下面的VBA代码来验证单元格,使其仅接受Excel中的IP地址格式。 请执行以下操作。

1.打开您将验证单元格的工作表,右键单击工作表选项卡,然后单击 查看代码 从上下文菜单。

2.在开幕 Microsoft Visual Basic应用程序 窗口,将下面的VBA代码复制到其中。

VBA代码:验证单元格以仅接受Excel中的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。 按 其他 + Q 关闭键 Microsoft Visual Basic应用程序 窗口。

从现在开始,您只能在这些指定的单元格中输入IP地址格式的内容。

如果输入格式不匹配的内容,将弹出警告框,如下图所示。


轻松验证单元以仅接受具有出色功能的IP地址

这里介绍一个方便的功能- 验证IP地址 of Kutools for Excel 帮助您快速验证单元格,仅需单击几次即可接受IP地址。

在进行以下操作之前,请 去下载并安装 Kutools for Excel 首先。

1.选择仅允许输入IP地址的单元格范围。 请点击 库工具 > 防止打字 > 验证IP地址。 看截图:

2.然后在弹出窗口中单击“确定”。 Kutools for Excel 对话。

从现在开始,只能将IP地址格式数据输入到指定的单元格范围内。

  如果您想免费试用(30天)此实用程序, 请点击下载,然后按照上述步骤进行操作。

最佳办公生产力工具

🤖 Kutools 人工智能助手:基于以下内容彻底改变数据分析: 智能执行   |  生成代码  |  创建自定义公式  |  分析数据并生成图表  |  调用 Kutools 函数...
热门特色: 查找、突出显示或识别重复项   |  删除空白行   |  合并列或单元格而不丢失数据   |   不使用公式进行四舍五入 ...
超级查询: 多条件VLookup    多值VLookup  |   跨多个工作表的 VLookup   |   模糊查询 ....
高级下拉列表: 快速创建下拉列表   |  依赖下拉列表   |  多选下拉列表 ....
列管理器: 添加特定数量的列  |  移动列  |  切换隐藏列的可见性状态  |  比较范围和列 ...
特色功能: 网格焦点   |  设计图   |   大方程式酒吧    工作簿和工作表管理器   |  资源库 (自动文本)   |  日期选择器   |  合并工作表   |  加密/解密单元格    按列表发送电子邮件   |  超级筛选   |   特殊过滤器 (过滤粗体/斜体/删除线...)...
前 15 个工具集12 文本 工具 (添加文本, 删除字符,...)   |   50+ 图表 类型 (甘特图,...)   |   40+ 实用 公式 (根据生日计算年龄,...)   |   19 插入 工具 (插入二维码, 从路径插入图片,...)   |   12 转化 工具 (小写金额转大写, 货币兑换,...)   |   7 合并与拆分 工具 (高级组合行, 分裂细胞,...)   |   ... 和更多

使用 Kutools for Excel 增强您的 Excel 技能,体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。  单击此处获取您最需要的功能...

描述


Office Tab 为 Office 带来选项卡式界面,让您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations