เรียนสอบถามการ Loop ในคำสั่ง (vba) Filter เพื่อทำการกรองหลายๆค่าตามที่เราต้องการ

[GobWeravong]

เรียนสอบถามการ Loop ในคำสั่ง (vba) Filter เพื่อทำการกรองหลายๆค่าตามที่เราต้องการ
รายละเอียดตาม Code และไฟล์แนบครับ พอดีผมติดวิธีการวน Loop ของชุดคำสั่ง Filter ที่ต้องนำค่าในตารางมาทำการกรองให้ครบครับ
จาก Code ผมยังไม่ได้ทำ Loop ของ inputName3 ครับ ซึ่งต้องวน Loop ให้ครบครับ

Code: Select all

 
 Sub Filter_DATA_to_OutPut()
Dim AN As Integer
Sheets("Filter").Select
Range("A1").Select
LoopCount = Range("D1")
inputName3 = Range("B3")
inputName4 = Range("B4")
'inputName1000 = Range("B1000")
'#############  Filter LAG sent to Data ####
For r = 3 To LoopCount
         Sheets("Data").Select
         ActiveSheet.Range("$A$1:$C$2000").AutoFilter Field:=1, Criteria1:=inputName3 _
        , Operator:=xlOr, Criteria2:="=AAA"
Call Connect_DATA_Output        
Call DeleteA
         Sheets("Filter").Select
         Range("i1").Select
 Next r
End Sub
  

[GobWeravong]

ไฟล์ทดสอบตามแนบครับ ขอบคุณมากๆครับ

[snasui]

กรณีต้องการให้ B3 เปลี่ยนเป็น B4, B5 สามารถปรับ Code เป็นด้านล่างครับ

Code: Select all

Dim i As Integer
'Other code
For r = 3 To LoopCount
    Sheets("Data").Select
    ActiveSheet.Range("$A$1:$C$2000").AutoFilter Field:=1, Criteria1:=Range("b3").Offset(i, 0) _
   , Operator:=xlOr, Criteria2:="=AAA"

   Call Connect_DATA_Output
   Call DeleteA

   Sheets("Filter").Select
   Range("i1").Select
   
   i = i + 1
   
Next r
'Otercode

[GobWeravong]

เรียน คุณ Snasui ครับ จากการทดสอบ พอดีผมใส่กำหนดค่าเหล่านี้(ตามแนบด้านล่าง) เพื่อจำลองในไฟล์ที่แนบไปครับ ถ้าหากต้องการให้ Code ทีุ่คณ snasui แนะนำมาให้วน loop เพื่อดึงค่า B3, B4, B5 ไปเรื่อยๆจนถึง 500 หรือ 1000 ต้องทำอย่างไรครับ

Code ตัวแปรที่ผมต้องนำออกไปครับ เพราะไม่สามารถกำหนดค่าจนถึง 1000 ได้ครับ

Code: Select all

 
inputName3 = Range("B3")
inputName4 = Range("B4")
inputName5 = Range("B5")
inputName6 = Range("B6")
inputName7 = Range("B7")
'inputName1000 = Range("B1000")

ส่วนล่าสุดที่ทำตามคุณ snasui แนะนำครับ ซึ่งจากการทดสอบ เหมือนกับคำสั่ง filter ไม่นำค่าไปทำการสั่งกรองครับ เมื่อกด
F8 ดู จะเริ่มต้นค่าเป็น *Lag-3* และพอเลื่อนไปเป็นแถบเหลืองจะเป็น 2(ตามภาพครับ) แต่คำสั่งก็ไม่ทำการกรองให้ครับ มีภาพแนบมาด้วยครับ ผมเคยลองโปรแกรมจะทำงาน Filter เมื่อเราใส่ค่าตัวแปร เป็น inputNamex ครับ

Code: Select all

 
Dim AN As Integer
Sheets("Filter").Select
Range("A1").Select
LoopCount = Range("D1")
'#############  Filter LAG sent to Data ###################
For r = 3 To LoopCount
         Sheets("Data").Select
         ActiveSheet.Range("$A$1:$C$2000").AutoFilter Field:=1, Criteria1:=Range("b3").Offset(i, 0) _
        , Operator:=xlOr, Criteria2:="=AAA"
Call Connect_DATA_Output
Call DeleteA
         Sheets("Filter").Select
         Range("i1").Select
         i = i + 1
          Next r
End Sub

[snasui]

ตัวอย่างการปรับ Code ครับ

ในโอกาสถัดไปกรุณาแนบไฟล์ที่ได้ปรับ Code มาแล้วด้วย จะได้ตอบต่อไปจากนั้นครับ

Code: Select all

Dim i As Integer
'Other code
For r = 3 To LoopCount
    inputName3 = Worksheets("Filter").Range("B3").Offset(i, 0).Value
    Sheets("Data").Select
    ActiveSheet.Range("$A$1:$C$2000").AutoFilter Field:=1, Criteria1:=inputName3 _
    , Operator:=xlOr, Criteria2:="=AAA"

    Call Connect_DATA_Output
    Call DeleteA

    Sheets("Filter").Select
    Range("i1").Select
    i = i + 1
Next r
'Other code

โปรดสังเกตว่า Criteria อยู่ในชีตใด การปรับ Code ตามด้านบนให้อ้างถึง Criteria มีลักษณะเป็นอย่างไร จะได้เข้าใจหลักการนำค่าจากชีตใด ๆ ไปใช้ครับ

[GobWeravong]

เรียน คุณ snasui ขอบพระคุณมากๆครับ (รับทราบและจะแก้ไขในการแนบไฟล์ตามที่แนะนำ และรายละเอียดให้ชัดเจนครับ)
output ที่ได้ถูกต้องแล้วครับ หลายๆโพสที่ผมสอบถามทำให้ผมสามารถนำไปใช้ในการทำงานซึ่งทำให้งานมีประสิทธิภาพมากขึ้นครับ(ไม่โดนไล่ออกจากงานแล้วครับ)