Як надрукувати всі правила умовного форматування на аркуші?
Переглянути всі правила умовного форматування на аркуші легко, натиснувши Головна > Умовне форматування > Управління правилами в Excel, але чи знаєте ви, як роздрукувати всі правила форматування умов на цьому аркуші? Ця стаття представить VBA для вирішення цієї проблеми.
Надрукуйте всі правила умовного форматування на аркуші
Надрукуйте всі правила умовного форматування на аркуші
Виконайте кроки нижче, щоб роздрукувати всі правила умовного форматування на аркуші VBA.
1. Відкрийте вказаний робочий аркуш, правила умовного форматування якого ви надрукуєте, і натисніть інший + F11 клавіші разом, щоб відкрити вікно Microsoft Visual Basic for Applications.
2. Клацання Insert > Модулі, а потім вставте нижче коду 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. Клацання Tools > посилання.
4. У діалоговому вікні Посилання - VBAProject перевірте Виконання сценаріїв Microsoft та натисніть кнопку OK кнопку. Дивіться знімок екрана:
5. Тепер ви повернетесь до вікна модуля, натисніть, будь ласка F5 або клацніть на прогін для запуску цього VBA.
Тепер новий аркуш із назвою „FmCondtionalList”Створюється та додається перед активним аркушем. І ви отримаєте перелік усіх правил умовного форматування на цьому аркуші.
6. Клацання філе > друк > друк для друку списку правил умовного форматування.
Статті по темі:
Як швидко роздрукувати області, виділення та всю книгу в Excel?
Як надрукувати кожен рядок / комірку на окремій сторінці в Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!