จะออกแบบพิมพ์บิลพร้อมเก็บข้อมูล

[basad396]

คือผมขอมาตั้งคำถามแล้วกันครับอาจารย์
หากว่าเราจะทำแบบฟรอมตรอกการจ่ายค่าบำรุงโรงเรียนแล้วสั่งพิมพ์เป็นบิล
หมายความว่าคือเมื่อเรามีขอมูลเด็กแต่ละคนอยู่ เป็นรายชั้นเรียนตั้งแต่ 1 - 6
หลังจากนั้นเราจะสั่งพิมพ์บิลการจ่ายเงินค่าบำรงโรงเรียนของเด็กในแต่ละคนโดยให้ข้อมูลเด็กที่จ่ายค่าบำรุงนั้นเก็บไว้ และสามารถสั่งโชว์ฟรอมเด็กที่จ่ายเเล้วกี่คนได้
เช่นเด็กที่จ่ายแล้วในแต่ละชั้น เด็กที่ไม่จ่ายทีในแต่ละชั้น กำหนดว่าเด็กคนนี้เรียนฟรี จ่ายในและละครอบครัวเช่น เด็ก 1คน 500 บาทต่อปี 2 คน 800 บาท 3 คน 1000 บาท 4 คนขึ้นไป 1200 บาท อะไรประมานนี้
สามารถที่จะทำได้ไม่อย่างไรแล้วทำอยากไม่ครับ
ตั้งทำข้อมูลใน เวิกบุคเดียวกันหรือไม่ และสามารถที่จะทำคนละเวิกบุคได้หรือไม่
ตอนนี้ผมมีแต่ข็อมูลเด็กในแต่ละชั้น ยังคิดไม่ออกว่าจะออกเเบบงานมายังไงดีอีกอย่างทำไม่เป็นด้วยส่วยใหญ่แล้วเอาสูตรจากอาจารย์ไปก๊อปปีลองทำดู

ออคือว่าให้บิลที่พิมพ์สามารถพิมลงบนกระดาษ a 4 และให้เป็น 2 ส่วนในแผ่นเดียวกันคือส่าวหนึ่งให้เป็นก๊อปปี

ไม่มีไฟล์แนบครับคืออย่างถามดูก่อนครับอาจารย์

[bank9597]

เอ็กเซลล์สามารถทำได้สบายครับ และทำได้เหนือกว่าอีกมากมาย ไม่ต้องเป็นห่วงครับ ลองออกแบบฟอร์มมาดูก่อนครับ โดยมีฟอร์มกรอกข้อมูล ชีทเก็บข้อมูล ตัวปริ้นเอ้าท์ครับ

[basad396]

ครับผมลองส่งไฟล์ไปให้ดูครับ
คือผมสร้างฟรอมไม่เป็นครับอย่ากจะสร้างหน้าแรกให้เป็นแบบฟรอมหน้าหลักแต่ไม่เป็นครับ
และฟรอมบิลก็สร้างไม่เป็นคือใช้ macro vba ไม่เป็นครับ

[snasui]

ตัว Form ที่ให้กรอกหรือดึงข้อมูลมาแสดงสร้างใน Worksheet เลยครับ เพิ่มชีทว่าง ๆ มาสักสองชีท ชีทแรกเป็นแบบฟอร์ม ชีทที่สองเป็นฐานข้อมูล สำหรับชีทแบบฟอร์มให้ออกแบบว่าเซลล์ไหนให้กรอกค่าไหน เพื่อจะนำไปเก็บในฐานข้อมูล ซึ่งฐานข้อมูลก็ควรจะสอดคล้องกับแบบฟอร์ม

กรณีการนำข้อมูลบันทึกลงฐานข้อมูล นำมาแสดงในรูปแบบที่ต้องการ สั่งพิมพ์ ค่อยมาดูกันต่อหลังจากมีแบบฟอร์มและฐานข้อมูลเรียบร้อยแล้วครับ

[basad396]

