vba การ sort โดยมีหลายเงื่อนไขครับ

[DhitiBank]

สวัสดีอาจารย์และเพื่อนๆ ครับ

สิ่งที่ต้องการคือ เมื่อใส่ข้อมูลของสินค้าใหม่ใน Sheet1 A2:D2 แล้ว พอกดปุ่ม Add ก็ให้ข้อมูลดังกล่างไปเพิ่มในตารางซึ่งอยู่ Sheet2 และให้เรียงลำดับตามชื่อสินค้าก่อน จากนั้นก็เรียงตามกลุ่มสินค้า

แต่เกิดข้อผิดพลาดเมื่อคำสั่งรันถึงบรรทัด.Sort key2ด้านล่างครับ

Code: Select all

With Range("B4:N" & rowCount + 5)
          .Sort key1:=Range("D4"), Order1:=xlAscending, _
                MatchCase:=False, _
                Header:=xlYes, _
                Orientation:=xlTopToBottom
          .Sort key2:=Range("B4"), Order2:=xlAscending, _
                Header:=xlNo, _
                MatchCase:=False, _
                Orientation:=xlTopToBottom
End With

ผมควรปรับโค้ดอย่างไรครับ

ขอบคุณครับ

[DhitiBank]

ช่วยกระผมด้วยครับ....

[snasui]

ลองใช้ Code ด้านล่างแทนครับ

Code: Select all

...
With ActiveSheet
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=.Range("D" & rowCount + 5) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .Sort.SortFields.Add Key:=.Range("B" & rowCount + 5) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With .Sort
            .SetRange Range("B4:N" & rowCount + 5)
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
End With
...

[DhitiBank]

ขอบคุณครับอาจารย์ เดี๋ยวกลับบ้านจะลองดูแล้วจะรายงานผลอีกทีครับ

[DhitiBank]

โค้ดใช้งานได้อย่างดีครับ ขอบพระคุณอาจารย์มากครับ

[DhitiBank]

อาจารย์ครับ ติดปัญหาตรงโค้ดที่สั่งให้ใส่ autofilter ที่หัวตารางครับ

ปัญหามีว่าเวลากดปุ่ม Add แล้ว สินค้าใหม่เข้าไปอยู่ในตารางและเรียงลำดับเรียบร้อย แต่เครื่องมือกรองจะมาบ้างไม่มาบ้างครับ คือจะสลับกัน สมมติว่ากด Add ครั้งแรกเครื่องมือกรองมา หากกด Add ครั้งที่ 2 เครื่องมือกรองจะไม่มี พอกดครั้ง 3 ก็จะมา เป็นแบบนี้สลับไปเรื่อยๆ ครับ

Code: Select all

ActiveSheet.Range("B4:E4").Select
Selection.AutoFilter
ActiveSheet.Protect , AllowFiltering:=True

ผมต้องปรับโค้ดอย่างไรครับ อยู่บรรทัดที่ 40

ขอบคุณครับ

[snasui]

อาจารย์ครับ ติดปัญหาตรงโค้ดที่สั่งให้ใส่ autofilter ที่หัวตารางครับ...

Code: Select all

ActiveSheet.Range("B4:E4").Select
Selection.AutoFilter
ActiveSheet.Protect , AllowFiltering:=True

ผมต้องปรับโค้ดอย่างไรครับ อยู่บรรทัดที่ 40

ขอบคุณครับ

ลองปรับ Code เป็นด้านล่างครับ

Code: Select all

ActiveSheet.Range("B4:E4").Select
If Not ActiveSheet.AutoFilterMode Then
    ActiveSheet.Range("B4:E4").AutoFilter
End If
ActiveSheet.Protect , AllowFiltering:=True

[DhitiBank]

ขอบคุณครับอาจารย์ เดี๋ยวจะลองดูครับ

[DhitiBank]

ลองปรับใช้แล้ว โค้ดใช้ได้ดีเลยครับ ขอบคุณอีกครั้งครับ