excel - 打印电子表格的所有条件格式设置规则

我希望VBA代码在电子表格中打印每个条件格式的规则，包括规则适用的规则类型，规则描述(公式)，颜色和单元格范围。
我该如何实现？

最佳答案

您可以很容易地这样列出它。

Sub ListAllCF()
    Dim cf As FormatCondition
    Dim ws As Worksheet
    Set ws = ActiveSheet
    For Each cf In ws.Cells.FormatConditions
        Debug.Print cf.AppliesTo.Address, cf.Type, cf.Formula1, cf.Interior.Color, cf.Font.Name
    Next cf
End Sub

但由于无法使用此方法列出某些类型，因此存在错误，因此您需要捕获错误并找到其他方法来列出错误类型。