ワークシート内のすべての条件付き書式ルールを印刷するにはどうすればよいですか？

以下に示す手順に従って、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をクリックします。 ツール > 参照設定.
参照設定" />

4「参照設定 – VBAProject」ダイアログボックスで、次のオプションを確認してください： Microsoft Scripting Runtime オプションを選択し、 OK ボタンをクリックします。 スクリーンショットをご覧ください：

5. これでモジュールウィンドウに戻りますので、F5 キーを押すか、 実行ボタンをクリックしてこのVBAを実行します。

新しいワークシートが作成され、「FmCondtionalList」という名前でアクティブなワークシートの前に追加されます。そして、このワークシートにすべての条件付き書式ルールがリストされます。

6. ファイル > 印刷 > 印刷 をクリックして、条件付き書式ルールの一覧を印刷します。

Excelで印刷範囲、選択範囲、およびすべてのテーブルを素早く印刷するにはどうすればよいですか？

Excelで各行/セルを別々のページに印刷するにはどうすればよいですか？