Snasui Excel Forum

snasui wrote: ตัวอย่างสูตรที่ G1 ครับ

=A1+(A1<7)

Enter > Copy ไปด้านขวาและลงด้านล่าง

วังวู ช่ง wrote:ขอต่ออีกครับ
เมื่อบวกสามคะแนนเข้าไปในคะแนนที่ต่ำแล้ว ถ้ายังมีคะแนนที่ต่ำกว่า 5 แม่นให้เอาคะแนนที่สูงกว่า ตัดลงไปบวกใส่คะแนนที่ต่ำให้ถึง 5 ครับ
เมื่อใช้สูตรเข้าไป ได้แบบนี้ครับ
4 5 7 3 5 6 7 4
7 5 6 4 7 6 7 5
4 4 3 7 5 5 4 7
5 4 3 4 5 5 4 5
เมื่อเราปรับคะแนนอีกได้แบบนี้
5 6 7 4 5 6 6 5
7 6 7 5 7 6 7 5
5 5 4 7 5 5 5 6
5 5 4 5 5 5 4 5 คนที่สี่นี้ตกครับ คะแนนไม่ถึงครับ ปรับไม่ได้ครับ

วังวู ช่ง wrote:

วังวู ช่ง wrote:ขอต่ออีกครับ
เมื่อบวกสามคะแนนเข้าไปในคะแนนที่ต่ำแล้ว ถ้ายังมีคะแนนที่ต่ำกว่า 5 แม่นให้เอาคะแนนที่สูงกว่า ตัดลงไปบวกใส่คะแนนที่ต่ำให้ถึง 5 ครับ
เมื่อใช้สูตรเข้าไป ได้แบบนี้ครับ
4 5 7 3>>>>5 6 7 4
7 5 6 4>>>>7 6 7 5
4 4 3 7>>>>5 5 4 7
5 4 3 4>>>>5 5 4 5
เมื่อเราปรับคะแนนอีกได้แบบนี้
5 6 7 4>>>>5 6 6 5
7 6 7 5>>>>7 6 7 5
5 5 4 7>>>>5 5 5 6
5 5 4 5>>>>5 5 4 5 คนที่สี่นี้ตกครับ คะแนนไม่ถึงครับ ปรับไม่ได้ครับ

1. F1 คีย์
   =A1+(A1<7)
   Enter > Copy ไปด้านขวาและลงด้านล่าง
2. K1 คีย์
   =IF(MAX($F1:$I1)<7,F1,F1+(F1=MIN($F$1:$I$1))-(F1=MAX($F$1:$I$1)))
   Enter > Copy ไปด้านขวาและลงด้านล่าง

snasui wrote: ตัวอย่างสูตรครับ

1. F1 คีย์
   =A1+(A1<7)
   Enter > Copy ไปด้านขวาและลงด้านล่าง
2. K1 คีย์
   =IF(MAX($F1:$I1)<7,F1,F1+(F1=MIN($F$1:$I$1))-(F1=MAX($F$1:$I$1)))
   Enter > Copy ไปด้านขวาและลงด้านล่าง

ถ้ามีการวนซ้ำหลายครั้งและต้องการจะทำในขั้นตอนเดียวให้เขียน VBA เข้ามาจัดการ ซึ่งต้องเขียนมาเองก่อน ติดตรงไหนค่อยถามกันต่อครับ