รบกวนช่วยตรวจสอบCode VBA นี้ให้หน่อยครับ

[chaloemsak]

คือผมจะสร้างตัวเเทนคำตอบ 10 คำตอบ จากโจทย์ ลูกค้า=7 ยานพาหนะ=3
โดยตัวเเทนคำตอบ 1 คำตอบนั้นจะเป็นการสลับเลขตั้งเเต่ 1 - 7 โดยมี 0 กั้นระหว่างลูกค้า เเละจะมี 0 ปิดหัวปิดท้ายเสมอ
เช่น 0 5 3 0 1 7 6 2 0 4 0 เป็นต้น
เเต่โค้ดของผมมันขึ้น debug ตรงที่ผมกำหนดให้ช่องเเรกมันเท่ากับ 0
ผมไม่เข้าใจว่ามันติดอะไรถึง run ไม่ได้
รบกวนด้วยครับ

[snasui]

IntSol คือตัวแปร 2 มิติ การกำหนดค่าให้มันก็ต้องกำหนดแบบ 2 มิติ หากกำหนดแค่มิติเดียวก็จะ Error ครับ

ตัวอย่างการปรับ Code เพื่อให้เป็น 2 มิติ ลองนำไปประยุกต์ให้ตรงกับสิ่งที่ต้องการดูครับ

Code: Select all

'Other code
ReDim IntSol(1 To NumSol, 1 To SolLen)
IntSol(1, 1) = 0
IntSol(1, SolLen) = 0
    For i = 1 To NumSol
        For j = 2 To SolLen - 1
            If j <= NumV Then
                IntSol(1, j) = 0
            Else
                IntSol(1, j) = j - NumV
        End If
    Next j
Next i
'Other code