Snasui Excel Forum

Posted: **Mon Oct 10, 2011 11:51 am**

อยากได้สูตร VBA ในการ Sorting Sales ที่ลาออกไปแล้วให้มา กองรวมกันอยู่ท้ายสุด
โดยในขั้นต้นผมจะ Sorting ตาม สถานะ Sales โดยให้ Sales ที่คงอยู่อยู่ข้างบน ตามด้วย Sorting ตามชื่อ ตามด้วยนามสกุล

โดยผมจะให้คนที่รับผิดชอบมา Update Sales list ใครลาออกก้ไป เปลี่ยนสถานะให้เป็นลาออก หรือหากเพิ่ม Sales เข้าใหม่พอเพิ่มเสร็จให้จัดเรียงตามเงื่อนไขที่กล่าวมา โดยมีปุ่ม Sorting ให้กด แต่มไม่ค่อยรู้ Code VBA อาจารย์ช่วยทีครับ

Posted: **Mon Oct 10, 2011 12:01 pm**

หากต้องการใช้ Code ให้เขียนมาเองก่อนครับ ติดตรงไหนก็มาถามกัน

กรณีนี้ลองบันทึก Macro ดูก็ได้ครับ หากยังไม่ได้ตามต้องการค่อยส่ง Code มาในฟอรัมเพื่อช่วยกันดูต่อครับ

Posted: **Mon Oct 10, 2011 1:22 pm**

นี่ครับผมลองเขียนตามหนังสือแต่มัน ฟ้อง Debug ครับ

Posted: **Mon Oct 10, 2011 1:57 pm**

ผมบันทึก Macro และปรับ Code มาให้เป็นตัวอย่างตามด้านล่างครับ

Code: Select all

Sub SortData()
Dim r As Range
With Sheets("Sales")
    Set r = .Range("A1", .Range("K" & Rows.Count).End(xlUp))
End With
    r.Sort Key1:=Range("K2"), Order1:=xlAscending, Key2:=Range _
        ("C2"), Order2:=xlAscending, Key3:=Range("D2"), Order3:=xlAscending, _
        Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
        xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
        DataOption3:=xlSortNormal
End Sub

Posted: **Mon Oct 10, 2011 2:22 pm**

ได้แล้วครับ ขอบคุณคร๊าบบบบบบบบบบบบบบ

Snasui Excel Forum

ขอสูตร VBA Sorting หน่อยครับ

ขอสูตร VBA Sorting หน่อยครับ

Re: ขอสูตร VBA Sorting หน่อยครับ

Re: ขอสูตร VBA Sorting หน่อยครับ

Re: ขอสูตร VBA Sorting หน่อยครับ

Re: ขอสูตร VBA Sorting หน่อยครับ