Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.019 c