การใช้ Filter (Macro) จากชีทนึงไปยังอีกชีทนึง

[gamefunza]

ผมยังไม่ค่อยเข้าใจในส่วนของ Parameter : field และ Criteria ครับ

Code: Select all

Worksheets(5).Range("A1:N15").AutoFilter _ 
 field:=1, _ 
 Criteria:="ID", _ 

ลองเขียนได้ประมาณนี้เองครับอยากให้ช่วยแนะนำหน่อยครับ

แนบไฟล์ และรูปภาพมาด้วยครับ

[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 ครับ ง่ายและสะดวกดีครับ

[gamefunza]

ใช้ 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 ตอนนี้ได้แล้วครับแต่จะให้มาโชวที่หน้าแรกนี้พอจะมีวิธีไหมครับ

[snasui]

กรณีใช้ AutoFilter แล้วเราสามาถคัดลอกมาวางได้ครับ

ลองบันทึก Macro โดยหลังจากกดปุ่มแล้วมีลำดับการทำงานดังนี้ครับ

1. ลบข้อมูลเดิมที่มีในชีท Main Page
2. เลือกข้อมูลที่ได้จากการ Filter วิธีการเลือกคือคลุมข้อมูลทั้งหมด > กดแป้น F5 > Special > Visible cells only > OK
3. คัดลอกข้อมูลตามข้อ 2 มาวางในชีต Main Page
4. กดปุ่ม ESC เพื่อยกเลิกการคัดลอก

ลองทำมาดูก่อน ติดตรงไหนค่อยถามกันต่อครับ