Question

我在代码中替换范围变量WeekdayRule时遇到问题。第三行代码工作得很好。下面的第四行代码触发

应用程序定义或对象定义的错误＆＃39; 1004＆＃39;。

我在这里缺少什么？

    Dim WeekdayRule As Range
    Set WeekdayRule = ActiveSheet.Range("M17:O112")

    ActiveSheet.Range("M17:O112").FormatConditions.Delete

    With ActiveSheet.Range("WeekdayRule").FormatConditions _
        .Add(Type:=xlExpression, Formula1:="=AND(M17<=($N$8*$V17), $V17>=$N$9)")
        .Interior.ColorIndex = 44
    End With

Answer 1

WeekdayRule已经是一个已定义的Range对象，因此请使用：

WeekdayRule.FormatConditions.Delete
With WeekdayRule.FormatConditions _
...

Answer 2

您需要指定 FormatConditions 集合的索引，以指定要删除的 FormatCondition （注意奇异）对象。例如：

ActiveSheet.Range("M17:O112").FormatConditions(index).Delete

问题替换范围变量（Excel VBA）

2 个答案: