การใช้ตัวกรองขั้นสูง

[yodpao.b]

คำถาม จำเป็นไหมตั้งล้างตัวกรองก่อนทุกครั้ง ก่อนที่จะใช้ตัวกรองในครั้งต่อไป

ข้อสงสัย คือผมได้ใช้ตัวกรองที่ต่ำแหน่งเดิมแล้วสั่งให้ทำงาน และต้องการใช้อีกครั้ง ก็ใช้ได้โดยไม่ต้องสั่งล้าง
แต่พอกลับมาทำแบบเดิมอีกครั้งหนึ่งกลับสั่งให้ทำงานซ้ำอีกครั้งไม่ได้

[snasui]

ความจำเป็นอยู่ที่ว่าอย่างใดทำงานได้ถูกต้องกว่ากันครับ ถ้าหากว่าล้างค่าออกไปก่อนแล้วทำงานถูกต้องควรจะเลือกเช่นนั้น

โดยปกติถ้าไม่ได้เขียนด้วย Code เพื่อสั่งให้ทำงาน เราไม่จำเป็นต้องล้างค่าออกไปแต่อย่างใด แต่สำหรับการใช้ Code หากเป็นไปได้ เมื่อทำงานใด ๆ แล้วควรจะให้กลับมาเริ่มที่สถานะปกติเพื่อพร้อมใช้เสมอครับ

[yodpao.b]

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

[snasui]

ลองแนบตัวอย่างปัญหามาให้เพื่อน ๆ ช่วยดูกัน จะได้สะดวกในการทดสอบครับ

[yodpao.b]

ขั้นตอนการทำงานอยู่ใน Excel หน้า"ขั้นตอน"
อาจาร์ยช่วยแนะนำหนอยครับจะแก้ปัญหาอย่างไร
code ด้านล่างนี้ใช้Runโปรแกรม

Code: Select all

Sub Report1DataTrain()
        Call MacroShowAllReport1
        Call MacroDeleteReport1
        Sheets("DataTrain").Select
        Call MacroHeadCReport1
        Range("D6") = "ÃÒ§ҹáÊ´§¢éÍÁÙÅ¡ÒþѲ¹Òµ¹àͧàªè¹¡ÒÃà¢éÒͺÃÁ ÊÑÁÁ¹Ò ¡ÒûÃЪØÁ áÅÐÍ×è¹æ"
        Sheets("DataTrain").Select
        Call MacroDataReport1
        Call MacroHeadLReport1
        Call MacroTextFormatReport1
        Call MacroPasteFormatReport1
            Columns("C:C").EntireColumn.Hidden = True
            Columns("E:E").EntireColumn.Hidden = True
            Columns("D:D").ColumnWidth = 7
            Range("D7") = "»Õ ¾.È."
        Call MacroFilterReport1
        Call MacroSUBTOTALReport1
        Range("D1").Select
        Call MacroMsgBoxReport1
End Sub

ส่วนตัวที่เป็นปัญหาน่าจะเป็นตัวนี้ด้านล่าง

Code: Select all

Call MacroShowAllReport1

ทั้งนี้ได้แนบไว้มาให้อาจาร์ยดู

[snasui]

ลองใช้ On Error Resume Next มาช่วยตามด้านล่างครับ

Code: Select all

Sub MacroShowAllReport1()
    On Error Resume Next 'Case filter inactive.
    Sheets("Report1").Select
    ActiveSheet.ShowAllData  'ล้างตัวกรอง
End Sub

[yodpao.b]

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