[└─▷답변]Re:데이타 자동정열

[박범수]

아래 코드는 Visual Basic 코드 입니다.

Visual Basic Editor을 열고  

작업중인 Sheet에 아래 코드를 추가해 주시면

Sheet에 변경사항이 있을 때 아래 코드가 실행 됩니다.

대충 만들긴 했는데, 시트 전체에 변경사항이 있으면

B2:B21 영역에 대해서 오름차순 정렬을 합니다.

Private Sub Worksheet_Change(ByVal Target As Range)

    Application.EnableEvents = False

    Range("B2:B21").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
    Application.EnableEvents = True

End Sub

더 자세한 것은... 퇴근해야 해서... ^^;;