VBA를 사용하여 워크 시트 맵 만들기 - 인형

비디오: [엑셀매니아] 서명란을 살펴보자! 2024

익숙하지 않은 (복잡한) Excel 통합 문서를 이해하려고 시도해 보셨습니까? 어느 셀에 상수가 포함되어 있고 어느 셀에 값이 들어 있는지에 대한 개요를 제공하는지도를 보는 것이 도움이됩니다.

활성 워크 시트의 맵을 생성하는 VBA 유틸리티를 생성 할 수 있습니다. 지도는 새 워크 시트에 생성되며 값, 텍스트 및 수식을 빠르게 식별 할 수있는 색으로 구분 된 셀로 구성됩니다.

아래에는 그러한지도의 예가 나와 있습니다. 텍스트가 포함 된 셀은 녹색이고 숫자 값이 포함 된 셀은 노란색이며 수식이 포함 된 셀은 빨간색입니다. 이러한 맵은 잠재적 오류를 발견하는 데 도움을 줄 수 있습니다. 예를 들어, 수식 블록의 한 수식이 값으로 덮어 쓰여진 경우 해당 셀은지도보기에서 눈에 띄게됩니다 (예제의 셀 Q11 에서처럼).

QuickMap VBA 코드

워크 시트 맵을 생성하는 VBA 프로 시저가 아래에 나열되어 있습니다. 이 유틸리티를 사용하려면 코드를 복사하여 VBA 모듈에 붙여 넣기 만하면됩니다. 그런 다음 워크 시트를 활성화하고 QuickMap 서브 루틴을 실행하십시오.

Sub QuickMap () Dim FormulaCells Variant Dim TextCells Variant Dim NumberCells As Variant Dim Area As 범위 If TypeName (ActiveSheet) "워크 시트"그런 다음 Exit Sub '셀 하위 집합에 대한 개체 변수 만들기 오류 재개 다음 Set FormulaCells = Range ("A1"). SpecialCells _ (xlFormulas, xlNumbers + xlTextValues + xlLogical) TextCells = Range ("A1")을 설정하십시오. SpecialCells (xlConstants, xlTextValues) NumberCells = Range ("A1")을 설정합니다. SpecialCells (xlConstants, xlNumbers) On Error GoTo 0 '새 시트를 추가하고 스프레드 시트의 서식을 지정합니다. 셀에 추가하십시오. ColumnWidth = 2. 글꼴. 크기 = 8. HorizontalAlignment = xlCenter 응용 프로그램 종료. ScreenUpdating = False '수식 셀이 Not IsEmpty (FormulaCells)이면 FormulaCell의 각 영역에 대해 수행하십시오. ActiveSheet가있는 영역. 범위 (지역. 주소). 값 = "F". 내부. ColorIndex = 3 다음 끝으로 끝내기 End If '텍스트 셀을 Is Not IsEmpty (TextCells) Then TextCells의 각 영역에 대해 수행합니다. ActiveSheet가있는 영역. 범위 (지역. 주소). 값 = "T". 내부. ColorIndex = 4 다음 끝으로 종료 End If '숫자 셀이 Not IsEmpty (NumberCells)이면 NumberCells의 각 영역에 대해 수행하십시오. ActiveSheet가있는 영역. 범위 (지역. 주소). 값 = "N". 내부. ColorIndex = 6 다음 영역으로 끝내기 End If End Sub

작동 원리

절차는 먼저 활성 시트가 워크 시트인지 확인합니다. 그렇지 않은 경우 추가 조치가없는 빠른 종료가 있습니다. 활성 시트가 워크 시트 인 경우, 프로시 저는 SpecialCells 메소드를 사용하여 다양한 셀 유형을 식별하여 세 개의 오브젝트 변수를 작성합니다.SpecialCells 메서드는 매우 유용합니다. 익숙하지 않은 사용자는 Excel의 온라인 도움말 파일에서 확인하십시오. On Error Resume Next를 사용합니다. 이는 워크 시트에 수식이없는 경우처럼 셀이 한정되지 않은 경우 발생하는 오류를 방지하기위한 것입니다.

다음으로이 절차는 새로운 워크 시트를 추가하고 셀 너비를 줄이며 가로 맞춤을 가운데로 설정합니다. 이 단계는 화장품입니다. 그런 다음 하위 팀은 화면 업데이트를 사용 중지하여 작업 속도를 높입니다. 다음 코드 블록은 셀을 처리합니다


. 셀이 한정되지 않으면 객체 변수는 Empty이므로 하위 테스트에서는이를 테스트합니다. 그런 다음 루틴은 Range 개체의 각 영역을 반복하고 셀을 포맷합니다. 서브 루틴의이 부분을 쉽게 사용자 정의하여 다른 형식을 적용 할 수 있습니다.
Power Utility Pak 애드 인을 확인하여 훨씬 더 정교한 버전의 유틸리티를 확인하십시오.