Snasui Excel Forum

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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 ไปยังเซลล์อื่น ๆ ที่เกี่ยวข้องและเปลี่ยนช่วงเซลล์ในสูตรให้ตรงกับที่ต้องการ

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

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

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

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 ใหม่กับห้องอื่น ๆ ที่เหลือ

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

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

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

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

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

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

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

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

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

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

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

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

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

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