이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
글 수 113
![[레벨:4]](http://www.abyul.com/zbxe/modules/point/icons/default/4.gif "포인트:1791point (43%), 레벨:4/30"){kind=icon}
부루끄안녕하십니까
매일 오더 접수를 해야하고 정렬을 새로이 해야 합니다.
보통 정렬은 3개기준까지 되는 것으로 알고 있습니다.
하지만 저는 3개이상의 조건 정렬이 필요하며 하루에 같은 문서 정렬을 수십번 다시 정렬을 해야 합니다.
그래서 시트에 정렬이 자동으로 되는 명령단추를 만들어 정렬을 하고 싶습니다.
첨부참조
예제파일
댓글 '6'
![[레벨:30]](http://www.abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:142053point, 레벨:30/30"){kind=icon}
아별아별님 첨부의 자료에서 열만 중간에 몇개 추가 된 것을 가지고 조금 수정해서 해봤더니 "오류">>디버그 눌러보니
'### 3번째 이후 조건으로 먼저 정렬한 다음..
rngTarget.Sort _
Key1:=rngOrder4, Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
이 부분이 노랑색 음영으로 표시가 됩니다. 고민끝에 도움 요청 드립니다. 제가 수정한 내용은 다음과 같습니다. 수정부분은 dim 변수 선언부분 끝에 셀번호와 열이 좀더 길게 수정했습니다. '### 3가지 조건 이상 정렬하기.. by abyul.com @ 2011-07-21 11:04:00 PM
Sub sortOver3key() Dim WS As Worksheet: Set WS = ActiveSheet
Dim rngTarget As Range: Set rngTarget = Range("A:g")
Dim rngOrder1 As Range: Set rngOrder1 = Range("d4")
Dim rngOrder2 As Range: Set rngOrder2 = Range("g4")
Dim rngOrder3 As Range: Set rngOrder3 = Range("b4")
Dim rngOrder4 As Range: Set rngOrder4 = Range("F4") '### 3번째 이후 조건으로 먼저 정렬한 다음..
rngTarget.Sort _
Key1:=rngOrder4, Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'### 1,2,3번 조건으로 정렬하면 됩니다.
rngTarget.Sort _
Key1:=rngOrder1, Order1:=xlAscending, _
Key2:=rngOrder2, Order2:=xlAscending, _
Key3:=rngOrder3, Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal End Sub
rngTarget.Sort _
Key1:=rngOrder4, Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
이 부분이 노랑색 음영으로 표시가 됩니다. 고민끝에 도움 요청 드립니다. 제가 수정한 내용은 다음과 같습니다. 수정부분은 dim 변수 선언부분 끝에 셀번호와 열이 좀더 길게 수정했습니다. '### 3가지 조건 이상 정렬하기.. by abyul.com @ 2011-07-21 11:04:00 PM
Sub sortOver3key() Dim WS As Worksheet: Set WS = ActiveSheet
Dim rngTarget As Range: Set rngTarget = Range("A:g")
Dim rngOrder1 As Range: Set rngOrder1 = Range("d4")
Dim rngOrder2 As Range: Set rngOrder2 = Range("g4")
Dim rngOrder3 As Range: Set rngOrder3 = Range("b4")
Dim rngOrder4 As Range: Set rngOrder4 = Range("F4") '### 3번째 이후 조건으로 먼저 정렬한 다음..
rngTarget.Sort _
Key1:=rngOrder4, Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'### 1,2,3번 조건으로 정렬하면 됩니다.
rngTarget.Sort _
Key1:=rngOrder1, Order1:=xlAscending, _
Key2:=rngOrder2, Order2:=xlAscending, _
Key3:=rngOrder3, Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal End Sub
부르끄님~
데이터가 어떻게 되어 있는지 몰라서 답변을 못 드리겠네요..
에러가 나는 엑셀 파일을 올려주세요..
또는 메일로 보내주세요.. abyul@naver.com
코드 자체는 에러가 나지 않네요..
엑셀 재미에 푹~ 빠지셨군요.. ㅎㅎ
엑셀 2007버전 이상부터는 3가지 조건 이상이 한번에 적용이 가능합니다만..
3가지 제한을 말씀하시는거 보니, 부르끄님은 엑셀 2003을 사용하고 계신 것 같군요..
우선.. 첨부파일을 다운 받아 보세요..
다운 받기 : 20110721_VAB정렬 문의_xl2003.xls
VBA로 정렬시키는 코드는 아래와 같습니다.
엑셀 2007이상에서는 한번에 3가지 이상의 조건으로 정렬이 가능하지만,
2003이하 버전에서는 뒷부분을 먼저 정렬하고 앞부분의 3가지 조건으로 정렬하면 동일한 결과가 나옵니다.
도움이 되셨기를..
'### 3가지 조건 이상 정렬하기.. by abyul.com @ 2011-07-21 11:04:00 PM
Sub sortOver3key()
Dim WS As Worksheet: Set WS = ActiveSheet
Dim rngTarget As Range: Set rngTarget = Range("A:F")
Dim rngOrder1 As Range: Set rngOrder1 = Range("C2")
Dim rngOrder2 As Range: Set rngOrder2 = Range("B2")
Dim rngOrder3 As Range: Set rngOrder3 = Range("E2")
Dim rngOrder4 As Range: Set rngOrder4 = Range("F2")
'### 3번째 이후 조건으로 먼저 정렬한 다음..
rngTarget.Sort _
Key1:=rngOrder4, Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'### 1,2,3번 조건으로 정렬하면 됩니다.
rngTarget.Sort _
Key1:=rngOrder1, Order1:=xlAscending, _
Key2:=rngOrder2, Order2:=xlAscending, _
Key3:=rngOrder3, Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal
End Sub