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 Kezdőlap > 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 ö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.
Kapcsolódó cikkek:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz 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!