Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Address <> "$A$1" Then Exit SubWith [b1].Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=$V$1:$V$300"End WithTarget.Offset(0, 1)...
35."那么必须指定Formula2." 36.Exit Sub 37.End If 38.End If 39.End If 40. 41.' 如果已经存在数据有效性检查对象,则移除 42.currentValidation.Delete 43. 44.' 创建新的数据有效性检查对象 45.With currentValidation 46..Add validationType, AlertStyle, op, Formula1, Formula2 47. 48.' ...
以下是录制的一个设置数据验证的操作,用到的方法可参考Validation.Add 方法: Sub 宏1() Range("E3").Select With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="111,222" .IgnoreBlank = True '忽略空格,即输入的内容可以包含...
“数据系列”对话框 xlDialogDataValidation 525 “数据有效性”对话框 xlDialogDefineName 61 “定义名称”对话框 xlDialogDefineStyle 229 “定义样式”对话框 xlDialogDeleteFormat 111 “删除格式”对话框 xlDialogDeleteName 110 “删除名称”对话框 xlDialogDemote 203 “降级”对话框 xlDialogDisplay 27 “显示...
在设置验证规则时,可以使用VBA的Range对象的Validation属性来指定验证条件。例如,可以使用Validation.Add方法来添加验证规则,使用Validation.Type属性来指定验证类型,使用Validation.Operator属性来指定比较运算符,使用Validation.Formula1和Validation.Formula2属性来指定验证的条件。 然而,当通过VBA设置验证规则后,如果在运...
在单元格中建⽴数据有效性可以使⽤Add⽅法，如下⾯的代码所⽰。1.Sub Validation()2. With Range("A1:A10").Validation 3. .Delete 4. .Add Type:=xlValidateList, _5. AlertStyle:=xlValidAlertStop, _6. Operator:=xlBetween, _7. Formula1:="1,2,3,4,5,6,7,8"8. End With 9.End...
(CityVar, ",") With Target.Offset(, 1).Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=CityStr .IgnoreBlank = True .InCellDropdown = True .ErrorTitle = "错误" .ErrorMessage = "请提供有效的输入" .ShowIn...
Validation属性:返回*Validation* 对象, 该对象表示指定范围内的数据验证。 只读。 Value 属性:返回或设置一个 Variant 值,它表示所指定的区域的值。 Value2 属性:返回或设置单元格值。 读/写 Variant。此属性和Value属性的唯一区别在于Value2属性不使用Currency和Date数据类型。 可以通过使用 Double 数据类型,以浮点...
'Private Sub CommandButton1_Click()Range("a1").Activate With Range("A1:A10").Validation .Delete .Add Type:=xlValidateList, _AlertStyle:=xlValidAlertStop, _Operator:=xlBetween, _Formula1:="1,2,3,4"End With CommandButton1.Activate End Sub '参考帮助：《在工作表上使用 ActiveX ...
如果下拉菜单数据来源于单元格，则把 Formula1:="ABC,BCD,CDE,DEF" 换成单元格地址，比如 Formula1:="=$B$1:$B$3" 这样即可。Sub Macro1()Columns("A:A").Select With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _xlBetween, ...