Snasui Excel Forum

1. ที่ H2 คีย์
   =IF(DAY(D2)<=15,RAND(),"")
   Enter > Copy ลงด้านล่าง
2. ที่ I2 คีย์
   =IF(DAY(D2)>15,RAND(),"")
   Enter > Copy ลงด้านล่าง
3. ที่ J2 คีย์
   =IF(N(H2),RANK(H2,H$2:H$30),"")
   Enter > Copy ลงด้านล่าง
4. ที่ K2 คีย์
   =IF(N(I2),RANK(I2,I$2:I$30),"")
   Enter > Copy ลงด้านล่าง
5. ที่ M2 คีย์
   =INDEX($A$2:$A$30,MATCH(MOD((ROWS(M$2:M2)-1),10)+1,INDEX($J$2:$K$30,0,INT((ROWS(M$2:M2)-1)/10)+1),0))
   Enter > Copy ลงด้านล่าง
6. ที่ N2 คีย์
   =INDEX($D$2:$D$30,MATCH(MOD((ROWS(M$2:M2)-1),10)+1,INDEX($J$2:$K$30,0,INT((ROWS(M$2:M2)-1)/10)+1),0))
   Enter > Copy ลงด้านล่าง

snasui wrote: Thu May 02, 2019 7:30 pm ตัวอย่างสูตรครับ

แทรกคอลัมน์ K มาอีก 1 คอลัมน์เพื่อเป็นคอลัมน์ช่วยจากนั้นคีย์สูตรตามด้านล่างครับ

1. ที่ H2 คีย์
   =IF(DAY(D2)<=15,RAND(),"")
   Enter > Copy ลงด้านล่าง
2. ที่ I2 คีย์
   =IF(DAY(D2)>15,RAND(),"")
   Enter > Copy ลงด้านล่าง
3. ที่ J2 คีย์
   =IF(N(H2),RANK(H2,H$2:H$30),"")
   Enter > Copy ลงด้านล่าง
4. ที่ K2 คีย์
   =IF(N(I2),RANK(I2,I$2:I$30),"")
   Enter > Copy ลงด้านล่าง
5. ที่ M2 คีย์
   =INDEX($A$2:$A$30,MATCH(MOD((ROWS(M$2:M2)-1),10)+1,INDEX($J$2:$K$30,0,INT((ROWS(M$2:M2)-1)/10)+1),0))
   Enter > Copy ลงด้านล่าง
6. ที่ N2 คีย์
   =INDEX($D$2:$D$30,MATCH(MOD((ROWS(M$2:M2)-1),10)+1,INDEX($J$2:$K$30,0,INT((ROWS(M$2:M2)-1)/10)+1),0))
   Enter > Copy ลงด้านล่าง

Bo_ry wrote: Thu May 02, 2019 7:48 pm อีกแบบ
I2
=IF(DAY($D$2:$D$30)<16,SUMPRODUCT(--(H2<(DAY($D$2:$D$30)<16)*$H$2:$H$30))+1,SUMPRODUCT(--(H2<(DAY($D$2:$D$30)>15)*$H$2:$H$30))+15)

L2
=INDEX($A$2:$A$30,MATCH(K2+(K2>10)*5,$I$2:$I$30,0))

M2
=INDEX($D$2:$D$30,MATCH(K2+(K2>10)*5,$I$2:$I$30,0))

Totem wrote: Fri May 03, 2019 9:03 am ตัวอักษร N ใส่ไปในสูตรมีความหมายอย่างไรครับ ขอบคุณครับ

Totem wrote: Fri May 03, 2019 9:13 am ต้องการสุ่มชื่อไม่ซ้ำและวันที่ไม่ซ้ำกันจะปรับสูตรอย่างไรครับ

logic wrote: Fri May 03, 2019 10:51 am

Totem wrote: Fri May 03, 2019 9:03 am ตัวอักษร N ใส่ไปในสูตรมีความหมายอย่างไรครับ ขอบคุณครับ

แปลงค่าตัวเลขเป็นตัวเลข แปลงตัวหนังสือเป็น 0 https://support.office.com/th-th/articl ... 733d1278c9

Totem wrote: Fri May 03, 2019 9:13 am ต้องการสุ่มชื่อไม่ซ้ำและวันที่ไม่ซ้ำกันจะปรับสูตรอย่างไรครับ

แบบนี้หรือเปล่าครับ

M2 =INDEX($A$2:$A$30,MATCH(SMALL(IF(FREQUENCY(IF(ISNUMBER(INDEX($J$2:$K$30,0,INT((ROWS(M$2:M2)-1)/10)+1)),MATCH($A$2:$A$30,$A$2:$A$30,0)),ROW($A$2:$A$30)-ROW($A$2)+1),INDEX($J$2:$K$30,0,INT((ROWS(M$2:M2)-1)/10)+1)),MOD((ROWS(M$2:M2)-1),10)+1),INDEX($J$2:$K$30,0,INT((ROWS(M$2:M2)-1)/10)+1),0)) Ctrl+Shift+Enter คัดลอกสูตรลง

