Note: The other languages of the website are Google-translated. Back to English

워크 시트의 모든 조건부 서식 규칙을 인쇄하는 방법은 무엇입니까?

클릭하여 워크 시트의 모든 조건부 서식 규칙을 쉽게 볼 수 있습니다. > 조건부 서식 > 규칙 관리 하지만이 워크 시트의 모든 조건 서식 규칙을 인쇄하는 방법을 알고 있습니까? 이 기사에서는이 문제를 해결하기위한 VBA를 소개합니다.

워크 시트의 모든 조건부 서식 규칙 인쇄

Office 탭 Office에서 탭 편집 및 찾아보기를 활성화하고 작업을 훨씬 쉽게 ...
Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.
  • 무엇이든 재사용 : 가장 많이 사용되거나 복잡한 수식, 차트 및 기타 항목을 즐겨 찾기에 추가하고 나중에 빠르게 재사용 할 수 있습니다.
  • 20 개 이상의 텍스트 기능 : 텍스트 문자열에서 숫자 추출; 텍스트의 일부 추출 또는 제거 숫자와 통화를 영어 단어로 변환합니다.
  • 병합 도구: 여러 통합 문서와 시트를 하나로; 데이터 손실없이 여러 셀 / 행 / 열 병합; 중복 행과 합계를 병합합니다.
  • 분할 도구: 값을 기준으로 데이터를 여러 시트로 분할합니다. 하나의 통합 문서에서 여러 Excel, PDF 또는 CSV 파일로; 한 열에서 여러 열로.
  • 붙여 넣기 건너 뛰기 숨겨진 / 필터링 된 행; 수와 합계 배경색 별; 개인화 된 이메일을 여러 수신자에게 대량으로 보냅니다.
  • 슈퍼 필터 : 고급 필터 구성표를 만들고 모든 시트에 적용하십시오. 종류 주, 일, 빈도 등으로; 필터 굵게, 수식, 주석으로 ...
  • 300개 이상의 강력한 기능; Office 2007-2021 및 365에서 작동합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다.

화살표 블루 오른쪽 거품워크 시트의 모든 조건부 서식 규칙 인쇄

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용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (8)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것은 작동하지 않습니다. 탭을 생성하지만 조건부 서식 정보를 채우지 않습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나를 위해 탭을 만들고 정보를 채웠지만 많은 조건부 서식이 포함되지 않았습니다. 실행했을 때 112개의 조건부 서식 규칙이 설정되었지만 탭에는 8개의 레코드만 표시되었습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나에게도 마찬가지입니다. 7개의 조건부 서식 규칙 중 14개만 표시했습니다. 이에 대한 해결책이 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것은 훌륭하게 작동하지만 모든 탭을 포함하는 루프를 얻는 방법이 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
L'algo est mauvais, il n'y a pas de boucle pour couvrir les cas ou un range aurait plusieurs format conditionnels.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
불행히도 작동하지 않습니다(excel 2013).
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
잘 작동합니다!
이전 댓글에 대한 두 가지 참고 사항:
* Microsoft 스크립팅 라이브러리를 추가해야 합니다. 그렇지 않으면 'Dim xDic As New Dictionary'를 해석할 수 없습니다.
* 동일한 범위에 정의된 규칙이 1개 이상인 경우 첫 번째 규칙만 나열됩니다(코드 셸은 1에서 xCell.FormatConditions.Count까지 주기로 확장됨).

많이 감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
@Eagle의 댓글과 관련하여 'xCell.FormatConditions.Count'까지 순환하도록 코드를 수정했고 더 많은 형식 조건을 검색했지만 전부는 아닙니다.
이 변경으로 인해 동일한 셀에 대해 다른 범위의 형식이 추가되지만 동일한 셀에 대해 다른 형식의 동일한 범위가 추가되지 않는 것으로 보입니다.
나는 이러한 추가 형식을 추출하는 코드에 아직 익숙하지 않습니다.
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호