การใช้ Macro ในการจัดเรียงข้อมูล

[nuibaac]

เรียน ท่านอาจารย์ครับ
ผมขอสอบถามเรื่องการใช้ Macro ในการจัดเรียงข้อมูลครับ คือต้องการเขียน Macro เพื่อให้สามารถจัดเรียงข้อมูลได้ตลอดถึงแม้ว่าจะมีข้อมูลเพิ่มเติมเข้าในฐานข้อมูลของเราไม่ว่าจะเพิ่มเข้ามากี่แถวครับ

Code: Select all

Sub Macro1()
'
' Macro1 áÁâ¤Ã
'

'
    Range("D1:E26").Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("D2:D26") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("D1:E26")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
End Sub

[snasui]

ดูตัวอย่าง Code ที่คล้ายกันได้จาก Link นี้ครับ viewtopic.php?f=3&t=7162#p45598

[nuibaac]

นำ Code ที่อาจารย์แนะนำ เอาไปใช้แล้ว ได้ผลตามที่ต้องการครับ ขอบพระคุณมากครับ