Page 1 of 1

บาลานซ์ชุดตัวเลขให้แต่ละแถวและคอลัมน์มีผลรวมเท่ากัน (หรือใกล้เคียงกันให้มากที่สุด)

Posted: Sat Mar 04, 2017 10:43 am
by nawapol.m
ต้องการจัดเรียงข้อมูลในตาราง ให้ผลรวมในแต่ละแถว และแต่ละคอลัมน์ เท่ากัน(หรือใกล้เคียงมากที่สุด)

26.4 26.4 26.4 26.4 26.4 26.4 26.4 26.4 26.4 26.4 26.4
26.4 26.4 26.4 27.4 27.4 27.4 27.4 27.4 27.4 27.4 27.4
27.4 27.4 27.4 28.4 28.4 28.4 28.4 28.4 28.4 28.4 28.4
28.4 28.4 28.4 28.4 29.4 29.4 29.4 29.4 29.4 29.4 29.4
29.4 29.4 29.4 29.4 29.4 29.4 29.4 30.4 30.4 30.4 30.4
30.4 30.4 30.4 30.4 30.4 30.4 30.4 30.4 30.4 31.4 31.4
31.4 31.4 31.4 31.4 31.4 31.4 31.4 31.4 31.4 31.4 32.4
32.4 32.4 32.4 32.4 32.4 32.4 32.4 32.4 32.4 32.4 32.4

ขอบคุณครับ
(ได้แนบไฟล์ตัวอย่างมาด้วยครับ)

Re: บาลานซ์ชุดตัวเลขให้แต่ละแถวและคอลัมน์มีผลรวมเท่ากัน (หรือใกล้เคียงกันให้มากที่สุด)

Posted: Sat Mar 04, 2017 11:45 am
by nawapol.m
ขออภัยที่ข้อมูลไม่ชัดเจนครับ จากข้อมูลชุดเดิมเป็นไปไม่ได้ที่ผลรวมแต่ละแถวและแต่ละคอลัมน์จะเท่ากัน ผมจึงขอแนบไฟล์ใหม่ครับ

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

ขอบคุณครับ

Re: บาลานซ์ชุดตัวเลขให้แต่ละแถวและคอลัมน์มีผลรวมเท่ากัน (หรือใกล้เคียงกันให้มากที่สุด)

Posted: Sat Mar 04, 2017 12:27 pm
by snasui
:D การทำงานลักษณะนี้คงต้องพึ่งพา Solver หรือ VBA เข้ามาช่วย ซึ่งในส่วนของ Solver ก็ไม่รับรองผลว่าจะใช้งานได้นะครับ

หากยังไม่มี Add-ins Solver ให้เปิดขึ้นมาใช้งานก่อน โดยคลิกขวาที่เมนูใด ๆ แล้วเลือก Customize the ribbon > Add-ins > Excel Add-ins > Go > Solver Add-ins > OK

จากนั้นกลับมาที่ไฟล์งาน ซึ่งจะมีวิธีการทำงานเป็นรอบ ๆ ไปโดยต้องเตรียมข้อมูลดังนี้
  1. A13 คีย์สูตรเพื่อ List รายการตัวเลขออกมาทั้งหมด
    =LARGE($E$2:$O$9,COUNT($E$2:$O$9)-ROWS(A$13:A13)+1)
    Enter > Copy ลงด้านล่าง > Copy ค่าที่ได้แล้ววางแบบค่า (Valus)
  2. B101 คีย์สูตร
    =SUMPRODUCT(A13:A100,B13:B100)
    Enter
  3. C101 คีย์สูตร
    =COUNTIF(B13:B100,">0")
จากนั้นทำการ Solver โดยทำตามขั้นตอนด้านล่างครับ
  1. เข้าเมนู Data > Solver
  2. ตรง Set Objective: คลิก B101
  3. ตรง To: เลือก Max
  4. ตรง By Changing Variable Cells: เลือก B13:B100
  5. ในส่วนของ Subject to the constraints:
    1. คลิกปุ่ม Add
    2. Cell Reference เลือก B101
    3. เครื่องหมายเลือก <=
    4. Constrain คีย์ 234
    5. Cell Reference เลือก B13:B100
    6. เครื่องหมายเลือก bin
    7. คลิกปุ่ม Add
    8. Cell Reference เลือก C101
    9. เครื่องหมายเลือก <=
    10. Constrain คีย์ 8
    11. คลิกปุ่ม Add
    12. คลิก Cancel
    13. คลิก Solve
หาก Solver ทำงานได้มันจะแสดงเลข 1 ในคอลัมน์ B มาจำนวน 8 ตัว ให้เลือกตัวเลขที่คอลัมน์ A ที่ตรงกับเลข 1 มาใช้งาน จากนั้นเก็บค่านั้นไว้และลบผลลัพธ์ที่ได้และทำการ Solver ใหม่จนครบทุกชุด

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

Re: บาลานซ์ชุดตัวเลขให้แต่ละแถวและคอลัมน์มีผลรวมเท่ากัน (หรือใกล้เคียงกันให้มากที่สุด)

Posted: Sat Mar 04, 2017 4:13 pm
by nawapol.m
ขอบคุณครับอาจารย์