Snasui Excel Forum

B2
=CEILING((COUNTA($D$2:$D$22)-SUM(B$1:B1))/COUNTA($A2:$A$5),1)

F2
=INDEX($A:$A,AGGREGATE(15,6,ROW($A$2:$A$5)/(COUNTIF(F$1:F1,$A$2:$A$5)<$B$2:$B$5),RANDBETWEEN(1,SUMPRODUCT(--(COUNTIF(F$1:F1,$A$2:$A$5)<$B$2:$B$5)))))

H2
=INDEX($A:$A,AGGREGATE(15,6,ROW($B$2:$B$5)/($B$2:$B$5>=COLUMN($A$1:$I$1 ...

:D ผมคิดว่าสามารถใช้สูตรที่แนะนำไปมาช่วยได้ ได้ลองทำแล้วหรือไม่ หากยังไม่ได้ลองกรุณาลองทำมาดูก่อน ติดตรงไหนค่อยถามกันต่อครับ


ผมทำได้ตามต้องการแล้วครับ
จากสูตร

1582450624748.jpg

เปลี่ยนเป็นสูตรนี้ครับ

Screenshot_20200223-163232_Excel.jpg

ผมโหลดไว้ให้เพื่อมีใครค้นหาเจอเพื่อเอาไปศึกษาด ...

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


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

แต่ผมก็ใช ...

:D ดาวน์โหลดไฟล์จาก Link นี้ไปศึกษาแล้วลองปรับใช้ดูก่อน ติดตรงไหนค่อยถามกันต่อครับ https://snasui.com/wordpress/random-in-group/


ขอบคุณมากครับ
ปัญหาแรกได้ตามคำแนะนำของอาจารย์ครับ นำไปประยุกต์ใช้ได้หลายอย่างด้วยครับ

แล้วยังมีอีกข้อที่ยังไม่ได้ ไม่รู้จะทำยังไงต่อครับ คืออยากหาวิธีลดสูตรให้ส ...

สวัสดีครับ
มีเรื่องมาให้ปวดหัวอีกแล้วครับ
รบกวน ด้วยครับ

คือบริษัทผมให้มีการสุ่มดูว่าใครจะได้อยู่ทีมไหน โดยกำหนดให้มี 4 ทีม, ในแต่ละทีมจำนวนคนต้องเท่ากันเช่น:
- พนักงานทั้งหมดมี 20 คน สุ่มแบ่งเป็น 4 ทีมให้เท่ากัน จะได้ทีมละ 5 คน.

- หรือว่าพนักงานมี 22 คน สุ่มแบ่งเป็น 4 ทีม จะได้ ทีมที่ 1 และ 2 ท ...

Bo_ry wrote: Mon Feb 17, 2020 12:44 am ช่วงอื่นใช้แบบนี้ละกัน
=INDEX({1,2,3,7,8,9,10},RANDBETWEEN(1,7))

ขอบคุณมากครับ
นำไปประยุกต์ใช้ได้ทุกช่วงครับ

:D Mod คือการหาเศษจากการหาร ลองค่อย ๆ แกะสูตรดูครับ

ีการสุ่มเป็นช่วงตามโจทย์ที่ยกมาอีกแบบคือ

=LOOKUP(RANDBETWEEN(1,10),{1,2,3,7,8,9,10})

เป็นการสุ่มมา 10 ค่าแต่เว้น 4, 5, 6 สังเกตชุดตัวเลขจะไม่มี 4, 5, 6 สามารถสุ่มได้หลายช่วงตามต้องการ ชุดตัวเลขนี้จะคีย่์ไว้ที่ใดแล้วค่อยนำมาอ้างอิงในสูตร จะเว ...

Bo_ry wrote: Thu Feb 13, 2020 9:38 pm =MOD(MOD(4-RANDBETWEEN(1,7),10)+9,10)+1

รบกวนช่วยอธิบาย step การทำงานของสูตรที่ให้มาหน่อยครับ ผมลองประยุกต์ใช้กับช่วงอื่นไม่ได้เลย

ขอบคุณครับ

Bo_ry wrote: Thu Feb 13, 2020 9:38 pm =MOD(MOD(4-RANDBETWEEN(1,7),10)+9,10)+1

คิดยังไงก็คิดไม่ออก

ขอบคุณมากครับ
ที่ช่วยให้คำแนะนำ

snasui wrote: Thu Feb 13, 2020 8:59 pm ทำได้ด้วย VBA ครับ

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

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

ขอบคุณ อาจารย์มาก ที่สละเวลามาช่วยครับ

สวัสดีครับ

ขอถามเกี่ยวกับการสุ่มด้วยครับ
ว่าการที่เราทำการสุ่มปกติมันจะทำการสุ่มได้แบบตัวเลขต่อเนื่องกันเช่น:

randbetween(1,10) มันจะทำการสุ่มให้จาก 1 ถึง 10

แล้วถ้าหากต้องการสุ่มแบบตัวเลขไม่ต่อเนื่องกันเช่น:

ให้สุ่มอยู่ใน 2 ช่วงคึอจาก 1-3 กับ 7-10

จะสามารถทำได้ไหมครับ

ขอบคุณครับ

:D ตัวอย่างสูตรตามด้านล่างครับ

เมื่อต้องการสุ่มให้กดแป้น F9 ค้างไว้แล้วค่อยปล่อย

ที่ C3 คีย์สูตรเพื่อ Random
=IF(COUNTIF($I$3:$I$10,B3),"",RAND())
Enter > Copy ลงด้านล่าง
ที่ D3 คีย์สูตรเพื่อจัดลำดับ
=IF(C3="","",RANK(C3,$C$3:$C$7))
Enter > Copy ลงด้านล่าง
ที่ G3 คีย์สูตรเพื่อสุ่มรายช ...

:D กรุณาแนบไฟล์ตัวอย่างที่เป็น Excel มาด้วยจะได้สะดวกในการตอบของเพื่อนสมาชิกครับ


ขอโทษด้วยครับ

คือสิ่งที่ต้องการคือ
อยากจะสุ่มรายชื่อผู้โชกดีให้ได้ครั้งละ 1 ท่าน ด้วยสูตร โดยไม่ต้องใช้ VBA มาช่วยครับ
โดยมีเงื่อนไขคือ:
-รายชื่อที่ต้องการเอามาสุ่มมี 5 ท่าน (A, B, C, D, E)
-ต้องการสุ่มผู้โชกดีให ...

และผลทดสอบที่ได้มันช้ำกันครับ

ความต้องการก็คือ

ต้องการสุ่มรายชื่อผู้โชกดีให้ได้ครั้งละ 1 ท่าน
-สุ่มครั้งที1: ได้ 1 ท่านใน 5 ท่าน แล้วจะเหลืออยู่ 4 ท่านเพื่อจะเอาไปสุ่มต่อเป็นครั้งที 2.
-สุ่มครั้งที2: ได้ 1 ท่านใน 4 ท่านที่เหลือจากการสุ่มครั้งที 1 แล้วจะเหลืออยู่ 3 ท่านเพื่อจะเอาไปสุ่มต่อเป็นครั้งท ...

Bo_ry wrote: Tue Feb 11, 2020 8:58 pm D3:D6
=AGGREGATE(15,6,A$3:A$7/ISNA(MATCH(A$3:A$7,D$2:D2,)),RANDBETWEEN(1,ROWS(A3:A$7)))
E3:E6
=index(B$3:B$7,d3)

ขอบคุณมากครับ
แต่ยังไม่ตรงตามความต้องการ
คือต้องการสุ่มแค่ทีละคนครับไม่ใช่แบบทีละ 3คน ครับ

สวัสดีครับ

ขอบสอบถามด้วยครับ อาจารย์ทุกท่าน
คือว่าผมต้องการสุ่มรายชื่อผู้โชกดีสามท่านในรายชื่อทั้งหมดโดยไม่ให้ช้ำกันในการสุ่มแต่ละครั้งโดยไม่ใช้ VBA มาช่วย

คือตัวอย่าง
รายชื่อมี 5 ท่าน(A,B,C,D,E)
-สุ่มครั้งที1: ได้ 1 ท่านใน 5 ท่าน
-สุ่มครั้งที2: ได้ 1 ท่านใน 4 ท่านที่เหลือจากการสุ่มครั้งที 1
-ส ...

snasui wrote: Sun Nov 25, 2018 9:46 pm แก้ไขด้วยการใส่ Ucase ทั้งคู่ครับ

ขอบคุณมากฯ ครับ สำหลับความรู้

[code wrote:if Ucase(cells(1,1))="GOOD" then
cells(2,1)=true
else
cells(2,1)=false
end if[/code]

จาก code ที่อาจารย์ให้มาใช้ได้ตามที่ค้องการแต่กลับกัน
ถ้าเปลี่ยนใน VBA เป็นตัวเล็กแล้วผลใน excel จะ false หมดเลยครับ

เรียน อาจารย์ และ ผู้รู้ทุกท่านครับ
คือผมเจอปัญหาว่า
ผมพิมพ์ใน VBA ว่า
if cells(1,1)="GOOD" then
cells(2,1)=true
else
cells(2,1)=false
end if

แต่พอผมมาพิมพ์ที่ excel cell(1,1) ว่า good
แต่ผลที่ได้มาคือ cell(2,1) show ว่า false ครับ

แต่ถ้าพิมพ์ GOOD ผลที่ได้ถึงจะเป็น true ครับ

ลบกวนทุกท่านให ...

:D ตัวอย่างการ Loop เพื่อจะวางยอดรวมครับ

Dim rall As Range, r As Range, sum As Double
With Worksheets("WORK")
Set rall = .Range("l9", .Range("l" & .Rows.Count).End(xlUp))
For Each r In rall
If r.Value <> "TOTAL" Then
sum = sum + Val(r.Offset(0, 13).Value)
Else
r.Offset(0, 13).Value = sum ...