Snasui Excel Forum

Posted: **Thu Mar 27, 2014 2:31 pm**

สวัสดีค่ะ อาจารย์

หนูเป็นนักศึกษาปริญญาโท ตอนนี้กำลังทำวิทยานิพนธ์เกี่ยวกับฮิวริสติกในการมอบหมายงานคนขับรถ โดยที่อาจารย์ที่ปรึกษาให้เขียน VBA เพื่อหาคำตอบ แต่หนูไม่ค่อยมีพื้นฐานในการเขียนโปรแกรมเท่าไหร่นัก (ตอนนี้ก็กำลังศึกษาโดยการอ่านหนังสือเพิ่มเติมอยู่ค่ะ) ซึ่งทำให้งานเดินได้ช้ามาก

โจทย์คือ หนูจะต้องมอบหมายงาน 20 งาน ที่มีระยะทางต่างกัน ให้กับพนักงานขับรถ 5 คน โดยที่พนักงานแต่ละคนต้องได้ระยะทางที่ใกล้เคียงกันมากที่สุด ซึ่งวิธีการในการแก้ไขปัญหาที่หนูคิดคือ หนูจะมอบหมายงานที่มีระยะทางมากที่สุดให้พนักงานขับรถแต่ละคนจนครบ 5 คน จากนั้นหนูจะดูว่าพนักงานคนไหนที่ได้ระยะทางสะสมน้อยที่สุดก็จะมอบหมายงานที่มีระยะทางสูงสุดที่เหลืออยู่ และทำจนครบทุกงาน (งานนี้เป็นเพียงส่วนหนึ่งของวิทยานิพนธ์)

ตอนนี้งานที่หนูกำลังเริ่มเขียน code ติดปัญหาในการเขียน code โดยหนูได้แนบไฟล์มาด้วยค่ะ คือว่า เหมือน code ที่เขียนขึ้นมันวน loop ไม่รู้จบ ตอนนี้หนูจะขอความกรุณาจากอาจารย์ช่วยแนะนำในการแก้ปัญหาดังกล่าว

ขอบพระคุณที่อาจารย์เสียสละเวลาในการตอบคำถามค่ะ

Posted: **Thu Mar 27, 2014 9:50 pm**

ในเมื่อคุณเขียนให้มันวน Loop มันก็ต้องวน Loop ครับ การจะ Check ว่า Code ใดวน Loop สามารถกดแป้น F8 ซ้ำๆ แล้วสังเกตดูผล

Code ที่วน Loop คือชุดนี้ครับ

Code: Select all

Some_job_still_not_assigned:

max_d = -1

For cus = 1 To n_job
    If distance(cus) > max_d And assign_to_driver_no(cus) = 0 Then
        max_d = distance(cus)
        max_d_job = cus
    End If
Next cus

If max_d = -1 Then GoTo Show_Result

min_Cum_Time = 9999999

For driver = 1 To n_driver
    If min_Cum_distance > cum_distance(driver) Then
        min_Cum_distance = cum_distance(driver)
        min_Cum_distance_driver = driver
    End If
Next driver

assign_to_driver_no(max_d_job) = min_Cum_distance_driver
cum_distance(min_Cum_distance_driver) = cum_distance(min_Cum_distance_driver) + max_d
GoTo Some_job_still_not_assigned

ตาม Code ที่ยกมาด้านบน การจะไม่ให้วน Loop ก็จะต้องมีการดักว่าถ้าเข้าเงื่อนไขใดให้ออกจาก Loop เช่นใช้ If...Then เข้าไปดัก ไม่ใช่เขียนบรรทัดสุดท้ายเอาไว้เฉย ๆ เช่นนั้น เพราะมันจะวิ่งกลับไปบรรทัดแรกอยู่ตลอดไปครับ

Posted: **Thu Mar 27, 2014 10:59 pm**

ขอบคุณค่ะ อาจารย์

Posted: **Fri Mar 28, 2014 8:34 am**

ขอรบกวนอาจารย์อีกรอบนะคะ พอดีพี่ check code โดยการกด F8 มาแล้วค่ะ แต่ไม่หาวิธีแก้ปัญหาไม่ได้ เข้าใจว่าได้ประกาศให้ If max_d = -1 Then GoTo Show_Result ไปแล้ว มันน่าจะกลับมาวน loop อีก ถ้ามันเจอ max_d = -1 ช่วยบอกวิธีแก้ไขได้เลยไหมค่ะ เพราะหนูเป็นมือใหม่จริงๆค่ะ รบกวนอาจารย์อีกรอบด้วยนะคะ ขอบคุณค่ะ

Posted: **Fri Mar 28, 2014 11:11 am**

อาจารย์บอกไว้ชัดเจนแล้วว่าบรรทัดสุดท้ายตามโค้ดที่อาจารย์ยกมาเป็นการทำให้วนลูป อย่าไปเขียนไว้เฉยๆ แบบไม่มีการดัก

ไม่ลองเอามันออกไปดูก่อน หรือติดปัญหาอะไรครับ

Posted: **Fri Mar 28, 2014 11:33 am**

หนูลองเอาออก "GoTo Some_job_still_not_assigned" แล้วค่ะ แต่มันไม่คำนวณค่าให้ ขึ้นแต่ตัวหนังสือมา แต่ค่าไม่ออกค่ะ ต้องทำยังไงให้มันคำนวณให้ด้วยล่ะคะ (หนูไม่ทราบวิธีแก้จริงๆค่ะ)

ขอความกรุณารบกวนอาจารย์อีกรอบนะคะ

Posted: **Fri Mar 28, 2014 1:24 pm**

อาจารย์คะ หนูลองแก้ code ดูแล้ว ตอนนี้ทำได้แล้วค่ะ ขอบคุณค่ะ

Snasui Excel Forum

ขอสอบถามเกี่ยวกับการแก้ Code ของ VBA ที่วน Loop ไม่รู้จบ

ขอสอบถามเกี่ยวกับการแก้ Code ของ VBA ที่วน Loop ไม่รู้จบ

Re: ขอสอบถามเกี่ยวกับการแก้ Code ของ VBA ที่วน Loop ไม่รู้จบ

Re: ขอสอบถามเกี่ยวกับการแก้ Code ของ VBA ที่วน Loop ไม่รู้จบ

Re: ขอสอบถามเกี่ยวกับการแก้ Code ของ VBA ที่วน Loop ไม่รู้จบ

Re: ขอสอบถามเกี่ยวกับการแก้ Code ของ VBA ที่วน Loop ไม่รู้จบ

Re: ขอสอบถามเกี่ยวกับการแก้ Code ของ VBA ที่วน Loop ไม่รู้จบ

Re: ขอสอบถามเกี่ยวกับการแก้ Code ของ VBA ที่วน Loop ไม่รู้จบ