Текущий архив: 2008.02.10;
Скачать: CL | DM;
Вниз
Срочно нужна помощь По написаню макроса в 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-й день бьюсь никак найти не могу что я не так делаю.
← →
Andy BitOff © (2008-01-11 16:38) [4]Сюда иди
http://am.rusimport.ru/MSAccess/f.aspx?type=1&t=1
http://am.rusimport.ru/MSAccess/default.aspx
Получишь ответ. Там зубры по твоей теме.
← →
Sairex © (2008-01-11 16:53) [5]Буду надеятся что там помогут.
Страницы: 1 вся ветка
Текущий архив: 2008.02.10;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.02 c
