Page 1 of 1
หากจะทำใบนำส่งเอกสารหน้าละ 20 ตามแบบฟอร์ม
Posted: Wed Jun 15, 2011 12:08 pm
by gchart
หากจะทำใบนำส่งเอกสารหน้าละ 20 ตามแบบฟอร์ม
โดยมีข้อมูลอยู่แล้วสามารถดึงใส่ฟอร์มเพื่อสังพิมพ์ได้เลย
ไม่ต้องก๊อปปี้วางทีละหน้าครับ
ขอบคุณครับ
Re: หากจะทำใบนำส่งเอกสารหน้าละ 20 ตามแบบฟอร์ม
Posted: Wed Jun 15, 2011 4:54 pm
by snasui
ลองดูตัวอย่าง Code ตามด้านล่างครับ
Code: Select all
Sub PrintBatch()
Dim lng As Long, rs As Range, rt As Range
Set rt = Worksheets("ใบนำส่ง").Range("B8")
With Worksheets("Sheet1")
For lng = 1 To .Range("A" & Rows.Count).End(xlUp).Row Step 20
Set rs = .Range("A" & lng).Resize(20, 1)
rs.Copy: rt.PasteSpecial xlPasteValues
rs.Offset(0, 1).Copy: rt.Offset(0, 1).PasteSpecial xlPasteValues
rs.Offset(0, 2).Copy: rt.Offset(0, 2).PasteSpecial xlPasteValues
rs.Offset(0, 3).Copy: rt.Offset(0, 5).PasteSpecial xlPasteValues
Next lng
End With
Application.CutCopyMode = False
End Sub
Re: หากจะทำใบนำส่งเอกสารหน้าละ 20 ตามแบบฟอร์ม
Posted: Thu Jun 16, 2011 4:18 pm
by gchart
มันต้องสร้างปุ่มเพื่อเลือกหรือเปล่าครับ
Re: หากจะทำใบนำส่งเอกสารหน้าละ 20 ตามแบบฟอร์ม
Posted: Thu Jun 16, 2011 4:29 pm
by snasui
จะสร้างหรือไม่ก็ได้ครับ กรณีไม่ได้สร้างปุ่มสามารถกดแป้น Alt+8 > เลือกชื่อ PrintBatch > Run
กรณีสร้างปุ่มเพื่อคลิกแล้ว Run Code ดูตัวอย่างที่นี่ครับ
http://www.snasui.com/viewtopic.php?p=3488#p3488
Re: หากจะทำใบนำส่งเอกสารหน้าละ 20 ตามแบบฟอร์ม
Posted: Thu Jun 16, 2011 6:11 pm
by gchart
ใส่โค๊ดแล้วมันรันไปหน้าสุดท้ายครับ
ผมจะเลื่อนดูแผ่นต่อไป หรือแผ่นก่อนหน้าอย่างไรครับ
Re: หากจะทำใบนำส่งเอกสารหน้าละ 20 ตามแบบฟอร์ม
Posted: Thu Jun 16, 2011 6:18 pm
by snasui
Code นี้ Run ตั้งแต่หน้าแรกเป็นต้นไปครับ ที่เห็นว่าเป็นหน้าสุดท้ายเพราะว่า Run จนจบแล้ว ผมเขียนมาให้ตามโจทย์คือนำข้อมูลมาวางคราวละ 20 บรรทัดโดยไม่ได้ทำอะไรต่อ
หากจะกำหนดเพิ่มเติมว่าหลังจากวางแล้วจะทำอะไรต่อก่อนที่จะนำชุดต่อไปมาวางก็ต้องเขียน Code เข้ามาเพิ่มเติมครับ ยกตัวอย่างเช่น เมื่อนำข้อมูลมาวางแล้วให้ Print ทุกครั้งที่วางก็จะ Print ให้เช่นนี้เป็นต้นครับ
การที่จะเลื่อนดูได้ด้วยนั้นไม่ได้เขียนให้ครับ เพราะไม่ทราบตั้งแต่แรกว่าต้องการเช่นนี้ ลองออกแบบมาครับว่าจะเลื่อนดูหน้าอื่น ๆ โดยวิธีใด คีย์ลงในเซลล์หรือ ฯลฯ จะได้ช่วยดูต่อครับ
Re: หากจะทำใบนำส่งเอกสารหน้าละ 20 ตามแบบฟอร์ม
Posted: Thu Jun 16, 2011 6:50 pm
by gchart
ใช้ปุ่มลูกศรเลื่อนไปครั้งละ 20 แบบนี้
ใช้วิธีสั่งพิมพ์แบบทีละครั้งครับ เพื่อจะได้ตรวจสอบไปด้วยครับ
ขออนุญาตเพิ่มข้อมูลอีก 1 คอลั่มนะครับ
ขอบคุณครับ
Re: หากจะทำใบนำส่งเอกสารหน้าละ 20 ตามแบบฟอร์ม
Posted: Thu Jun 16, 2011 10:39 pm
by snasui
ลองตามไฟล์แนบครับ
1. ที่เซลล์ M1 คีย์สูตรเพื่อนับว่ารายการทั้งหมดมีจำนวนเท่าไร
=COUNTA(Sheet1!A:A)
Enter
2. สร้าง Object Scroll bar แล้วกำหนดให้ Link มายังเซลล์ B5 หากต้องการทราบว่ากำหนดค่าอย่างไรให้คลิกขวาที่ Scroll bar แล้วเลือก Format Control
3. ที่เซลล์ B8 คีย์สูตรเพื่อแสดงรายการ
=IF(20*($B$5-1)+ROWS(B$8:B8)>$M$1,"",INDEX(Sheet1!A:A,20*($B$5-1)+ROWS(B$8:B8)))
Enter > Copy ลงด้านล่าง > Copy สูตรนี้ไปใช้กับช่องอื่น ๆ
Re: หากจะทำใบนำส่งเอกสารหน้าละ 20 ตามแบบฟอร์ม
Posted: Fri Jun 17, 2011 9:47 am
by gchart
ได้ลองใส่ข้อมูลและสั่งพิมพ์แล้วใช้งานได้ปกติครับ
ขอบคุณครับ