Как да отпечатам всички правила за условно форматиране в работен лист?
Лесно е да видите всички правила за условно форматиране в работен лист, като щракнете Начало > Условно форматиране > Управление на правилата в Excel, но знаете ли как да отпечатате всички правила за форматиране на условия в този работен лист? Тази статия ще представи VBA за решаване на този проблем.
Отпечатайте всички правила за условно форматиране в работен лист
Отпечатайте всички правила за условно форматиране в работен лист
Моля, следвайте стъпките по-долу, за да отпечатате всички правила за условно форматиране в работен лист от VBA.
1. Отворете посочения работен лист, чиито правила за условно форматиране ще отпечатате, и натиснете Друг + F11 клавишите заедно, за да отворите прозореца на Microsoft Visual Basic за приложения.
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. Щракнете Инструменти > Препратки.
4. В диалоговия прозорец Препратки – VBAProject, моля, проверете Microsoft Scripting Runtime и щракнете върху OK бутон. Вижте екранна снимка:
5. Сега се връщате към прозореца на модула, моля натиснете F5 клавиша или щракнете върху бягане бутон за стартиране на този VBA.
Сега нов работен лист с име „FmCondtionalList” се създава и добавя преди активния работен лист. И ще получите списък с всички правила за условно форматиране в този работен лист.
6. Щракнете досие > Изпринти > Изпринти за да отпечатате списъка с правила за условно форматиране.
Още по темата:
Как бързо да отпечатате области, селекция и цяла работна книга в Excel?
Как да отпечатам всеки ред/клетка на отделна страница в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!