Sub 宏1() Range("E3").Select With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="111,222" .IgnoreBlank = True '忽略空格,即输入的内容可以包含空格,但是空格只能在头尾 .InCellDropdown = True'是否下拉选项,为false则不显...
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)...
在你单击CommandButton1控件时，该控件被激活，Validation失效。你可以通过激活工作表上的其他一些元素来避免该问题。'Private Sub CommandButton1_Click()Range("a1").Activate With Range("A1:A10").Validation .Delete .Add Type:=xlValidateList, _AlertStyle:=xlValidAlertStop, _Operator:=xlBetwee...
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _Operator:=xlBetween, Formula1:=Join(myDic.keys, ",")End With Target.Offset(0, 1) = ""上述代码完成了一级菜单的加载，首先我们在数组中将菜单值写入字典中的键，然后在通过Target.Validation的属性加载键。5 ElseIf Target.Column = 4 ...
首先定义VBA函数AddValidation,具体源代码如下:01.Sub AddValidation(targetRange As Excel.Range, _ 02.validationType As XlDVType, _ 03.AlertStyle As XlDVAlertStyle, _ 04.Optional shwErr As Boolean = True, _ 05.Optional errMsg As String, _ 06.Optional errTitle As String, _ 07.Optional shwin...
With Target.Offset(0, 1).Validation .Delete Select Case Target Case "主机" .Add Type:=xlValidateList, _ AlertStyle:=xlValidAlertStop, _ Operator:=xlBetween, _ Formula1:="Z286,Z386,Z486,Z586" Case "显示器" .Add Type:=xlValidateList, _ ...
使用Validation对象来设置验证规则。可以通过以下代码来创建和设置Validation对象: 代码语言:txt 复制 Dim rng As Range Set rng = Worksheets("Sheet1").Range("A1") With rng.Validation .Add Type:=xlValidateWholeNumber, _ AlertStyle:=xlValidAlertStop, _ ...
(CityVar, ",") With Target.Offset(, 1).Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=CityStr .IgnoreBlank = True .InCellDropdown = True .ErrorTitle = "错误" .ErrorMessage = "请提供有效的输入" .ShowIn...
Application.ScreenUpdating=FalseIfTarget.Column =7Then//这是需要赋值的DDL列IfTarget.Offset(0, -2).Value =13Then//表示赋值列往前移动两个单位的格子值WithSelection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=_ ...
rng.Validation.Delete ' 添加新的有效性规则 With rng.Validation .Add Type:=xlValidateList, Formula1:="Apple, Banana, Orange".IgnoreBlank = True .InCellDropdown = True End With End Sub ```以上代码中，我们首先指定了有效性规则的范围，然后清除了该范围内现有的有效性规则。接下来，我们使用`Add`...