如何在 Excel VBA 中获取 FormatConditions.Formula1？

Question

如果用户已将特定条件格式应用于工作表中的特定范围，我需要使用 VBA 检查。

我可以用这个：

If Worksheets(1).Range("B2:B10").FormatConditions(1).Formula1 = the_formula Then
    ' some code
End If

为此，我需要获取the_formula 。 我对范围应用了条件格式并使用了这个：

Debug.Print Worksheets(1).Range("B2:B10").FormatConditions(1).Formula1

这给了我一个错误。 我哪里做错了？

Answer 1

如果您的范围Formatconditions不涉及公式并使用“仅格式化高于或低于平均值（以上）的值”，请尝试下一种方法：

If Worksheets(1).Range("B2:B10").FormatConditions(1).AboveBelow = xlAboveAverage Then
    ' some code...
End If