엑셀 trFunc_정렬

Function trFunc_정렬(stname As String, rng As String, Row_Start As Integer, Row_End As Integer, field1 As String, Optional field2 As String, Optional field3 As String, Optional field4 As String, Optional field5 As String)

    ActiveWorkbook.Worksheets(stname).Sort.SortFields.Clear

    ActiveWorkbook.Worksheets(stname).Sort.SortFields.Add Key:=Range(field1 & Row_Start & ":" & field1 & Row_End), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    If field2 <> nil Then

      ActiveWorkbook.Worksheets(stname).Sort.SortFields.Add Key:=Range(field2 & Row_Start & ":" & field2 & Row_End), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    End If

    If field3 <> nil Then

      ActiveWorkbook.Worksheets(stname).Sort.SortFields.Add Key:=Range(field3 & Row_Start & ":" & field3 & Row_End), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    End If

    

    With ActiveWorkbook.Worksheets(stname).Sort

        .SetRange Range(rng)

        .header = xlYes

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

End Function

Function trFunc_정렬_헤더없슴(stname As String, rng As String, Row_Start As Integer, Row_End As Integer, field1 As String, Optional field2 As String, Optional field3 As String, Optional field4 As String, Optional field5 As String)

    ActiveWorkbook.Worksheets(stname).Sort.SortFields.Clear

    ActiveWorkbook.Worksheets(stname).Sort.SortFields.Add Key:=Range(field1 & Row_Start & ":" & field1 & Row_End), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    If field2 <> nil Then

      ActiveWorkbook.Worksheets(stname).Sort.SortFields.Add Key:=Range(field2 & Row_Start & ":" & field2 & Row_End), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    End If

    If field3 <> nil Then

      ActiveWorkbook.Worksheets(stname).Sort.SortFields.Add Key:=Range(field3 & Row_Start & ":" & field3 & Row_End), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    End If

    

    With ActiveWorkbook.Worksheets(stname).Sort

        .SetRange Range(rng)

        .header = xlNo

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

End Function

.