Jak wydrukować wszystkie reguły formatowania warunkowego w arkuszu?
Wszystkie reguły formatowania warunkowego w arkuszu można łatwo wyświetlić, klikając Strona główna > Formatowanie warunkowe > Zarządzaj regułami w programie Excel, ale czy wiesz, jak wydrukować wszystkie reguły formatowania warunków w tym arkuszu? W tym artykule wprowadzimy VBA, aby rozwiązać ten problem.
Wydrukuj wszystkie reguły formatowania warunkowego w arkuszu
Wydrukuj wszystkie reguły formatowania warunkowego w arkuszu
Wykonaj poniższe kroki, aby wydrukować wszystkie reguły formatowania warunkowego w arkuszu przez VBA.
1. Otwórz określony arkusz roboczy, którego reguły formatowania warunkowego chcesz wydrukować, i naciśnij inny + F11 klucze razem, aby otworzyć okno Microsoft Visual Basic for Applications.
2. Kliknij wstawka > Moduł, a następnie wklej poniższy kod VBA do nowego okna modułu.
VBA: wyświetla wszystkie reguły formatowania warunkowego w aktywnym arkuszu
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. Kliknij Tools > Referencje.
4. W oknie dialogowym References - VBAProject sprawdź plik Środowisko wykonawcze skryptów firmy Microsoft Microsoft opcję i kliknij przycisk OK przycisk. Zobacz zrzut ekranu:
5. Teraz wróć do okna modułu, naciśnij F5 lub kliknij run przycisk, aby uruchomić ten VBA.
Teraz nowy arkusz o nazwie „FmConditionalList”Jest tworzony i dodawany przed aktywnym arkuszem. W tym arkuszu otrzymasz listę wszystkich reguł formatowania warunkowego.
6. Kliknij filet > > aby wydrukować listę reguł formatowania warunkowego.
Podobne artykuły:
Jak szybko wydrukować obszary, zaznaczenie i cały skoroszyt w programie Excel?
Jak wydrukować każdy wiersz / komórkę na osobnej stronie w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!