จัดส่งให้ใหม่ครับอาจารย์
ผมเพิ่มชีดฟรอมใบเสร็จรับเงิน และ ตารางเก็บฐานข้อมูล
คือแบบว่าหากเราแค่คีย์ ระหัสในช่องพิมพ์ระหัสนักเรียน แล้วให้มันปรากฏข้อความเลยโดยตรงในช่อง ชื่อนักเรียน ชั้นปีที่ ที่อยู่ปัจจุบัน
โดยได้จากข้อมูลนักเรียนในแต่ละชั้น จะยากเกินไปไม่ครับ แค่เรามากรอกรายการเท่านั้นเอง แต่ว่าให้หลักจากที่เรากดตรงที่หมายเหตุ จ่ายแล้วให้ข้อมูลทั้งหมดไปบันทึก
เก็บไว้ที่ ตารางเก็บฐานข้อมูล ตามชื่อหัวข้อด้านบนครับ แต่อยากจะให้ช่องหมายเหตุเป็นเครื่องหมายขีดถูกไว้ครับ

ในส่วนชีดฟรอมใบเสร็จรับเงินส่วนที่เป็นก๊อปปีให้เป็นการก๊อปปีจาต้นฉบับครับให้เหมื่อนกันทุกประการเพื่อเก็บไว้ที่โรงเรียนเป็นหลักบานครับจะตัดครึงของกระดาษ a 4

[snasui]

ผมทำตัวอย่างและการบันทึก Macro ง่าย ๆ มาให้ดูตามไฟล์แนบครับ
โดยมีวิธีการคร่าว ๆ คือ

1. ที่ชีท ฟรอมใบเสร็จรับเงิน (ที่ถูกต้องควรเขียน ฟอร์มใบเสร็จรับเงิน) ให้ทำการ Copy A1:E22 แล้ววางแบบ Picture Link (รูปภาพที่เชื่อมโยง) ที่ G1
2. สร้างชีท Temp มารับข้อมูลจากใบเสร็จ และเพื่อง่ายต่อการวางข้อมูลในชีท ตารางเก็บข้อมูล
3. ให้ชื่อกับช่วงเซลล์ในชีท Temp เป็นชื่อ Source
4. ให้ชีทกับช่วงเซลล์ในชีท ตารางเก็บข้อมูล เป็นชื่อ Target สามารถเข้าดูชื่อได้โดยคลิกที่ชีท Formula > Name Manager
5. บันทึก Macro เพื่อนำชื่อ Source ไปวางที่ Target และทำการ Print

[basad396]

ครับอาจารย์ใช้ได้เลยครับ
เมื่อสร้างระเบียนขึ้นมาใหม่สามารภที่จะทำการลบชีดชั้นปีที่ 1-6 ได้ใช่ไหมครับ
หากเป็นไปได้อยากจะให้สามารถรู้และทราบว่านักเรียนที่จ่ายแล้วในแต่ละห้อง และนักเรียนที่ยังไม่จ่ายที่ตามห้อง
และนักเรียนที่ยังไม่ได้จ่ายทีทั้งหมดครับ
พอดีผมได้ทำแบบคร่าวๆชีดหน้าหลักไว้ มีนักเรียนที่จ่ายแล้วในแต่ละห้อง นักเรียนที่ยังไม่จ่ายในแต่ละห้อง นักเรียนที่ยังไม่จ่ายที่ทั้งหมด
คือมือกดดูจะมีหน้าต่างหรือระเบียนที่แสดงให้ทราบ เช่นห้อง 2 นักเรียนที่ยังไม่จ่ายที่มีกี่คนใครบ้างอะไรประมานนี้ครับไม่ทราบว่าอยากไม่ครับอาจารย์
หากไม่อยากช่วยลองทำให้หน่อยครับ

ตามไฟล์แนบผมได้ลบชีดชั้นปีที่ 1-6 ออกไปไม่ทราบว่ามีผลอะไรไม่ ลบเพื่อว่าข้อมูลชีดไม่มากครับ

[snasui]

ช่วยออกแบบรายงานแต่ละหน้าตามปุ่มในหน้าหลักมาด้วยครับ

[basad396]

อย่างนี้เลยก็ได้ครับ

[snasui]

ลองดูตัวอย่างตามไฟล์แนบสำหรับการหานักเรียนที่ยังไม่ได้จ่าย, นักเรียนที่ยังไม่จ่ายในแต่ละห้องครับ โดย

