如何打印工作表中所有应用的条件格式规则？

请按照以下步骤，使用 VBA 打印工作表中应用的所有条件格式规则。

1. 打开要打印其条件格式规则的指定工作表，然后同时按下 Alt+F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。

2. 单击插入> 模块，然后将下方的 VBA 代码粘贴到新建的模块窗口中。

VBA：列出活动工作表中的所有使用条件格式规则

Sub M_snb()
Dim xRg As Range, xCell As Range
Dim xFormat As Object
Dim xFmStr, xFmAddress As String
Dim xDic As New Dictionary
Dim xSpArr, xOperatorArr
On Error Resume Next
Set xRg = ActiveSheet.Cells.SpecialCells(xlCellTypeAllFormatConditions)
If xRg Is Nothing Then Exit Sub
xDic.Item("Title") = "Type|Typename|Range|StopIfTrue|Operator|Formula1|Formula2|Formula3"
If xSpArr.Count = 0 Then
xSpArr = Split("Cell Value|Expression|Color Scale|DataBar|Top 10|Icon Sets||Unique Values|Text|Blanks|Time Period|Above Average||No Blanks||Errors|No Errors|||||", "|")
xOperatorArr = Split("xlBetween|xlNotBetween|xlEqual|xlNotEqual|xlGreater|xlLess|xlGreaterEqual|xlLessEqual", "|")
End If
For Each xCell In xRg
Set xFormat = xCell.FormatConditions(1)
xFmAddress = xFormat.AppliesTo.Address
If Not xDic.Exists(xFmAddress) Then
xDic.Item(xFmAddress) = xFormat.Type & "|" & xSpArr(xFormat.Type - 1) & "|" & xFmAddress & "|" & xFormat.StopIfTrue
If Not IsEmpty(xFormat.Operator) Then
xDic.Item(xFmAddress) = xDic.Item(xFmAddress) & "|" & xOperatorArr(xFormat.Operator - 1)
End If
If Not IsEmpty(xFormat.Formula1) Then
xDic.Item(xFmAddress) = xDic.Item(xFmAddress) & "|'" & xFormat.Formula1
End If
End If
Next
If ActiveWorkbook.Worksheets("FmCondictionList") Is Nothing Then
Sheets.Add.Name = "FmCondictionList"
End If
Sheets("FmCondictionList").Cells(1).Resize(xDic.Count) = Application.Transpose(xDic.items)
Sheets("FmCondictionList").Columns(1).TextToColumns , , , , 0, 0, 0, 0, -1, "|"
End Sub

3. 单击工具> 引用。
References" />

4. 在“引用 – VBAProject”对话框中，勾选 Microsoft Scripting Runtime 选项，然后单击确定按钮。参见截图：

5. 现在返回模块窗口，按下 F5 键或单击运行按钮即可运行此 VBA。

系统将自动创建一个名为“FmCondtionalList”的新工作表，并将其插入到当前活动工作表之前。您即可在该工作表中查看所有应用的条件格式规则列表。

6. 单击文件> 打印> 打印，即可打印应用了条件格式规则的列表。

如何在 Excel 中快速打印选定区域、所选内容和整个工作簿？

如何在 Excel 中将每一行或每个单元格打印到单独的页面上？