如何列印工作表中所有套用的條件格式規則？

請依照以下步驟，透過 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 中將每一列或儲存格列印在各自的頁面上？