如何在工作表中打印所有條件格式設置規則？

通過單擊查看工作表中的所有條件格式設置規則很容易 首頁 > 條件格式 > 管理規則 在Excel中，但是您知道如何在此工作表中打印出所有條件格式設置規則嗎？ 本文將介紹VBA解決此問題。

在工作表中打印所有條件格式設置規則

驚人的！ 在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！每天節省50％的時間，并減少數千次鼠標單擊！在工作表中打印所有條件格式設置規則

請按照以下步驟通過VBA在工作表中打印所有條件格式設置規則。

1。 打開要打印其條件格式設置規則的指定工作表，然后按 其他 + F11 鍵一起打開Microsoft Visual Basic for Applications窗口。

2。 點擊 插頁 > 模塊，然后將以下VBA代碼粘貼到新的模塊窗口中。

VBA：在活動工作表中列出所有條件格式設置規則

Sub M_snb()Dim xRg As Range, xCell As RangeDim xFormat As ObjectDim xFmStr, xFmAddress As StringDim xDic As New DictionaryDim xSpArr, xOperatorArrOn Error Resume NextSet xRg = ActiveSheet.Cells.SpecialCells(xlCellTypeAllFormatConditions)If xRg Is Nothing Then Exit SubxDic.Item("Title") = "Type|Typename|Range|StopIfTrue|Operator|Formula1|Formula2|Formula3"If xSpArr.Count = 0 ThenxSpArr = 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 IfFor Each xCell In xRgSet xFormat = xCell.FormatConditions(1)xFmAddress = xFormat.AppliesTo.AddressIf Not xDic.Exists(xFmAddress) ThenxDic.Item(xFmAddress) = xFormat.Type & "|" & xSpArr(xFormat.Type - 1) & "|" & xFmAddress & "|" & xFormat.StopIfTrueIf Not IsEmpty(xFormat.Operator) ThenxDic.Item(xFmAddress) = xDic.Item(xFmAddress) & "|" & xOperatorArr(xFormat.Operator - 1)End IfIf Not IsEmpty(xFormat.Formula1) ThenxDic.Item(xFmAddress) = xDic.Item(xFmAddress) & "|" & xFormat.Formula1End IfEnd IfNextIf ActiveWorkbook.Worksheets("FmCondictionList") Is Nothing ThenSheets.Add.Name = "FmCondictionList"End IfSheets("FmCondictionList").Cells(1).Resize(xDic.Count) = Application.Transpose(xDic.items)Sheets("FmCondictionList").Columns(1).TextToColumns , , , , 0, 0, 0, 0, -1, "|"End SubCopy

3。 點擊 工具 > 參考資料

.

4。 在“參考-VBAProject”對話框中，請檢查 Microsoft腳本運行時 選項，然后單擊 OK

按鈕。 看截圖：

5。 現在返回模塊窗口，請按 F5 鍵或單擊 運行 按鈕以運行此VBA。

現在，一個名為“條件列表”已創建并添加到活動工作表之前。 您將在此工作表中獲得所有條件格式設置規則。

6。 點擊 文件 > 打印 > 打印 打印條件格式規則列表。

相關文章：

如何在Excel中快速打印區域，選擇和整個工作簿？

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

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel