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

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

Karta Office Włącz edycję i przeglądanie na kartach w pakiecie Office i znacznie ułatw swoją pracę ...
Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%
  • Wykorzystaj wszystko ponownie: Dodaj najczęściej używane lub złożone formuły, wykresy i wszystko inne do ulubionych i szybko wykorzystaj je ponownie w przyszłości.
  • Ponad 20 funkcji tekstowych: Wyodrębnij liczbę z ciągu tekstowego; Wyodrębnij lub usuń część tekstów; Konwertuj liczby i waluty na angielskie słowa.
  • Narzędzia do scalania: Wiele skoroszytów i arkuszy w jeden; Scal wiele komórek / wierszy / kolumn bez utraty danych; Połącz zduplikowane wiersze i sumę.
  • Podziel narzędzia: Podziel dane na wiele arkuszy na podstawie wartości; Jeden skoroszyt do wielu plików Excel, PDF lub CSV; Jedna kolumna na wiele kolumn.
  • Wklej pomijanie Ukryte / filtrowane wiersze; Policz i suma według koloru tła; Wysyłaj spersonalizowane wiadomości e-mail do wielu odbiorców zbiorczo.
  • Super filtr: Twórz zaawansowane schematy filtrów i stosuj do dowolnych arkuszy; Sortuj według tygodnia, dnia, częstotliwości i nie tylko; Filtruj pogrubieniem, formułami, komentarzem ...
  • Ponad 300 zaawansowanych funkcji; Współpracuje z Office 2007-2021 i 365; Obsługuje wszystkie języki; Łatwe wdrażanie w przedsiębiorstwie lub organizacji.

strzałka niebieski prawy bąbelekWydrukuj 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 Narzędzia > 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.


strzałka niebieski prawy bąbelekPodobne artykuły:


Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

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!
officetab dół
Sortuj komentarze według
Komentarze (8)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
to nie działa. Tworzy kartę, ale nie wypełnia informacji o formatowaniu warunkowym
Ten komentarz został zminimalizowany przez moderatora na stronie
Dla mnie utworzył zakładkę i wypełnił informacje, ale wykluczył wiele formatowania warunkowego, które nie zostało uwzględnione. W momencie uruchamiania miałem ustawione 112 warunkowych reguł formatowania, ale tylko 8 rekordów wyświetlanych w zakładce.
Ten komentarz został zminimalizowany przez moderatora na stronie
To samo dla mnie — wyświetlał tylko 7 z 14 reguł formatowania warunkowego. Czy jest na to rozwiązanie?
Ten komentarz został zminimalizowany przez moderatora na stronie
Działa to świetnie, ale czy istnieje sposób na uzyskanie pętli zawierającej wszystkie karty?
Ten komentarz został zminimalizowany przez moderatora na stronie
L'algo est mauvais, il'y pas de boucle pour couvrir les cas ou un range aurait plusieurs format conditionnels.
Ten komentarz został zminimalizowany przez moderatora na stronie
Niestety nie działa (excel 2013).
Ten komentarz został zminimalizowany przez moderatora na stronie
Działa w porządku!
Tylko dwie uwagi dotyczące komentarzy wcześniej:
* Należy dodać bibliotekę skryptów firmy Microsoft, w przeciwnym razie nie można zinterpretować „Dim xDic As New Dictionary”
* Jeśli masz więcej niż jedną zdefiniowaną regułę w tym samym zakresie, tylko pierwsza zostanie wymieniona (powłoka kodu zostanie rozszerzona o cykl od 1 do xCell.FormatConditions.Count)

Wielkie dzięki!
Ten komentarz został zminimalizowany przez moderatora na stronie
Jeśli chodzi o komentarz @Eagle, zmodyfikowałem kod, aby przejść do „xCell.FormatConditions.Count” i pobrałem więcej warunków formatu, ale nie wszystkie.
Wygląda na to, że ta zmiana dodaje formaty w różnych zakresach dla tej samej komórki, ale nie te same zakresy z różnymi formatami dla tej samej komórki.
Nie znam jeszcze kodu, który wyodrębniłby te dodatkowe formaty.
Nie ma tu jeszcze żadnych komentarzy

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL