📢 โปรดทราบ
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ 👉🏾 สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ 👆🏾
    3. การ Login ผ่าน Facebook ดูวิธีที่่ 👉🏾 Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ 👉🏾 Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ 👉🏾 ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ 👉🏾 ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ 👉🏾 วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ 👉🏾 จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ 👉🏾 กำหนดขนาดตัวอักษรใน Browser

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

ฟอรัมสำหรับแจกจ่ายแบ่งปันไฟล์ รวมทั้งแหล่งความรู้ต่าง ๆ เกี่ยวกับ Excel
User avatar
snasui
Site Admin
Site Admin
Posts: 28846
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

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

#1

Post by snasui »

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

โปรแกรมนี้เขียนด้วยฟังก์ชั่นและ VBA โดยใช้ VBA วนลูปการสุ่ม, จัดเก็บและกำหนดการเริ่มต้นใหม่
RandomPic.png
RandomPic.png (60.13 KiB) Viewed 10234 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. ไม่รองรับการแทรกคอลัมน์
Attachments
LuckyRandom_v1.xlsm
(29.34 KiB) Downloaded 630 times
LuckyRandom_v2.xlsm
(38.7 KiB) Downloaded 55 times
junenie@hotmail.com
Member
Member
Posts: 4
Joined: Sun May 23, 2021 2:25 pm
Excel Ver: 365

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

#2

Post by junenie@hotmail.com »

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

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

รบกวนตอบคำถามด้วยนะคะ ขอบคุณค่ะ
User avatar
snasui
Site Admin
Site Admin
Posts: 28846
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

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

#3

Post by snasui »

:D ได้ทำตามคำอธิบายในหมายเหตุแล้วหรือไม่ หากทำแล้วยังติดปัญหาควรแนบไฟล์นั้นมาด้วยจะได้ช่วยดูให้ได้ครับ
junenie@hotmail.com
Member
Member
Posts: 4
Joined: Sun May 23, 2021 2:25 pm
Excel Ver: 365

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

#4

Post by junenie@hotmail.com »

สวัสดีค่ะ

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

ขอขอบพระคุณล่วงหน้าค่ะ
Attachments
LuckyRandom_v1 (2).xlsm
(33.03 KiB) Downloaded 54 times
User avatar
snasui
Site Admin
Site Admin
Posts: 28846
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

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

#5

Post by snasui »

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

ลองลบคอลัมน์ F ที่เป็นคอลัมน์ว่างทิ้งไปก็จะได้คำตอบครับ
junenie@hotmail.com
Member
Member
Posts: 4
Joined: Sun May 23, 2021 2:25 pm
Excel Ver: 365

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

#6

Post by junenie@hotmail.com »

สวัสดีค่ะ

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

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

ด้วยความนับถือ
Attachments
LuckyRandom_v1 (2).xlsm
(37.4 KiB) Downloaded 33 times
User avatar
snasui
Site Admin
Site Admin
Posts: 28846
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

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

#7

Post by snasui »

:D แก้สูตรในเซลล์ F2 ให้ครอบคลุมข้อมูลที่ขยายไปด้านล่างด้วยครับ
junenie@hotmail.com
Member
Member
Posts: 4
Joined: Sun May 23, 2021 2:25 pm
Excel Ver: 365

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

#8

Post by junenie@hotmail.com »

สวัสดีค่ะ

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

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

ขอขอบพระคุณค่ะ
Attachments
Presentation1.pptx
(194.87 KiB) Downloaded 35 times
LuckyRandom_v1 (2).xlsm
(37.4 KiB) Downloaded 42 times
User avatar
snasui
Site Admin
Site Admin
Posts: 28846
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

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

#9

Post by snasui »

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

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

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