การกรองข้อมูลโดยVBA

[Khamtun]

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

ด้วยความนับถือ

[snasui]

ลองตามนี้ครับ

1. คลิกขวาลงในตารางข้อมูล > Table > Convert to Range
2. ปรับ Code เป็นตามด้านล่าง

   Code: Select all

   Sub summary()
       ActiveSheet.Range("$C$4:$H$548").AutoFilter Field:=6, Criteria1:=">=100000" _
           , Operator:=xlAnd, Criteria2:="<=200000"
   '    Call FillItemNum
   End Sub
   
   Sub summary1()
       Range("D3").Select
       ActiveSheet.Range("$C$4:$H$548").AutoFilter Field:=6, Criteria1:=">200000" _
           , Operator:=xlAnd, Criteria2:="<=10000000"
   '    Call FillItemNum
   End Sub
   
   Sub summaryall()
       ActiveSheet.ShowAllData
   End Sub

[Khamtun]

เรียน อาจารย์

ทำได้แล้วครับขอบคุณมากครับ .

ด้วยความนับถือ