:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

แจกไฟล์การสุ่มหาผู้โชคดี

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

แจกไฟล์การสุ่มหาผู้โชคดี

#1

Post by snasui »

:D เป็นไฟล์สำหรับการสุ่มหารายชื่อผู้โชคดี หากเก็บรายชื่อออกไปแล้วจะไม่รวมในการสุ่มครั้งถัดไป ลองดาวน์โหลดไปใช้กันตามสะดวก

ไฟล์นี้เขียนด้วย VBA จะต้องกำหนดการใช้งาน VBA (ของ Version 2003) ก่อนตามโพสต์นี้จึงจะใช้งานได้ :arrow: viewtopic.php?f=9&t=2010#p12997
Attachments
Random.xls
(91 KiB) Downloaded 339 times
jaruek
Member
Member
Posts: 94
Joined: Mon Dec 10, 2012 10:43 am

Re: แจกไฟล์การสุ่มหาผู้โชคดี

#2

Post by jaruek »

ขอบคุณมากครับ :cp:
sarah
Member
Member
Posts: 27
Joined: Mon Mar 18, 2013 8:03 pm

Re: แจกไฟล์การสุ่มหาผู้โชคดี

#3

Post by sarah »

ขอบคุณครับอาจารย์
วังวู ช่ง
Silver
Silver
Posts: 800
Joined: Thu May 31, 2012 2:27 pm
Location: Laos
Excel Ver: MS Excel for office 365 MSO
Contact:

Re: แจกไฟล์การสุ่มหาผู้โชคดี

#4

Post by วังวู ช่ง »

snasui wrote::D เป็นไฟล์สำหรับการสุ่มหารายชื่อผู้โชคดี หากเก็บรายชื่อออกไปแล้วจะไม่รวมในการสุ่มครั้งถัดไป ลองดาวน์โหลดไปใช้กันตามสะดวก

ไฟล์นี้เขียนด้วย VBA จะต้องกำหนดการใช้งาน VBA (ของ Version 2003) ก่อนตามโพสต์นี้จึงจะใช้งานได้ :arrow: viewtopic.php?f=9&t=2010#p12997
:D :thup: :cp:
joo
Gold
Gold
Posts: 1213
Joined: Sat Apr 17, 2010 3:50 pm

Re: แจกไฟล์การสุ่มหาผู้โชคดี

#5

Post by joo »

:D :thup: ขอบคุณครับ
suwattt
Member
Member
Posts: 1
Joined: Fri Aug 15, 2014 6:56 am

Re: แจกไฟล์การสุ่มหาผู้โชคดี

#6

Post by suwattt »

ขอบคุณมากครับ
diamondbom
Member
Member
Posts: 121
Joined: Thu Jan 23, 2014 11:32 pm

Re: แจกไฟล์การสุ่มหาผู้โชคดี

#7

Post by diamondbom »

:D :D ขอบคุณครับ
joi
Member
Member
Posts: 1
Joined: Sat Dec 27, 2014 12:00 pm

Re: แจกไฟล์การสุ่มหาผู้โชคดี

#8

Post by joi »

Thanks kub
wilawan-ph
Member
Member
Posts: 81
Joined: Thu Sep 22, 2011 10:13 am

Re: แจกไฟล์การสุ่มหาผู้โชคดี

#9

Post by wilawan-ph »

ขอบคุณค่ะ
hong_in_bo
Member
Member
Posts: 2
Joined: Thu Feb 12, 2015 3:39 pm

Re: แจกไฟล์การสุ่มหาผู้โชคดี

#10

Post by hong_in_bo »

ขอบคุณมากครับ
User avatar
DhitiBank
Gold
Gold
Posts: 1676
Joined: Mon Oct 15, 2012 12:07 am

Re: แจกไฟล์การสุ่มหาผู้โชคดี

#11

Post by DhitiBank »

ขอบคุณครับ

ขอสอบถามอาจารย์หน่อยครับ
ตรง procedure ชื่อ Sub RandomName() ได้มีการประกาศตัวแปร

Code: Select all

Dim i%, j%, l&
เครื่องหมาย % และ & ตามหลัง หมายถึงอะไรเหรอครับ :?:

ขอบคุณล่วงหน้าครับ
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: แจกไฟล์การสุ่มหาผู้โชคดี

#12

Post by snasui »

:D เครื่องหมาย % หมายถึงประกาศตัวแประป็น Integer ส่วน & หมายถึงประกาศตัวแปรเป็น Long ศึกษาเพิ่มเติมจากที่นี่ครับ https://msdn.microsoft.com/en-us/librar ... 92781.aspx
User avatar
DhitiBank
Gold
Gold
Posts: 1676
Joined: Mon Oct 15, 2012 12:07 am

Re: แจกไฟล์การสุ่มหาผู้โชคดี

#13

Post by DhitiBank »

snasui wrote::D เครื่องหมาย % หมายถึงประกาศตัวแประป็น Integer ส่วน & หมายถึงประกาศตัวแปรเป็น Long ศึกษาเพิ่มเติมจากที่นี่ครับ https://msdn.microsoft.com/en-us/librar ... 92781.aspx
ขอบคุณครับ อาจารย์ ขอลองศึกษาดูหน่อย
prapassi
Member
Member
Posts: 4
Joined: Fri Jan 03, 2014 5:41 pm

Re: แจกไฟล์การสุ่มหาผู้โชคดี

#14

Post by prapassi »

ขอบคุงค้าบบบ
kabukaburu
Member
Member
Posts: 19
Joined: Mon Apr 03, 2017 11:00 am

Re: แจกไฟล์การสุ่มหาผู้โชคดี

#15

Post by kabukaburu »

ขอบคุณครับ
nikkynaja
Member
Member
Posts: 1
Joined: Tue Nov 28, 2017 1:17 pm

Re: แจกไฟล์การสุ่มหาผู้โชคดี

#16

Post by nikkynaja »

สวัสดีครับอาจารย์ ผมขออนุญาติสอบถามเพิ่มเติมนิดนึงครับ หากผมต้องการ Random ขึ้นมาทีเดียว 600 รายชื่อแบบไม่ซ้ำกัน จากทั้งหมด 20,000-100,000 คน ในคลิกเดียว และเก็บรายชื่อของผู้โชคดีทั้งหมด ไว้อีก 1 ที่ จะสามารถทำได้ไหมครับ

ขอบคุณครับ
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: แจกไฟล์การสุ่มหาผู้โชคดี

#17

Post by snasui »

:D ด้วย Code VBA แล้วทำได้ทั้งนั้นครับ ลองแนบไฟล์ที่ปรับปรุงเปลี่ยนแปลงเองแล้วไปถามต่อกันในหมวด Excel หมวดนี้เพื่อแจกไฟล์เท่านั้นครับ
Post Reply