Page 1 of 1
ขอช่วยแนะขั้นตอนการสั่งพิมพ์รายงานให้กระชับค่ะ
Posted: Wed Feb 15, 2017 11:01 pm
by suka
เรียนอาจารย์และท่านผู้รู้ช่วยเรื่องปรับโค้ดเรียกข้อมูลตามเลขที่บิลค่ะ
จากโค้ดตัวอย่างไฟล์ชีท Report เรียกข้อมูลตามค่าในเซลล์ e5 จากชีท Database มาและใช้สูตรดึงข้อมูลมาที่ชีท Print เพื่อพิมพ์บิล เป็นขั้นตอนการทำงานที่ซับซ้อน ขอรบกวนช่วยแนะแนวทางปรับลดขั้นตอนให้ข้อมูลมาที่ชีท Print ตามตัวอย่างไฟล์แนบ ควรปรับโค้ดด้านล่างอย่างไรคะ
Code: Select all
Sub Report()
Sheets("Report").Range("A10:AE1000").ClearContents
Sheets("Database").Columns("b:AF").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("E4:E5"), CopyToRange:=Range("A10"), Unique:=False
Sheets("Print").Select
End Sub
Re: ขอช่วยแนะขั้นตอนการสั่งพิมพ์รายงานให้กระชับค่ะ
Posted: Thu Feb 16, 2017 5:21 am
by snasui
ช่วยอธิบายปัญหาที่เป็นว่าคืออะไร คำว่าซับซ้อนที่กล่าวนั้น หากไม่ใช่ปัญหาก็ไม่จำเป็นต้องปรับปรุง โค้ดด้านบนทำงานได้หรือไม่ หรือติดขัดปัญหาใดอธิบายมาด้วยครับ
Re: ขอช่วยแนะขั้นตอนการสั่งพิมพ์รายงานให้กระชับค่ะ
Posted: Thu Feb 16, 2017 12:09 pm
by suka
ค่ะอาจารย์
ปัญหาโค้ดด้านบนติด AdvancedFilter ข้อมูลมาเป็นบางส่วนไม่ได้ค่ะ
ความต้องการคัดลอกข้อมูลจากชีท Database เข้าเงื่อนไขตามค่าเซลล์ E4:E5 ชีท Report โดยคัดลอกและวางข้อมูลบางส่วนมาวางที่ชีท Print ดังนี้ค่ะ
คัดลอกข้อมูลเซลล์ I3:I7 ชีท Report มาวางที่เซลล์ D8:D12 ชีท Print
คัดลอกข้อมูลเซลล์ E5 ชีท Report มาวางที่เซลล์ K9 ชีท Print
คัดลอกข้อมูลเซลล์ A11 ชีท Report มาวางที่เซลล์ J10 ชีท Print
คัดลอกข้อมูลเซลล์ F11:F ชีท Report มาวางที่เซลล์ A16:A ชีท Print
คัดลอกข้อมูลเซลล์ N11:N ชีท Report มาวางที่เซลล์ C16:C ชีท Print
คัดลอกข้อมูลเซลล์ N11:N ชีท Report มาวางที่เซลล์ C16:C ชีท Print
คัดลอกข้อมูลเซลล์ R11:R ชีท Report มาวางที่เซลล์ G16:G ชีท Print
คัดลอกข้อมูลเซลล์ S11:S ชีท Report มาวางที่เซลล์ H16:H ชีท Print
คัดลอกข้อมูลเซลล์ T11:T ชีท Report มาวางที่เซลล์ 16:I ชีท Print
คัดลอกข้อมูลเซลล์ U11:U ชีท Report มาวางที่เซลล์ K16:K ชีท Print
คัดลอกข้อมูลเซลล์ W11:W ชีท Report มาวางที่เซลล์ L16:L ชีท Print
คัดลอกข้อมูลเซลล์ L39:L ชีท Report มาวางที่เซลล์ L39:L40 ชีท Print
Re: ขอช่วยแนะขั้นตอนการสั่งพิมพ์รายงานให้กระชับค่ะ
Posted: Thu Feb 16, 2017 7:30 pm
by snasui
เมื่อ Filter ด้วย Advanced Filter มาแล้วค่อยตัดเอาเฉพาะคอลัมน์ที่ต้องการใช้งานด้วย Code อีกที จะได้ไม่มีข้อมูลที่ไม่ต้องการครับ
Re: ขอช่วยแนะขั้นตอนการสั่งพิมพ์รายงานให้กระชับค่ะ
Posted: Thu Feb 16, 2017 10:55 pm
by suka
ขอบคุณค่ะอาจารย์ จะลองทำดูหากติดปัญหาแล้วมาถามใหม่ค่ะ