Jak vytisknout všechna pravidla podmíněného formátování v listu?
Je snadné zobrazit všechna pravidla podmíněného formátování v listu kliknutím Domů > Podmíněné formátování > Spravovat pravidla v aplikaci Excel, ale víte, jak vytisknout všechna pravidla formátování podmínek v tomto listu? Tento článek představí VBA k vyřešení tohoto problému.
Vytiskněte všechna pravidla podmíněného formátování v listu
Vytiskněte všechna pravidla podmíněného formátování v listu
Postupujte podle níže uvedených kroků a vytiskněte všechna pravidla podmíněného formátování v listu VBA.
1. Otevřete určený list, jehož pravidla podmíněného formátování vytisknete, a stiskněte Další + F11 společně otevřete okno Microsoft Visual Basic pro aplikace.
2, klikněte Vložit > Modula poté vložte pod kód VBA do nového okna modulu.
VBA: Seznam všech pravidel podmíněného formátování v aktivním listu
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, klikněte Tools > Reference.
4. V dialogovém okně Reference - VBAProject zkontrolujte Microsoft Scripting Runtime a klepněte na tlačítko OK knoflík. Viz screenshot:
5. Nyní se vraťte do okna modulu, stiskněte F5 klíč nebo klikněte na Běh tlačítko pro spuštění tohoto VBA.
Nyní nový list s názvem „FmCondtionalList”Je vytvořen a přidán před aktivní list. V tomto listu získáte seznam všech pravidel podmíněného formátování.
6, klikněte Soubor > Tisk > Tisk vytisknout seznam pravidel podmíněného formátování.
Související články:
Jak rychle tisknout oblasti, výběr a celý sešit v aplikaci Excel?
Jak tisknout každý řádek / buňku na samostatnou stránku v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!