小编Gaj*_*jju的帖子

我想使用VBA在单元格(可变)中添加"数据验证",并且数据验证列表中的范围也是可变的.直到现在我一直在使用它

这里"range1"是数据验证列表中的范围,"rng"是我想要数据验证的单元格

Dim range1, rng As range
Set range1 = range("a1:a5")
Set rng = range("b1")
With rng
With .Validation
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="range1"
End With
End With

我得到"应用程序定义和对象定义错误"

也有人可以解释我的不同论点的含义

With .Validation
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="range1"

我在命令按钮下编写了这段代码,工作表受到保护.命令按钮用作重置按钮,从许多单元格中删除数据并更改字体属性.以下是代码:我使用此按钮更改的范围已添加到例外

Range("C10:c18") = ""
Range("C20:c24") = ""
Range("c5:c6") = "_"
Range("c11:c12") = "Optional"
With Range("c11:c12")
    With .Font
         .Italic = True        '"Line 1"
         .ColorIndex = 48      '"Line 2" 
    End With
End With

它抛出VBA错误:无法为第1行和第1行设置字体类的斜体属性

第2行的应用程序定义或对象定义错误