ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย ระบุ Version ของ Excel
ฟอรัมถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง) กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
ajsudkedt
Gold
Posts: 1096 Joined: Thu Jan 28, 2010 11:08 amExcel Ver: 2019
#1
Post
by ajsudkedt Sat Jan 27, 2024 3:48 am
จากข้อความแนวตั้งใน Sheet1 จะอยู่ในเซลล์ A1:A100
You do not have the required permissions to view the files attached to this post.
norkaz
Gold
Posts: 1535 Joined: Wed Jan 12, 2011 7:59 pmExcel Ver: 2013,365
#2
Post
by norkaz Sat Jan 27, 2024 6:37 am
...
You do not have the required permissions to view the files attached to this post.
ajsudkedt
Gold
Posts: 1096 Joined: Thu Jan 28, 2010 11:08 amExcel Ver: 2019
#3
Post
by ajsudkedt Sat Jan 27, 2024 7:12 pm
norkaz wrote: ↑ Sat Jan 27, 2024 6:37 am
...
Sheet1
B1 คีย์ =RAND()
Copy ลงไป
Sheet2
B2
=LOOKUP(2,1/(SMALL(Sheet1!$B$1:$B$100,$A2*5-5+COLUMNS($B2:B2))=Sheet1!$B$1:$B$100),Sheet1!$A$1:$A$100)
Copy ไปขวา และลงล่าง
** สนับสนุนฟอรั่ม กรุณา คลิกโฆษณาที่หน้าเพจ***
แมวใหญ่ Bigcat9
RCA พระราม9 กรุงเทพฯ
หากต้องการเพิ่มเป็น 100 ข้อ ต้องปรับสูตรอย่างไรครับ
ตอนนี้เพิ่มได้แค่ 20 ข้อ ตามไฟล์แนบ ครับ
.......
You do not have the required permissions to view the files attached to this post.
norkaz
Gold
Posts: 1535 Joined: Wed Jan 12, 2011 7:59 pmExcel Ver: 2013,365
#4
Post
by norkaz Sat Jan 27, 2024 7:50 pm
...
ajsudkedt
Gold
Posts: 1096 Joined: Thu Jan 28, 2010 11:08 amExcel Ver: 2019
#5
Post
by ajsudkedt Sun Jan 28, 2024 5:18 am
norkaz wrote: ↑ Sat Jan 27, 2024 7:50 pm
...
20 ข้อ คูณ 5 = 100 จำนวนนี้เท่ากับข้อมูลใน ชีท1 ถูกต้องแล้วครับ
หากต้องการ เพิ่ม ชีท2 ให้มี 100 ข้อ ต้องไปเพิ่มข้อมูล ที่ชีท 1 ให้เป็น 100*5 = 500 รายการที่ไม่ซ้ำกันครับ
และปรับ ช่วง ในสูตรจาก 100 เป็นเลข 500 หรือเผื่อไปเยอะๆ เช่น 999
B2
=LOOKUP(2,1/(SMALL(Sheet1!$B$1:$B$999,$A2*5-5+COLUMNS($B2:B2))=Sheet1!$B$1:$B$999),Sheet1!$A$1:$A$999)
Copy ไปขวา และลงล่าง
** สนับสนุนฟอรั่ม กรุณา คลิกโฆษณาที่หน้าเพจ***
แมวใหญ่ Bigcat9
RCA พระราม9 กรุงเทพฯ
.........
ที่ Sheet1 ผม copy ข้อความจาก A1:A100
ไปวางในเซลล์ล่างต่อกันลงไป
โดย copy แล้ววาง
ต่อกันลงไปทั้งหมด 5 ครั้ง
จนได้ถึงช่องที่ A500
จึงจะสามารถสุ่มข้อความได้ 100 ข้อใน Sheet2
ผมเข้าใจแบบนี้ ถูกต้องแล้วใช่ไหมครับ
ตามไฟล์ ask3 ที่แนบครับ
You do not have the required permissions to view the files attached to this post.
norkaz
Gold
Posts: 1535 Joined: Wed Jan 12, 2011 7:59 pmExcel Ver: 2013,365
#6
Post
by norkaz Sun Jan 28, 2024 7:33 am
...
ajsudkedt
Gold
Posts: 1096 Joined: Thu Jan 28, 2010 11:08 amExcel Ver: 2019
#7
Post
by ajsudkedt Sun Jan 28, 2024 9:10 am
norkaz wrote: ↑ Sun Jan 28, 2024 7:33 am
...
ควรใช้ คำใหม่ที่ไม่ซ้ำกันทั้ง 500 แถว เนื่องจาก ข้อความที่ซ้ำกัน มีโอกาสทำให้
สุ่ม1 สุ่ม1 สุ่ม2 สุ่ม3 สุ่ม4 สุ่ม5 แต่ละข้อ มีโอกาสซ้ำกันได้ครับ
** สนับสนุนฟอรั่ม กรุณา คลิกโฆษณาที่หน้าเพจ***
แมวใหญ่ Bigcat9
RCA พระราม9 กรุงเทพฯ
.........
จำเป็นต้องใช้คำที่มีอยู่ 100 ครับ เพิ่มคำใหม่ไม่ได้
เนื่องจากเป็นความหมายของคำศัพท์ภาษาอังกฤษ
ที่ใช้ทำข้อสอบศัพท์
หากให้สุ่มได้ 100 ข้อ
โดยแต่ละข้ออาจสุ่มคำที่ซ้ำกันได้
เพียงแต่คำใน สุ่ม 1 สุ่ม 2 สุ่ม 3 สุ่ม 4 สุ่ม 5
ของแต่ละข้อต้องไม่ซ้ำกันครับ
เงื่อนไขแบบนี้ พอจะมีสูตรไหมครับ
ขอบคุณครับ
norkaz
Gold
Posts: 1535 Joined: Wed Jan 12, 2011 7:59 pmExcel Ver: 2013,365
#8
Post
by norkaz Sun Jan 28, 2024 9:45 am
...COUNTIF (B2:F2,B2:F2),0))>1
You do not have the required permissions to view the files attached to this post.
norkaz
Gold
Posts: 1535 Joined: Wed Jan 12, 2011 7:59 pmExcel Ver: 2013,365
#9
Post
by norkaz Sun Jan 28, 2024 12:34 pm
norkaz wrote: ↑ Sun Jan 28, 2024 9:45 am
...
การทำแบบนั้นทำได้ครับ แต่ว่า สูตรต้องเขียนไปดักการสุ่มค่านั้นๆทุกครั้ง
การเขียนสูตรไปดักนั้น ไม่ได้ขึ้นกับสูตรว่าสูตรนั้นยากหรือง่าย เท่านั้น แต่ยังขึ้นกับ วัตถุประสงค์ ของการ ใช้ผลลัพธ์นั้นๆด้วยเช่นกัน
หากดูจาก จุดประสงค์ เพียงเพื่อต้องการ นำค่าสุ่มนี้ ไปทำข้อสอบ 100 ข้อ
ผมเข้าใจว่า การสุ่ม ไม่ได้ต้องการสุ่มตลอดเวลา เพียงแค่ ให้ได้ คำตอบของช้อยส์ แต่ละข้อ แล้วก็จบ ณ. ตรงนั้น แล้ว นำ ช้อยส์นั้นๆ ไปให้นักเรียน ทำการสอบ
ท่านเจ้าของคำถามสามารถใช้วิธีการที่ง่ายกว่าการเขียนสูตรไปดักค่า สุ่มซ้ำ ในแต่ละข้อ ของโจทย์ข้อนั้นๆ หากมีการซ้ำกันของ ช้อยส์ ที่ต้องเลือก ก็ค่อยไปแก้ไข ให้ ไม่ซ้ำกันน่าจะ เป็นทางเลือกที่ดีกว่าครับ
G2
=MAX(INDEX(
COUNTIF (B2:F2,B2:F2),0))>1
Copy ลงไป
Filter ค่า True = ซ้ำในข้อเดียวกัน
....
ผมลองปรับสูตร ใช้สูตรเดียว เพื่อไม่ต้องไปเช็ค ค่าสุ่มซ้ำ
B2
=LOOKUP(2,1/(SMALL(Sheet1!$B$1:$B$100,(MOD(ROWS(B$2:B2)-1,20)+1)*COLUMNS($B2:B2))=Sheet1!$B$1:$B$100),Sheet1!$A$1:$A$100)
Copy ไปขวาและลงล่าง
** สนับสนุนฟอรั่ม กรุณา คลิกโฆษณาที่หน้าเพจ***
แมวใหญ่ Bigcat9
RCA พระราม9 กรุงเทพฯ
You do not have the required permissions to view the files attached to this post.
ajsudkedt
Gold
Posts: 1096 Joined: Thu Jan 28, 2010 11:08 amExcel Ver: 2019
#10
Post
by ajsudkedt Sun Jan 28, 2024 9:12 pm
norkaz wrote: ↑ Sun Jan 28, 2024 9:45 am
...
การทำแบบนั้นทำได้ครับ แต่ว่า สูตรต้องเขียนไปดักการสุ่มค่านั้นๆทุกครั้ง
การเขียนสูตรไปดักนั้น ไม่ได้ขึ้นกับสูตรว่าสูตรนั้นยากหรือง่าย เท่านั้น แต่ยังขึ้นกับ วัตถุประสงค์ ของการ ใช้ผลลัพธ์นั้นๆด้วยเช่นกัน
หากดูจาก จุดประสงค์ เพียงเพื่อต้องการ นำค่าสุ่มนี้ ไปทำข้อสอบ 100 ข้อ
ผมเข้าใจว่า การสุ่ม ไม่ได้ต้องการสุ่มตลอดเวลา เพียงแค่ ให้ได้ คำตอบของช้อยส์ แต่ละข้อ แล้วก็จบ ณ. ตรงนั้น แล้ว นำ ช้อยส์นั้นๆ ไปให้นักเรียน ทำการสอบ
ท่านเจ้าของคำถามสามารถใช้วิธีการที่ง่ายกว่าการเขียนสูตรไปดักค่า สุ่มซ้ำ ในแต่ละข้อ ของโจทย์ข้อนั้นๆ หากมีการซ้ำกันของ ช้อยส์ ที่ต้องเลือก ก็ค่อยไปแก้ไข ให้ ไม่ซ้ำกันน่าจะ เป็นทางเลือกที่ดีกว่าครับ
G2
=MAX(INDEX(
COUNTIF (B2:F2,B2:F2),0))>1
Copy ลงไป
Filter ค่า True = ซ้ำในข้อเดียวกัน
** สนับสนุนฟอรั่ม กรุณา คลิกโฆษณาที่หน้าเพจ***
แมวใหญ่ Bigcat9
RCA พระราม9 กรุงเทพฯ
....
งั้นคงต้องไปแก้ข้อที่ซ้ำเอาครับ
กราบขอบพระคุณท่านมาก ๆ ครับ
norkaz
Gold
Posts: 1535 Joined: Wed Jan 12, 2011 7:59 pmExcel Ver: 2013,365
#11
Post
by norkaz Sun Jan 28, 2024 10:18 pm
งั้นคงต้องไปแก้ข้อที่ซ้ำเอาครับ
ใช้สูตร และไฟล์ สุดท้ายที่ผมโพสต์ได้เลยครับ ไม่ต้องไปแก้ ข้อซ้ำแบบ Manual
สูตรนั้น ดักทุกค่าซ้ำไว้ให้หมดแล้วครับ
** สนับสนุนฟอรั่ม กรุณา คลิกโฆษณาที่หน้าเพจ***
แมวใหญ่ Bigcat9
RCA พระราม9 กรุงเทพฯ
....
ajsudkedt
Gold
Posts: 1096 Joined: Thu Jan 28, 2010 11:08 amExcel Ver: 2019
#12
Post
by ajsudkedt Tue Jan 30, 2024 6:34 am
norkaz wrote: ↑ Sun Jan 28, 2024 10:18 pm งั้นคงต้องไปแก้ข้อที่ซ้ำเอาครับ
ใช้สูตร และไฟล์ สุดท้ายที่ผมโพสต์ได้เลยครับ ไม่ต้องไปแก้ ข้อซ้ำแบบ Manual
สูตรนั้น ดักทุกค่าซ้ำไว้ให้หมดแล้วครับ
** สนับสนุนฟอรั่ม กรุณา คลิกโฆษณาที่หน้าเพจ***
แมวใหญ่ Bigcat9
RCA พระราม9 กรุงเทพฯ
....
ข้อสอบแต่ละชุดมีจำนวนข้อไม่เท่ากัน
ทำให้ยังมี error อยู่ ต้องปรับสูตรอย่างไร
ตามไฟล์แนบครับ
You do not have the required permissions to view the files attached to this post.
norkaz
Gold
Posts: 1535 Joined: Wed Jan 12, 2011 7:59 pmExcel Ver: 2013,365
#13
Post
by norkaz Tue Jan 30, 2024 9:15 am
...
You do not have the required permissions to view the files attached to this post.
ajsudkedt
Gold
Posts: 1096 Joined: Thu Jan 28, 2010 11:08 amExcel Ver: 2019
#14
Post
by ajsudkedt Thu Feb 01, 2024 4:59 am
norkaz wrote: ↑ Tue Jan 30, 2024 9:15 am
...
B2
=IFERROR(LOOKUP(2,1/(SMALL(Sheet1!$B$1:$B$100,(MOD(ROWS(B$2:B2)-1,20)+1)*COLUMNS($B2:B2))=Sheet1!$B$1:$B$100),Sheet1!$A$1:$A$100),"")
Copy ไปขวาและลงล่าง
** สนับสนุนฟอรั่ม กรุณา คลิกโฆษณาที่หน้าเพจ***
แมวใหญ่ Bigcat9
RCA พระราม9 กรุงเทพฯ
แก้ปัญหาได้แล้ว
กราบขอบพระคุณท่านมาก ๆ ครับ
snasui.com ยินดีต้อนรับ 
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
ระบุ Version ของ Excel 
โปรดทราบ 
