Page 1 of 1
การกรองข้อมูลโดยVBA
Posted: Fri Feb 01, 2013 2:40 pm
by Khamtun
เรียน อาจารย์และผู้รู้ทุกท่าน
ผมทำการกรองข้อมูลโดยมีการใช้ vba เข้ามาเกี่ยวข้อง
ตอนนี้ติดปัญหากรองข้อมูลไม่ได้รบกวนช่วยแก้ไขหรือแนะนำด้วยครับ
ผมแนบไฟล์ตัวอย่างมาด้วย
ด้วยความนับถือ
Re: การกรองข้อมูลโดยVBA
Posted: Fri Feb 01, 2013 3:33 pm
by snasui
ลองตามนี้ครับ
- คลิกขวาลงในตารางข้อมูล > Table > Convert to Range
- ปรับ 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
Re: การกรองข้อมูลโดยVBA
Posted: Fri Feb 01, 2013 4:02 pm
by Khamtun
เรียน อาจารย์
ทำได้แล้วครับขอบคุณมากครับ
.
ด้วยความนับถือ