1. ที่ชีทระเบียนเซลล์ L1 คีย์ 0
2. ที่ชีทระเบียนเซลล์ L2 คีย์สูตรเพื่อให้ค่าลำดับ
   =IF(ISNA(MATCH(C2,ตารางเก็บฐานข้อมูล!$D$2:$D$256,0)),LOOKUP(9.99999999999999E+307,L$1:L1)+1,"")
   Enter > Copy ลงด้านล่าง
3. ที่ชีท นักเรียนที่ยังไม่ได้จ่าย เซลล์ J1 คีย์สูตรเพื่อหาค่าลำดับที่มากที่สุดในชีท ระเบียน
   =LOOKUP(9.99999999999999E+307,ระเบียน!L:L)
   Enter
4. ที่ชีท นักเรียนที่ยังไม่ได้จ่าย เซลล์ A2 คีย์สูตรเพื่อให้ค่าลำดับ
   =IF(ROWS(A$2:A2)>$J$1,"",ROWS(A$2:A2))
   Enter > Copy ลงด้านล่าง
5. ที่ชีท นักเรียนที่ยังไม่ได้จ่าย เซลล์ B2 คีย์สูตรเพื่อ List รายการต่าง ๆ ที่เกี่ยวข้อง
   =IF($A2<>"",LOOKUP($A2,ระเบียน!$L$2:$L$165,ระเบียน!A$2:A$165),"")
   Enter > Copy ลงด้านล่าง Copy ไปยังเซลล์อื่น ๆ ที่เกี่ยวข้องและเปลี่ยนช่วงเซลล์ในสูตรให้ตรงกับที่ต้องการ

สำหรับนักเรียนที่จ่ายแล้วทั้งหมด, นักเรียนที่จ่ายแล้วในแต่ละห้องดูได้จากหน้าตารางเก็บฐานข้อมูล

[basad396]

ครับใช้ได้เลยครับหากจะใส่สีพื้นหลัง
ให้กับชีดนักเรียนที่ยังไม่ได้จ่ายเพื่อให้ง่ายต่อการแยกแยะระหว่างชั้นเช่น
นักเรียนชั้น 1 อีกสี
นักเรียนชั้น 2 อีกสีเป็นต้น
ต้องทำไง

[snasui]

ลองตามนี้ครับ

1. ไปที่ชีท นักเรียนที่ยังไม่ได้จ่าย
2. เลือกเมนู Home > Conditional Formatting > Manage Rules
3. คลิกปุ่ม New Rule > Use as formula to determine which cells to format
4. ช่อง Format values where this formula is true: คีย์สูตร =$B2="1-1" เพื่อเป็นการกำหนด Format ให้กับชั้น 1-1
5. คลิกปุ่ม Format... > เลือกรูปแบบที่ต้องการ > OK
6. ที่ช่อง Applies to ให้เปลี่ยน =$B$2 เป็นคลุมข้อมูลทั้งหมดคือ A2:H163 > คลิกปุ่ม Apply
7. ทำตั้งแต่ข้อ 3 ใหม่กับห้องอื่น ๆ ที่เหลือ

[basad396]

ขอบคุณมากครับอาจารย์

[gengkitty]

สวัสดีครับ
ผมได้ลองทำตามรายละเอียดที่อาจารย์เขียน แต่ทำตามแล้วก็ไม่ได้ครับ
ผมได้แนบไฟล์งานของผมมาด้วย ซึ่งคล้ายๆกับที่อาจารย์แนะนำใน post
ยังไงรบกวนอาจารย์ช่วยดูด้วยนะครับ
หรือหากอาจารย์สะดวกผมขอเบอร์ติดต่อกลับ หรือยิงมาที่เบอร์ 087-9902120 แล้วผมจะโทรกลับครับ
ขอบพระคุณมากครับ
อัศวิญญ์ บุรานนท์

[bank9597]

สวัสดีครับ
ผมได้ลองทำตามรายละเอียดที่อาจารย์เขียน แต่ทำตามแล้วก็ไม่ได้ครับ
ผมได้แนบไฟล์งานของผมมาด้วย ซึ่งคล้ายๆกับที่อาจารย์แนะนำใน post
ยังไงรบกวนอาจารย์ช่วยดูด้วยนะครับ
หรือหากอาจารย์สะดวกผมขอเบอร์ติดต่อกลับ หรือยิงมาที่เบอร์ 087-9902120 แล้วผมจะโทรกลับครับ
ขอบพระคุณมากครับ
อัศวิญญ์ บุรานนท์

