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

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

ขอบคุณครับ คุณ Pong2532 ในส่วนของการ Filter ตอนนี้ได้แล้วครับแต่จะให้มาโชวที่หน้าแรกนี้พอจะมีวิธีไหมครับ

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

Posted: Tue Feb 14, 2017 8:48 pm
by snasui
:D กรณีใช้ AutoFilter แล้วเราสามาถคัดลอกมาวางได้ครับ

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