สอบถามการแตกกระจายคะแนน

[kucom]

ผมเก็บคะแนนงาน 5 ชิ้น เต็ม 70 คะแนน แล้วทำการเทียบคะแนนให้เป็นคะแนนเต็ม 100 คะแนน (I6)
จากนั้นผมต้องการแตกคะแนนจาก I6 มากระจายสุ่ม ใส่ในคอลัมน์ J - S โดยเงื่อนไขคือแต่ละช่องต้องมากกว่า 5
ส่วนกรณีคะแนนไม่พอ ได้เท่าไหร่ สุดช่องไหนก็เท่านั้น

ผมแนบไฟล์มาให้ดูครับ

มีวิธีไหมครับ จะต้องทำอย่างไร

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

[snasui]

ลองกรอกตัวอย่างคำตอบที่ต้องการมาด้วยครับ คำว่ามากกว่า 5 สามารถสุ่มออกมาแล้วเท่ากับคะแนนเต็มเลยได้หรือไม่ และเมื่อเท่าคะแนนเต็มแล้ว ช่องอื่น ๆ จะให้เป็นค่าใดครับ

[kucom]

ครับ

มากกว่า 5 แต่ต้องไม่เกิน 10 ซึ่งเป็นคะแนนเต็มของในแต่ละช่องอ่ะครับ
ไฟล์แนบ ผลลัพธ์ที่ต้องการอ่ะครับ รบกวนด้วยครับ

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

[snasui]

ลองดูตามไฟล์แนบครับ โดย

1. แทรกคอลัมน์ J มาหนึ่งคอลัมน์เพื่อใช้เป็นคอลัมน์ช่วย
2. ที่เซลล์ K7 คีย์
   =IF(SUM($J7:J7)>=$I7,"",IF($I7-SUM($J7:J7)<=10,$I7-SUM($J7:J7),INT(RAND()*LOOKUP($I7,{0,50,60,70,80,90},{6,6,5,4,3,2})+LOOKUP($I7,{0,50,60,70,80,90},{5,5,6,7,8,9}))))
   Enter > Copy ไปด้านขวาและลงด้านล่าง

สำหรับตัวเลขที่มากกว่า 90 ขึ้นไป โอกาสยอดรวมไม่ตรงกับคอลัมน์ I มีสูงเนื่องจากเป็นการสุ่ม หากจะให้แม่นจริง ๆ สามารถอาศัย VBA มาช่วยอีกทาง ซึ่งต้องเขียนมาก่อน ติดตรงไหนก็ถามมาได้เรื่อย ๆ ครับ

[kucom]

ขอบคุณมากๆ เลยครับ

[nudangcs]

ขอบคุณ / thank you.