N2 =INDEX($D$2:$D$30,MATCH(SMALL(IF(FREQUENCY(IF(ISNUMBER(INDEX($J$2:$K$30,0,INT((ROWS(N$2:N2)-1)/10)+1)),MATCH($A$2:$A$30,$A$2:$A$30,0)),ROW($A$2:$A$30)-ROW($A$2)+1),INDEX($J$2:$K$30,0,INT((ROWS(N$2:N2)-1)/10)+1)),MOD((ROWS(N$2:N2)-1),10)+1),INDEX($J$2:$K$30,0,INT((ROWS(N$2:N2)-1)/10)+1),0)) Ctrl+Shift+Enter คัดลอกสูตรลง

Totem wrote: Fri May 03, 2019 3:39 pm

logic wrote: Fri May 03, 2019 10:51 am

Totem wrote: Fri May 03, 2019 9:03 am ตัวอักษร N ใส่ไปในสูตรมีความหมายอย่างไรครับ ขอบคุณครับ

แปลงค่าตัวเลขเป็นตัวเลข แปลงตัวหนังสือเป็น 0 https://support.office.com/th-th/articl ... 733d1278c9

Totem wrote: Fri May 03, 2019 9:13 am ต้องการสุ่มชื่อไม่ซ้ำและวันที่ไม่ซ้ำกันจะปรับสูตรอย่างไรครับ

แบบนี้หรือเปล่าครับ

M2 =INDEX($A$2:$A$30,MATCH(SMALL(IF(FREQUENCY(IF(ISNUMBER(INDEX($J$2:$K$30,0,INT((ROWS(M$2:M2)-1)/10)+1)),MATCH($A$2:$A$30,$A$2:$A$30,0)),ROW($A$2:$A$30)-ROW($A$2)+1),INDEX($J$2:$K$30,0,INT((ROWS(M$2:M2)-1)/10)+1)),MOD((ROWS(M$2:M2)-1),10)+1),INDEX($J$2:$K$30,0,INT((ROWS(M$2:M2)-1)/10)+1),0)) Ctrl+Shift+Enter คัดลอกสูตรลง

N2 =INDEX($D$2:$D$30,MATCH(SMALL(IF(FREQUENCY(IF(ISNUMBER(INDEX($J$2:$K$30,0,INT((ROWS(N$2:N2)-1)/10)+1)),MATCH($A$2:$A$30,$A$2:$A$30,0)),ROW($A$2:$A$30)-ROW($A$2)+1),INDEX($J$2:$K$30,0,INT((ROWS(N$2:N2)-1)/10)+1)),MOD((ROWS(N$2:N2)-1),10)+1),INDEX($J$2:$K$30,0,INT((ROWS(N$2:N2)-1)/10)+1),0)) Ctrl+Shift+Enter คัดลอกสูตรลง

นำสูตรไปใช่ในงานจริง ขึ้น This formula uses more levels of nesting than you can use in the current file format.

Bo_ry wrote: Fri May 03, 2019 4:45 pm อีกแบบ
I2
=IF(RANK(H2,$H$2:$H$30)=AGGREGATE(15,6,RANK($H$2:$H$30,$H$2:$H$30)/(($D$2:$D$30=D2)+($A$2:$A$30=A2)>0),1),RANK(H2,$H$2:$H$30),"")
L2
=INDEX($A$2:$A$30,MATCH(AGGREGATE(15,6,$I$2:$I$30,K2),$I$2:$I$30,))
M2
=VLOOKUP(L2,$A$2:$D$30,4,)

ไม่ใด้ใช้ครึ่งเดือนแล้วเพราะ 16-30 มีแค่ 9 วันที่ไม่ซ้ำ

Bo_ry wrote: Fri May 03, 2019 6:53 pm Post #10 ชื่อไม่ซ้ำ วันไม่ซ้ำ ไม่สนครึ่งเดือน

ชื่อไม่ซ้ำ วันซ้ำได้ ไม่สนครึ่งเดือน
I2
=IF(RANK(H2,$H$2:$H$30)=AGGREGATE(15,6,RANK($H$2:$H$30,$H$2:$H$30)/($A$2:$A$30=A2),1),RANK(H2,$H$2:$H$30),"")

Totem wrote: Wed May 08, 2019 1:44 pm ขอถามอาจารย์และเพื่อนสมาชิกเพิ่มเติมครับในกรณี สุ่มตัวอย่าง ครึ่งเดือนแรกกับครึ่งเดือนหลัง ไม่ซ้ำคนและวันที่ ใน sheet1 คอลัมน์ M และ N หรือ sheet2 คอลัมน์ L และ M ปรับสูตรอย่างไรครับ


สุ่มตัวอย่าง ครึ่งเดือนแรกกับครึ่งเดือนหลัง ไม่ซ้ำคนและวันที่.xlsx

Totem wrote: Wed May 08, 2019 2:07 pm อีกกรณี สุ่มตัวอย่าง ชื่อไม่ซ้ำ วันไม่ซ้ำ ไม่สนครึ่งเดือน แล้ว
ในคอลัมน์ G ปรับเป็น >2 วัน ทำให้การสุ่มตัวอย่างในคอลัมน์ L สุ่มไม่ครบ 20 ตัวอย่าง ครับ จะปรับสูตรให้ได้ตามต้องการครับ


สุ่มตัวอย่าง ชื่อไม่ซ้ำ วันไม่ซ้ำ ไม่สนครึ่งเดือน.xlsx