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)...
以下是录制的一个设置数据验证的操作,用到的方法可参考Validation.Add 方法: Sub 宏1() Range("E3").Select With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="111,222" .IgnoreBlank = True '忽略空格,即输入的内容可以包含...
UserAccessList 对象:UserAccess 对象的集合, 这些对象代表受保护区域的用户访问。 Validation对象:代表工作表区域的数据有效性规则。 ValueChange 对象:代表数据透视表中已基于 OLAP 数据源进行更改的值。 VPageBreak 对象:代表一个垂直分页符。 VPageBreaks 对象:打印区域中垂直分页符的集合。 Walls 对象:代表三维图表的...
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.' ...
在设置验证规则时,可以使用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...
With rng.Validation .Add Type:=xlValidateWholeNumber, _ AlertStyle:=xlValidAlertStop, _ Operator:=xlBetween, _ Formula1:="1", _ Formula2:="100" .ErrorMessage = "请输入1到100之间的整数。" .ShowError = True End With 上述代码将在工作表“Sheet1”的单元格“A1”中设置了一个整数验证规则...
'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 ...
With Target.Validation .Delete .Add Type:=xlValidateList, _ AlertStyle:=xlValidAlertStop, _ Operator:=xlBetween, _ Formula1:="主机,显示器" End With End If End Sub '--- Private Sub Worksheet_Change(ByVal Target As Range)'单元格的值发生变化时,触发该事件,执行事件下的代码,上面的事件发生...
如果下拉菜单数据来源于单元格，则把 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, ...