Excel Forum

แจกไฟล์โปรแกรมสำหรับสุ่มรายชื่อเพื่อจับสลากในเทศกาลใด ๆ ตามต้องการ

โปรแกรมนี้เขียนด้วยฟังก์ชั่นและ VBA โดยใช้ VBA วนลูปการสุ่ม, จัดเก็บและกำหนดการเริ่มต้นใหม่
จากรูปด้านบน

1. หมายเลข 1 เป็น Spin Button ใช้สำหรับการคลิกเพิ่ม-ลดจำนวนการวนลูป โดยจะเพิ่มลดครั้งละ 1,000 โดยค่าน้อยสุดคือ 1,000 และค่ามากสุดคือ 10,000
2. หมายเลข 2 เป็นปุ่มสำหรับคลิกสุ่มรายชื่อ โดยจะมีการหน่วงในตอนท้าย ๆ ให้ลูปช้าลงเพื่อให้เกิดการลุ้นผู้โชคดี
3. หมายเลข 3 เป็นปุ่มสำหรับเก็บรายชื่อผู้โชคดีไว้ในคอลัมน์ H เพื่อจะได้ไม่สุ่มซ้ำ
4. หมายเลข 4 เป็นปุ่มสำหรับกำหนดการเริ่มเล่นใหม่ โดยโปรแกรมจะลบค่าในคอลัมน์ H ทิ้งไปเพื่อกลับไปยังค่าเริ่มต้น
5. หมายเลข 5 เป็นกล่องข้อความแสดงรายชื่อผู้โชคดี ซึ่งจะแสดงขึ้นมาหลังจากกดปุ่มหมายเลข 2

หมายเหตุ

1. ไม่เปิดเผย Code VBA
2. สามารถเพิ่มลดรายชื่อในคอลัมน์ B ได้ตามต้องการ หากมีการเพิ่มรายชื่อให้คัดลอกสูตรในคอลัมน์ C:D ลงไปตามจำนวนรายชื่อหรือหากลดรายชื่อลงในภายหลังควรลบสูตรที่คอลัมน์ C:D ออกให้เหลือเท่าจำนวนรายชื่อเพื่อจะได้ไม่เป็นภาระในการคำนวณ
3. โปรแกรมนี้ใช้สูตรที่มีการปรับช่วงเซลล์ในสูตรให้ขยายหรือลดได้ตามจำนวนข้อมูล จึงไม่จำเป็นต้องปรับช่วงเซลล์ในสูตรเมื่อลดหรือเพิ่มข้อมูลยกเว้นสูตรในเซลล์ F2
4. ไม่รองรับการแทรกคอลัมน์

สวัสดีค่ะ
มีเรื่องอยากสอบถามค่ะว่า

1. ถ้าต้องการขออนุญาตใช้ไฟล์ Lucky Random ไปใช้จับฉลากเงินรางวัลให้ลูกค้าะะได้หรือไม่ค่ะ
2. ถ้าได้ และต้องการเพิ่มรายชื่อให้มากถึง 150 คน ต้องทำอย่างไรบ้างคะ
3. ลองเพิ่มรายชื่อเอง แต่ตรง dialogue box ที่จะขึ้น Congratulations!!! Khun XXXX มันจะไม่ขึ้นชื่อค่ะ

รบกวนตอบคำถามด้วยนะคะ ขอบคุณค่ะ

ได้ทำตามคำอธิบายในหมายเหตุแล้วหรือไม่ หากทำแล้วยังติดปัญหาควรแนบไฟล์นั้นมาด้วยจะได้ช่วยดูให้ได้ครับ

สวัสดีค่ะ

ดิฉันได้ลองทำตาม ข้อ 2 ในหมายเหตุแล้ว ค่ะ
ขอรบกวนดูไฟล์ให้ได้มั้ยคะ

ขอขอบพระคุณล่วงหน้าค่ะ

ปัญหาเกิดจากการแทรกคอลัมน์ B ครับ

ลองลบคอลัมน์ F ที่เป็นคอลัมน์ว่างทิ้งไปก็จะได้คำตอบครับ

สวัสดีค่ะ

ขอรบกวนถามอีกครั้งนะคะ
1. ได้ลองเพิ่มรายชื่อเข้าไปให้ถึง 120 รายชื่อ เพราะถ้าใช้จริงอาจใช้ถึง 120 รายชื่อค่ะ แต่พอลองกดแล้วปรากฏว่า file error ค่ะ

ขอขอบพระคุณล่วงหน้าค่ะ

ด้วยความนับถือ

แก้สูตรในเซลล์ F2 ให้ครอบคลุมข้อมูลที่ขยายไปด้านล่างด้วยครับ

สวัสดีค่ะ

ก่อนอื่นขอขอบพระคุณมากเลยนะคะ

ตอนนี้ติดปัญหานิดหน่อยค่ะ ในไฟล์ PPT ค่ะ เวลา program run ชื่อผู้โชคดีเสร็จ ชื่อขึ้นเป็น ????

ขอขอบพระคุณค่ะ

ไฟล์ที่แนบมายังไม่ได้แก้สูตรในเซลล์ F2 ให้ครอบคลุมข้อมูลที่มีครับ

กรณีแสดงอักขระภาษาไทยเป็นเครื่องหมายคำถาม ลองทำตาม Link นี้ดู https://snasui.com/wordpress/macro-question-mark/

ไฟล์ที่แนบกลับมา ได้ลองเปิดเพื่อทดสอบในเครื่องผมแล้ว พบว่าแสดงภาษาไทยได้เป็นปกติ ไม่ติดปัญหาใดครับ