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

Hogyan lehet kinyomtatni az összes feltételes formázási szabályt egy munkalapba?

Könnyen megtekintheti az összes feltételes formázási szabályt egy munkalapon, ha rákattint FŐOLDAL > Feltételes formázás > Szabályok kezelése az Excel-ben, de tudod, hogyan kell kinyomtatni az összes feltétel-formázási szabályt ebben a munkalapban? Ez a cikk bemutatja a VBA-t a probléma megoldására.

Az összes feltételes formázási szabály kinyomtatása egy munkalapba

Az Office fül lehetővé teszi a füles szerkesztést és böngészést az Office-ban, és sokkal könnyebbé teszi a munkáját ...
A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet
  • Bármely újrafelhasználása: Adja hozzá a leggyakrabban használt vagy összetett képleteket, diagramokat és bármi mást a kedvenceihez, és a későbbiekben gyorsan használja fel újra.
  • Több mint 20 szöveges szolgáltatás: Szám kivonása a szöveges karakterláncból; Bontsa ki vagy távolítsa el a szövegek egy részét; Számok és pénznemek konvertálása angol szavakká.
  • Eszközök egyesítése: Több munkafüzet és lap egybe; Egyesítsen több cellát / sort / oszlopot adatok elvesztése nélkül; Az ismétlődő sorok és összeg összevonása.
  • Felosztott eszközök: Az adatok felosztása több lapra az érték alapján; Egy munkafüzet több Excel, PDF vagy CSV fájlhoz; Egy oszlop több oszlopra.
  • Ugrás beillesztése Rejtett / szűrt sorok; Gróf és összeg háttérszínnel; Személyre szabott e-maileket küldhet több címzettnek tömegesen.
  • Szuper szűrő: Hozzon létre speciális szűrősémákat, és alkalmazza azokat bármilyen lapra; Fajta hét, nap, gyakoriság és egyebek szerint; Szűrő félkövérrel, képletekkel, megjegyzésekkel ...
  • Több mint 300 hatékony funkció; Működik az Office 2007-2021 és 365 verziókkal; Támogatja az összes nyelvet; Könnyű üzembe helyezés a vállalkozásban vagy szervezetben.

nyíl kék jobb buborékAz összes feltételes formázási szabály kinyomtatása egy munkalapba

Kövesse az alábbi lépéseket az összes feltételes formázási szabály nyomtatásához a VBA munkalapjába.

1. Nyissa meg a megadott munkalapot, amelynek feltételes formázási szabályait kinyomtatja, majd nyomja meg az gombot más + F11 gombokat együtt a Microsoft Visual Basic for Applications ablak megnyitásához.

2. Kattints betétlap > Modulok, majd illessze be a VBA kód alá az új modul ablakba.

VBA: Sorolja fel az összes feltételes formázási szabályt az aktív munkalapon

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. Kattints Eszközök > Referenciák.

4. A Referenciák - VBAProject párbeszédpanelen ellenőrizze a Microsoft Scripting Runtime opciót, és kattintson a OK gomb. Lásd a képernyőképet:

5. Most visszatér a modul ablakhoz, nyomja meg a gombot F5 vagy kattintson a gombra futás gombra a VBA futtatásához.

Most egy új munkalap neve „FmCondtionalList”Létrehozása és hozzáadása az aktív munkalap előtt. És megkapja az összes feltételes formázási szabályt ebben a munkalapban.

6. Kattints filé > > a feltételes formázási szabályok listájának kinyomtatásához.


nyíl kék jobb buborékKapcsolódó cikkek:


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (8)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez nem működik. Létrehozza a lapot, de nem tölti fel a feltételes formázási információkat
A weboldal moderátora ezt a megjegyzést minimalizálta
Számomra létrehozott egy lapot, és kitöltötte az információkat, de sok feltételes formázást nem tartalmazott. Amikor futtattam, 112 feltételes formázási szabályt állítottam be, de csak 8 rekord jelent meg a lapon.
A weboldal moderátora ezt a megjegyzést minimalizálta
Ugyanez számomra – a 7 feltételes formázási szabályból csak 14-et jelenített meg. Van erre valami megoldás?
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez remekül működik, de van mód olyan ciklus létrehozására, amely minden lapot tartalmaz?
A weboldal moderátora ezt a megjegyzést minimalizálta
L'algo est mauvais, il n'y a pas de boucle pour couvrir les cas ou un range aurait plusieurs format conditionnels.
A weboldal moderátora ezt a megjegyzést minimalizálta
Sajnos nem működik (excel 2013).
A weboldal moderátora ezt a megjegyzést minimalizálta
Jól működik!
Csak két megjegyzés az előző megjegyzésekhez:
* A Microsoft Scripting Library könyvtárat hozzá kell adni, különben a "Dim xDic As New Dictionary" nem értelmezhető
* Ha 1-nél több szabályt definiál ugyanabban a tartományban, akkor csak az első lesz felsorolva (a kódhéj kibővül egy ciklussal 1-től xCell.FormatConditions.Count-ig)

Nagyon köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
Az @Eagle megjegyzésével kapcsolatban módosítottam a kódot úgy, hogy az „xCell.FormatConditions.Count”-ra váltson, és több formátumfeltételt is lekértem, de nem mindegyiket.
Úgy tűnik, hogy ez a módosítás hozzáadja ugyanahhoz a cellához a különböző tartományok formátumait, de nem ugyanazokat a tartományokat, és ugyanahhoz a cellához tartozó különböző formátumokat.
Még nem ismerem annyira azt a kódot, amely ezeket az extra formátumokat kibontja.
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi