어떻게 2010 Microsoft Excel에서 VBA를 사용하여 자동 정렬 여러 시트에
이 기사에서는 VBA 코드를 사용하여 여러 시트를 자동으로 정렬하는 방법을 배웁니다.
Q) 여러 워크 시트 (모두는 아님)에서 데이터를 정렬하는 방법을 알고 싶습니다.
[.underline] # 예를 들어 보겠습니다 : # 3 장의 시트 (1 월, 2 월 및 3 월)가 있으며 A 열에 정보를 입력 할 때 3 월 시트 만 자동 정렬하면됩니다.
개발자 탭을 클릭하고 코드 그룹에서 Visual Basic을 선택합니다
이 통합 문서에 다음 코드를 입력하십시오 (시트에 없음). 이렇게하면 모든 워크 시트에서 코드가 실행됩니다.
Private Sub Workbook_SheetChange (ByValSh As Object, ByVal Target As Range)
오류시 다음 다시 시작
케이스 ActiveSheet.Name 선택
사례 “1 월”, “2 월”
다른 경우
If Not Intersect (Target, Range ( “A : A”)) Is Nothing Then
범위 ( “A1”). 정렬 키 1 : = 범위 ( “A2”), _
Order1 : = xlAscending, 헤더 : = xlYes, _
OrderCustom : = 1, MatchCase : = False, _
방향 : = xlTopToBottom
End If
선택 종료
End Sub
이러한 방식으로 정보를 입력 할 때 여러 시트의 특정 열을 기준으로 데이터를 쉽게 정렬 할 수 있습니다. 이는 시간을 절약하고 원하는 방식으로 보고서를 표시 할 수있는 좋은 방법입니다.