Snasui Excel Forum

Posted: **Mon Jan 09, 2012 1:05 pm**

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

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

Posted: **Mon Jan 09, 2012 1:45 pm**

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

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

Posted: **Mon Jan 09, 2012 2:28 pm**

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

Posted: **Mon Jan 09, 2012 3:11 pm**

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

Posted: **Tue Jan 10, 2012 10:10 am**

ขั้นตอนการทำงานอยู่ใน 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

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

Posted: **Tue Jan 10, 2012 11:06 am**

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

Code: Select all

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

Posted: **Wed Jan 11, 2012 12:22 pm**

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

Snasui Excel Forum

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

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

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

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

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

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

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

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