массив

[Olya1985]

Подскажите, пожалуйста, в чем тут ошибка. должны выводиться все значения по порядку, расположенные в ячейках с 1 по 15.

Sub task()

Dim a(15)

Dim i

Do While i > 0 And i < 16

a(i) = Worksheets(1).Cells(i, 1)

MsgBox a(i)

Loop

MsgBox a(i)



End Sub

[IgorGO]

i равно 0. это и есть ошибка нет нулевого ряда на листе

[Olya1985]

подскажите, пожалуйста. как изменить скрипт, чтобы устранить ошибку

[IgorGO]

Sub task()
Dim a(15)
Dim i
for i = 0 to 16
a(i) = Worksheets(1).Cells(i+1, 1)
next i
End Sub

[Olya1985]

да, с использованием for у меня получалось тоже. а do while, do until в случае с массивами применять нельзя?

[IgorGO]

а do while, do until в случае с массивами применять нельзя?

можно
и for... и do... используются для реализации циклов
при использовании for... предполагается что известны начальное и конечное значение, из цикла do... выходим по достижению условия, используйте то, что приведет к более короткой записи.

Sub task()
Dim a(15)
Dim i
do
a(i) = Worksheets(1).Cells(i+1, 1)
i=i+1
loop until i=16
End Sub

а массиву все равно из какого цикла к нему обратились, лишь бы не за рамки массива

[Olya1985]

спасибо. только вот почему то при выводе значений в msgbox выводятся пустые окна.

[Hugo121]

Вполне работает:

Sub task()
    Dim a(15), i As Byte
    Do While i < 16
        i = i + 1
        a(i) = Worksheets(1).Cells(i, 1)
        MsgBox a(i)
    Loop
End Sub

[IgorGO]

Hugo121,
a(i-1) = Worksheets(1).Cells(i, 1)

Olya1985, где "в msgbox выводятся пустые окна"??

[Hugo121]

Да, пропустил...
И тогда Do While i < 15