كيف تطبع جميع قواعد التنسيق الشرطي المستخدمة في ورقة العمل؟

يرجى اتباع الخطوات أدناه لطباعة جميع قواعد التنسيق الشرطي في ورقة العمل باستخدام VBA.

1. افتح ورقة العمل المحددة التي تريد طباعة قواعدتنسيق الشروطالخاصة بها، ثم اضغط معًا على مفاتيحAlt+F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقرإدراج > وحدة، ثم الصق كود VBA أدناه في نافذة الوحدة الجديدة.

VBA: عرض جميع قواعد استخدم تنسيق الشروط في ورقة العمل النشطة

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. انقرأدوات > مراجع.
References" />

4. في مربع حوار المراجع – VBAProject، يُرجى تحديد خيارMicrosoft Scripting Runtime، ثم انقر زرموافق. راجع لقطة الشاشة:

5. الآن بعد أن عدت إلى نافذة الوحدة، يُرجى الضغط على مفتاحF5 أو النقر على زرتشغيللتشغيل هذا الكود البرمجي VBA.

تم الآن إنشاء ورقة عمل جديدة باسم “FmCondtionalList” وأُضيفت قبل الورقة النشطة. وستجد فيها جميع قواعد التنسيق الشرطي المُطبَّقة ضمن قائمة القواعد الخاصة بهذه الورقة.

6. انقرملف > طباعة > طباعةلطباعة قائمة قواعد التنسيق الشرطي التي استخدمتها.

كيفية منطقة الطباعة والتحديد والمصنف بأكمله في Excel بسرعة؟

كيف تطبع كل صف/خلية في صفحة منفصلة في Excel؟