엑셀 VBA #30 / 정렬_1 [VBA]

엑셀 VBA #30 / 정렬_1 [VBA]

원본 자료

1. 코딩 예시
  1.1. 정렬기준 : 일자 오름차순
    Dim rng As Range
    Set rng = Range("a4", Cells(Rows.Count, "d").End(xlUp))

    Sheets("정렬1").Sort.SortFields.Clear
    '시트 '정렬1'에 사용자정의목록으로 정렬되는게 있다면 지워라(정렬 코딩시 필수 문장).

    rng.Sort rng(1, 1)
    'rng영역의 첫 번째 행 & 첫 번째 열 기준으로 정렬하라(추가 옵션 없는 경우에는 오름차순임)
 

  1.2. 정렬기준 : 일자 내림차순 & 지역 오름차순
    Dim rng As Range
    Set rng = Range("a4", Cells(Rows.Count, "d").End(xlUp))

    Sheets("정렬1").Sort.SortFields.Clear
    '시트 '정렬1'에 사용자정의목록으로 정렬되는게 있다면 지워라 (정렬 코딩시 필수 문장) .

    rng.Sort rng(1, 1), xlDescending, rng(1, 2), , xlAscending, Header:=xlNo, Orientation:=xlSortColumns

    'Orientation : 정렬 방향

 

vba#30.xlsm

0.02MB

 

https://www.youtube.com/watch?v=OJ3fg69znFg&list=PLfxvqpVCYZ8e0qlyc_FU46neoWjO7yTWj&index=30