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

請按照以下步驟，使用 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. 點擊 工具 > 參考資料.
參考資料" />

4. 在「參考資料 – VBAProject」對話框中，請勾選「Microsoft Scripting Runtime」選項，然後點擊「確定」按鈕。請參見截圖：

5. 現在返回模組視窗，請按 F5 鍵或點擊 「執行」按鈕來運行此 VBA。

現在會創建並新增一個名為「FmCondtionalList」的新工作表，置於活動工作表之前。你將在此工作表中獲得所有條件格式規則的列表。

6. 點擊「文件」>「列印 」>「列印 」以列印條件格式規則的列表。

如何快速在 Excel 中列印區域、選擇範圍和整個工作簿？

如何在 Excel 中將每一行/單元格列印在單獨的頁面上？