Question

当我尝试通过vba代码添加IF公式时，我得到了一个＆＃34;应用程序定义的或对象定义的＆＃34;错误。我检查了所有参考文献，看起来是正确的。表格未受保护。对这个错误一无所知，非常感谢任何帮助。

    With Range("C3").Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="=IF(B3="""","""",'Sheet3'!$A$1:$A$2)"
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
End With

Answer 1

如果您要在Formula1:="=IF(COUNTBLANK(B3)=1,"""",'Sheet3'!$A$1:$A$2)"中查找空单元格，请尝试将公式更改为B3。如果B3不是空单元格，那么它没有错误。

VBA在验证列表中添加IF公式时出错

1 个答案: