Snasui Excel Forum

'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

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

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

[code]
'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
[/code]

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