如何在Excel中验证/确认数据

我们可以在单元格中(通过Excel中的“数据”选项卡提供)或从VBA代码中添加验证,如下所示。

作为另一种选择,可以将条件格式应用于已知仅包含电子邮件地址或邮政编码等的单元格。相关菜单位于Excel的“主页”选项卡上。

用户可以使用以上选项输入新数据。

如果工作表中已经有需要验证的数据,我们可以在VBA中使用正则表达式(由Joachim Pense建议),如下面的电子邮件验证示例所示:

‘在示例中的活动工作表中为单元格添加验证,范围:B4

子addValidation()

具有Range(“ B4”)。Validation
。删除
。添加类型:= xlValidateWholeNumber,_
AlertStyle:= xlValidAlertStop,_
运算子:= xlBetween,公式1:=“ 5”,公式2:=“ 10”
.InputTitle =“整数”
.ErrorTitle =“整数”
.InputMessage =“输入一个从五到十的整数”
.ErrorMessage =“您必须输入从五到十的数字”
结束于

结束子
‘================================================= =
‘电子邮件验证
子validateExpression()

Dim strEmail作为字符串
strEmail =“ [受电子邮件保护] ”

致电validateEmail(strEmail)

结束子
‘================================================= =
‘使用正则表达式来验证电子邮件
子validateEmail(myString)

Dim regX作为RegExp
昏暗mtch作为匹配项
昏暗的matchCol作为MatchCollection
昏暗味精作为字符串
设置regX = New RegExp

regX.Pattern =“ ^ \ w +([-。’] \ w +)* @ \ w +([-。] \ w +)* \。\ w +([-。] \ w +)* $”

如果regX.Test(myString)然后
设置mtchcol = regX.Execute(myString)
对于mtchcol中的每个mtch
msg = msg&Chr(10)&mtch.Value&vbTab&“ Index:”&mtch.FirstIndex
下一个
MsgBox(“以下电子邮件ID有效”和Chr(10)和msg)
其他
MsgBox(“字符串不是有效的电子邮件ID”)
万一
‘================================================= ==
结束子

通过对具有已知实体/数据的单元进行迭代,可以利用其他实体(例如邮政编码)的正则表达式来编写类似的函数。

PS请在VBA项目中向Microsoft VBScript正则表达式5.5(或更高版本)添加引用,以便在VBA中使用RegExp。

我想在此页面上的其他出色答案中添加一些内容。

这对您的邮政编码示例无济于事,但是您可能要考虑表单中是否有单元格是从列表中选择的最佳选择。 这对于数据输入和验证的速度很有好处。

如果是这样,请按照以下步骤操作:

如何将下拉列表添加到Excel单元格– TechRepublic

  1. 选择单元格A1。
  2. 在数据菜单上,单击验证。
  3. 在“设置”选项卡上,单击“允许”下拉列表中的“列表”。
  4. 默认情况下,忽略空白和单元内下拉复选框处于选中状态。
  5. 在“源”框中,键入a,b,c。

要了解更多信息,请访问Learnvern。

您可以使用数据验证。 观看此视频:Excel教程:如何在Microsoft Excel上创建带有数据验证的列表

它教了如何使用数据验证创建下拉列表。

我上传了有关数据验证或限制的视频。

只是通过它,我想你会得到答案。

https://youtu.be/Etn3o2xJtSE

感谢您的光临。