Page 1 of 1
เรียนสอบถามการ Loop ในคำสั่ง (vba) Filter เพื่อทำการกรองหลายๆค่าตามที่เราต้องการ
Posted: Tue May 25, 2021 3:37 pm
by 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
Re: เรียนสอบถามการ Loop ในคำสั่ง (vba) Filter เพื่อทำการกรองหลายๆค่าตามที่เราต้องการ
Posted: Tue May 25, 2021 3:38 pm
by GobWeravong
ไฟล์ทดสอบตามแนบครับ ขอบคุณมากๆครับ
Re: เรียนสอบถามการ Loop ในคำสั่ง (vba) Filter เพื่อทำการกรองหลายๆค่าตามที่เราต้องการ
Posted: Tue May 25, 2021 6:06 pm
by 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
Re: เรียนสอบถามการ Loop ในคำสั่ง (vba) Filter เพื่อทำการกรองหลายๆค่าตามที่เราต้องการ
Posted: Tue May 25, 2021 7:00 pm
by 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
Re: เรียนสอบถามการ Loop ในคำสั่ง (vba) Filter เพื่อทำการกรองหลายๆค่าตามที่เราต้องการ
Posted: Wed May 26, 2021 5:49 am
by 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 มีลักษณะเป็นอย่างไร จะได้เข้าใจหลักการนำค่าจากชีตใด ๆ ไปใช้ครับ
Re: เรียนสอบถามการ Loop ในคำสั่ง (vba) Filter เพื่อทำการกรองหลายๆค่าตามที่เราต้องการ
Posted: Wed May 26, 2021 9:04 am
by GobWeravong
เรียน คุณ snasui ขอบพระคุณมากๆครับ (รับทราบและจะแก้ไขในการแนบไฟล์ตามที่แนะนำ และรายละเอียดให้ชัดเจนครับ)
output ที่ได้ถูกต้องแล้วครับ หลายๆโพสที่ผมสอบถามทำให้ผมสามารถนำไปใช้ในการทำงานซึ่งทำให้งานมีประสิทธิภาพมากขึ้นครับ(ไม่โดนไล่ออกจากงานแล้วครับ)