Срочно нужна помощь По написаню макроса в Exel

← →
Sairex © (2008-01-11 16:21) [0]

Приветствую вас мастера. Столкнулся я со следующей проблемой не могу отладить код макроса (MS EXEL VBA), который решает задачу коммивояжера поиском ближнего соседа.
Кодик:Sub Макрос6() " " Макрос6 Макрос " Макрос записан 10.01.2008 (User) " Dim R(100, 100) As Variant Dim i1, i2, i3 As Integer Dim b(100) As Variant Rmin = Cells(6 + 1, 1 + 2) n = 7 "блок ввода значений матрицы затрат For i = 1 To n For j = 1 To n R(i, j) = Cells(6 + i, 1 + j) Next j, i For i = 1 To n b(i) = 0 Range("A" & 20 + i) = b(i) Next i "блок перебора всех возможных перестановок b(1) = 1 For i1 = 1 To n For i2 = 1 To n If (Rmin <= R(i1, i2)) And (i1 <> i2) Then Rmin = R(i1, i2) For i3 = 1 To n If b(i3) = i2 Then GoTo 10 Next i3 b(i1) = i2 Range("A" & 20 + i1) = i2 End If 10 Next i2, i1 For i1 = 1 To n Cells(i1, 17) = b(i1) Next i1 End Sub
---
Заранее ОГРОМНОЕ СПАСИБО!

← →
Sonia © (2008-01-11 16:29) [1]

А в чем проблема то?

← →
Сергей М. © (2008-01-11 16:30) [2]

Тебе к терапевту, который специализируется в предмете.

← →
Sairex © (2008-01-11 16:32) [3]

Да дело в том что код выводит какую то абракадабру. Уже 3-й день бьюсь никак найти не могу что я не так делаю.

Сюда иди
http://am.rusimport.ru/MSAccess/f.aspx?type=1&t=1
http://am.rusimport.ru/MSAccess/default.aspx
Получишь ответ. Там зубры по твоей теме.

Буду надеятся что там помогут.

Срочно нужна помощь По написаню макроса в Exel Найти похожие ветки