สามารถแนบไฟล์และตั้งคำถามถามได้เรื่อยๆครับ อาจารย์และเพื่อนสมาชิกทุกคนยินดีช่วยเหลือครับ

[gengkitty]

รอบกวนสอบถามอย่างนี้นะครับ
1. ใน tab รายชื่อ คือ รายะละเอียดสมาชิกของหมู่บ้านครับ
2. ใน tab ใบเสร็จ จะมีรายละเอียดที่ link มาจาก tab ที่ 1 ครับ ไม่ว่าจะเป็น ชื่อ บ้านเลขที่ จำนวนเงินที่ชำระ วันที่รับเงิน
3. ใน tab ที่ 3 คือ รายละเอียดที่ลูกบ้านชำระเงินในแต่ละเดือนครับ (คิดว่าไม่เกี่ยวกับสิ่งที่ต้องการจะถามครับ)

สิ่งที่รบกวนสอบถามคือ
1. ใบเสร็จที่ต้องการจะ print ออกมา อยากให้จำนวนบ้านสมาชิกทั้งหมดอยู่ในไฟล์เดียวกัน คือ สั่ง print ครั้งเดียว ออกมาทุกบ้านเลยครับ
2. การทำบัญชี ก็จะเหมือนกับกระทู้ด้านบน คือจะมีบ้านที่จ่าย และบ้านไม่จ่าย รวมถึงบ้านที่จ่ายแต่จ่ายไม่ครบจำนวนที่ต้องการ

ขอบพระคุณมากครับ

[bank9597]

ต้องใช้ VBA เข้ามาช่วยครับ
กรณีสั่งพิมพ์ครั้งเดียว แต่ออกมาทั้งหมดทุกบ้านเลขที่ จำเป็นต้องพึ่ง VBA ครับ
แต่หากเลือกบ้านเลขที่แล้วให้ข้อมูลอื่นๆมาแสดงนั้น สามารถใช้สูตรได้ครับ

ผมลองใช้สูตรมาให้ดูก่อนครับ ในชีท ใบเสร็จ โดยให้ใส่เลขบ้านเลขที่ลงไป หากไม่ได้ยังไง ค่อยถามต่อครับ

[gengkitty]

ขอบพระคุณคุณ Bank มากครับ
ผมลองเปลี่ยนบ้านเลขที่แล้ว รายละเอียดต่างๆของใบเสร็จเปลี่ยนตามครับ
ส่วน VBA คืออะไีรครับ รบกวนเพิ่มเติมอีกครับผม

[gengkitty]

ผมได้ติดตั้ง VBA runtime 6.0 เรียบร้อยแล้วครับ

[bank9597]

ผมได้ติดตั้ง VBA runtime 6.0 เรียบร้อยแล้วครับ

ในส่วนของ VBA นั้น ผมเองก้ไม่ถนัดครับ ใช้ได้บ้าง คงต้องรบกวนอาจารย์มาอธิบายให้ฟังอีกครั้งน่ะครับ รู้แต่ว่ามันสามารถเขียนคำสั่งต่างๆได้ เหมาะกับงานที่ต้องทำซ้ำๆ เช่นการบันทึกข้อมูลไปเก็บ เป็นต้น VBA จะช่วยให้งานมีความเป็นอัตโนมัติมากขึ้น เหล่านี้ขึ้นอยู่กับความสามารถของผู้ใช้งานเองครับ ว่าจะมีความชำนาญแค่ไหน แต่บอกได้คำเดียวว่า หากเก่ง VBA ก็สามารถสร้างอะไรก็ได้บนเอ็กเซลล์ครับ แต่อย่างไรก็ตามความสามารถหลายอย่างที่เอ็กเซลล์ได้มีมาให้แล้วนั้น มักจะดีกว่าการใช้ VBA หรือสูตรการใช้งานก็เช่นกัน VBA ไม่สามารถทำได้รวดเร็วเท่าอย่างแน่นอนครับ

เปิดหน้าต่าง VBE ได้โดยเปิดโปรแกรมเอ็กเซลล์ แล้วกด Alt+F11 ครับ ไม่จำเป็นต้องติดตั้ง VBA runtime 6.0 ครับ