Snasui Excel Forum

Code: Select all

Sub Macro6()
'
' Macro8 แมโคร
'

    '1
    Dim resp As Integer
    resp = MsgBox("ท่าน ต้องการจะเรียงข้อมูล นะครับ!", vbCritical + vbOKCancel, "ยืนยัน")
         If resp = vbCancel Then Exit Sub
    ChDir "D:\ABC"
    Workbooks.Open Filename:="[color=#FF0000]D:\ABC\010_5906.XLS[/color]"
    Sheets("Sheet1").Select
    Range("A7").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("AA:AA") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("X:X") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A7:AY900")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A7").Select
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    
    '2

    ChDir "D:\SLC"
    Workbooks.Open Filename:="[color=#FF0000]D:\ABC\T08_5906.XLS[/color]"
    Sheets("Sheet1").Select
    Range("A7").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("AA:AA") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("X:X") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A7:AY900")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A7").Select
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    '3...
    '4...
    '5...
End Sub