Snasui Excel Forum

รบกวนผู้รู้ครับ จะเขียนโค้ดอย่างไรให้รันตามค่าFiltersที่มีอยู่ทั้งหมด โดยไม่ต้องใส่ค่าFiltersในโค้ดครับ

chutipon55 wrote: Mon Feb 26, 2018 6:24 pm รบกวนผู้รู้ครับ จะเขียนโค้ดอย่างไรให้รันตามค่าFiltersที่มีอยู่ทั้งหมด โดยไม่ต้องใส่ค่าFiltersในโค้ดครับ

Code: Select all

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("K7").Select
    ActiveSheet.Range("$K$6:$K$7393").AutoFilter Field:=1, Criteria1:="10"
    Range("A1:L7393").Select
    Range("A5").Activate
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
    Sheets("µé¹©ºÑº").Select
    ActiveSheet.Range("$K$6:$K$7393").AutoFilter Field:=1, Criteria1:="14"
    Application.CutCopyMode = False
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=-3
    Sheets("µé¹©ºÑº").Select
    ActiveSheet.Range("$K$6:$K$7393").AutoFilter Field:=1, Criteria1:="20"
    Application.CutCopyMode = False
    Selection.Copy
    Application.WindowState = xlMinimized
    Application.WindowState = xlNormal
    Sheets("Sheet1").Select
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
    Range("G16").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    
End Sub

แนบไฟล์ตัวอย่าง และค่าที่จะกรองมาดูครับ จะได้ต่อการตอบของเพื่อนๆ สมาชิกครับ

ขออภัยครับ ไฟล์มีขนาดใหญ่เกินไป ผมมือใหม่ครับ

ตรงบรรทัด ผมอยากทราบว่าจะสามารถทำให้รันค่าFilterแบบออโต้ โดยไม่ใส่ค่า Criteia อย่างไร

chutipon55 wrote: Mon Feb 26, 2018 10:23 pm ขออภัยครับ ไฟล์มีขนาดใหญ่เกินไป ผมมือใหม่ครับ

ตัดข้อมูลมาพอเป็นตัวอย่าง ไม่จำเป็นต้องใช้ไฟล์จริงในการถามตอบ อ่านกฎการใช้บอร์ดข้อ 4 ด้านบนประกอบครับ

ให้ออกมารูปแบบไฟล์ที่แนบอะครับ จะใส่โค้ดให้ Filter รันออโต้อย่างไร ขอบพระคุณครับ

ช่วยอธิบายประกอบมาด้วยครับ

Sheet2 และ Sheet3 คือคำตอบที่ต้องการใช่หรือไม่ หากใช่ มาด้วยเงื่อนไขใด เขียนมาอย่างละเอียด จะได้เข้าใจตรงกัน แนบไฟล์ที่มี Code มาด้วยโดยไฟล์ที่มี Code จะต้อง Save As เป็นนามสกุล .xlsm เป็นอย่างน้อยครับ