| Doktor_kto | Дата: Суббота, 26.05.2012, 12:05 | Сообщение # 1 |
Сообщений: 1
Репутация: 0
Статус: Offline
| Создаю тест в VBA. есть несколько вопросов
1)первый, как написать код,который проверял бы массив на совпадения?
2)Sub Test()
Dim a(1 To 1, 1 To 5)
Dim x As Integer
Dim y As Integer
Dim z As Integer
Dim i As Integer
Dim m As Integer
For i = 2 To 21
x = Int((108 * Rnd) + 2)
y = Int((108 * Rnd) + 2)
z = Int((108 * Rnd) + 2)
m = Int((108 * Rnd) + 2)
ReDim Preserve a(1 To i, 1 To 5)
a(i, 1) = Cells(x, 1)
a(i, 2) = Cells(x, 2)
a(i, 3) = Cells(y, 2)
a(i, 4) = Cells(z, 2)
a(i, 5) = Cells(m, 2)
Next i
MsgBox (a(1, 1))
End Sub
собственно вот написаный мной код, но эксель ругается на строчку " ReDim Preserve a(1 To i, 1 To 5)"
почему и как исправить?
к сожалению,файл со всейзаполенной инфой кинуть сбда не получается
Сообщение отредактировал Doktor_kto - Суббота, 26.05.2012, 12:06 |
Страна: Российская Федерация  |
| |
