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

[snasui]

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

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

RandomPic.png (60.13 KiB) Viewed 15171 times

จากรูปด้านบน

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. ไม่รองรับการแทรกคอลัมน์

[junenie@hotmail.com]

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

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

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

[snasui]

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

[junenie@hotmail.com]

สวัสดีค่ะ

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

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

[snasui]

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

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

[junenie@hotmail.com]

สวัสดีค่ะ

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

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

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

[snasui]

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

[junenie@hotmail.com]

สวัสดีค่ะ

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

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

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

[snasui]

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

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

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