Page 1 of 1
การใช้ Filter (Macro) จากชีทนึงไปยังอีกชีทนึง
Posted: Mon Feb 13, 2017 4:33 pm
by gamefunza
ผมยังไม่ค่อยเข้าใจในส่วนของ Parameter : field และ Criteria ครับ
Code: Select all
Worksheets(5).Range("A1:N15").AutoFilter _
field:=1, _
Criteria:="ID", _
ลองเขียนได้ประมาณนี้เองครับอยากให้ช่วยแนะนำหน่อยครับ
แนบไฟล์ และรูปภาพมาด้วยครับ
Re: การใช้ Filter (Macro) จากชีทนึงไปยังอีกชีทนึง
Posted: Mon Feb 13, 2017 5:06 pm
by pong2532
ใช้ Macro บันทึกได้เลยครับ
แล้วเอาโค๊ดที่ได้จากการบันทึกมาปรับแต่งครับ
ตัวอย่างโค๊ดครับ
ก่อนปรับ
Code: Select all
ActiveSheet.Range("$C$1:$C$67").AutoFilter Field:=1, Criteria1:="30023"
หลังปรับ
Code: Select all
Sheets("เก็บข้อมูล").Range("$C$1:$C$67").AutoFilter Field:=1, Criteria1:=Sheets("Main Page").Range("e3").Value
เอาไปต่อท้ายโค๊ดเดิมได้เลยครับ
ผมใช้วิธีการแบบนี้ในการเขียน VBA ครับ ง่ายและสะดวกดีครับ
Re: การใช้ Filter (Macro) จากชีทนึงไปยังอีกชีทนึง
Posted: Tue Feb 14, 2017 8:40 am
by gamefunza
pong2532 wrote:ใช้ Macro บันทึกได้เลยครับ
แล้วเอาโค๊ดที่ได้จากการบันทึกมาปรับแต่งครับ
ตัวอย่างโค๊ดครับ
ก่อนปรับ
Code: Select all
ActiveSheet.Range("$C$1:$C$67").AutoFilter Field:=1, Criteria1:="30023"
หลังปรับ
Code: Select all
Sheets("เก็บข้อมูล").Range("$C$1:$C$67").AutoFilter Field:=1, Criteria1:=Sheets("Main Page").Range("e3").Value
เอาไปต่อท้ายโค๊ดเดิมได้เลยครับ
ผมใช้วิธีการแบบนี้ในการเขียน VBA ครับ ง่ายและสะดวกดีครับ
ขอบคุณครับ คุณ Pong2532 ในส่วนของการ Filter ตอนนี้ได้แล้วครับแต่จะให้มาโชวที่หน้าแรกนี้พอจะมีวิธีไหมครับ
Re: การใช้ Filter (Macro) จากชีทนึงไปยังอีกชีทนึง
Posted: Tue Feb 14, 2017 8:48 pm
by snasui
กรณีใช้ AutoFilter แล้วเราสามาถคัดลอกมาวางได้ครับ
ลองบันทึก Macro โดยหลังจากกดปุ่มแล้วมีลำดับการทำงานดังนี้ครับ
- ลบข้อมูลเดิมที่มีในชีท Main Page
- เลือกข้อมูลที่ได้จากการ Filter วิธีการเลือกคือคลุมข้อมูลทั้งหมด > กดแป้น F5 > Special > Visible cells only > OK
- คัดลอกข้อมูลตามข้อ 2 มาวางในชีต Main Page
- กดปุ่ม ESC เพื่อยกเลิกการคัดลอก
ลองทำมาดูก่อน ติดตรงไหนค่อยถามกันต่อครับ