VBA에서 워크 시트의 모든 조건부 서식 규칙을 인쇄하려면 아래 단계를 따르십시오.

1. 조건부 서식 규칙을 인쇄 할 지정된 워크 시트를 열고 다른 + 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 스크립팅 런타임 옵션을 클릭하고 OK 단추. 스크린 샷보기 :

5. 이제 모듈 창으로 돌아가십시오. F5 키를 누르거나 달리기 버튼을 눌러이 VBA를 실행합니다.

이제 "FmConditionalList”이 생성되고 활성 워크 시트 앞에 추가됩니다. 그리고이 워크 시트에 나열된 모든 조건부 서식 규칙을 얻을 수 있습니다.

6. 딸깍 하는 소리 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에 > 인쇄 > 인쇄 조건부 서식 규칙 목록을 인쇄합니다.

Excel에서 영역, 선택 영역 및 전체 통합 문서를 빠르게 인쇄하는 방법은 무엇입니까?

Excel에서 각 행 / 셀을 별도의 페이지에 인쇄하는 방법은 무엇입니까?