Note: The other languages of the website are Google-translated. Back to English

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

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

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

Office選項卡在Office中啟用選項卡式編輯和瀏覽,並使您的工作更加輕鬆...
Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%
  • 重用任何東西: 將最常用或最複雜的公式,圖表等添加到您的收藏夾中,並在將來快速重用它們。
  • 超過20種文字功能: 從文本字符串中提取數字; 提取或刪除部分文字; 將數字和貨幣轉換為英文單詞。
  • 合併工具:將多個工作簿和工作表合二為一; 合併多個單元格/行/列,而不會丟失數據; 合併重複的行和總和。
  • 分割工具:根據價值將數據分割成多個工作表; 一本工作簿可轉換為多個Excel,PDF或CSV文件; 一列到多列。
  • 跳過粘貼 隱藏/過濾的行; 計數與求和 按背景色; 向多個收件人批量發送個性化電子郵件。
  • 超級過濾器: 創建高級過濾方案並應用於任何工作表; 分類 按星期,日期,頻率等 篩選 用粗體,公式,註釋...
  • 超過300個強大的功能; 適用於 Office 2007-2021 和 365; 支持所有語言; 在您的企業或組織中輕鬆部署。

箭頭藍色右氣泡在工作表中打印所有條件格式設置規則

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

1。 打開要打印其條件格式設置規則的指定工作表,然後按 其他 + 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腳本運行時 選項,然後單擊 OK 按鈕。 看截圖:

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

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

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


箭頭藍色右氣泡相關文章:


最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (8)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
這不起作用。 它創建選項卡但不填充條件格式信息
網站主持人對此評論進行了最小化
對我來說,它確實創建了一個選項卡並填充了信息,但是它排除了很多不包括條件格式。 在我運行它時,我設置了 112 條條件格式規則,但選項卡中只顯示了 8 條記錄。
網站主持人對此評論進行了最小化
我也一樣——它只顯示了 7 條條件格式規則中的 14 條。 有什麼解決辦法嗎?
網站主持人對此評論進行了最小化
這很好用,但是有沒有辦法獲得一個包含所有選項卡的循環?
網站主持人對此評論進行了最小化
L'algo est mauvais, il n'y a pas de boucle pour couvrir les cas ou un range aurait plusieurs 格式條件。
網站主持人對此評論進行了最小化
不幸的是不起作用(excel 2013)。
網站主持人對此評論進行了最小化
工作正常!
關於之前評論的兩個註釋:
* 必須添加 Microsoft 腳本庫,否則無法解釋“Dim xDic As New Dictionary”
* 如果您在同一個 Range 上定義了 1 個以上的規則,則只會列出第一個(代碼外殼擴展為從 1 到 xCell.FormatConditions.Count 的循環)

非常感謝!
網站主持人對此評論進行了最小化
關於@Eagle 的評論,我修改了代碼以循環到“xCell.FormatConditions.Count”,並檢索了更多格式條件,但不是全部。
似乎此更改為同一單元格添加了不同範圍的格式,但不是為同一單元格添加了不同格式的相同範圍。
我對提取這些額外格式的代碼還不是很熟悉。
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護