Задание массива

[Илья РООгулин]

Знатоки! Прошу помощи. В общем надо объявить верхнюю границу массива через inputbox или ячейку. как лучше сделать? я вот попытался через inputbox сделать, но компилятор ругается

Dim i As Integer
Dim n As Integer
Dim Min, Max
Dim max1 As Integer
n = InputBox("Введите число элементов")
Dim arr(1 To n)
For i = 1 To n Step 1
arr(i) = InputBox("Введите число элемента " & i)
Next i

[SAS888]

Замените

Dim arr(1 To n)

на

ReDim arr(1 To n)

[Илья РООгулин]

Сообщение от SAS888

Замените

Dim arr(1 To n)

на

ReDim arr(1 To n)

спасибо, работает.

[SAS888]

Дело в том, что при описании переменных недопустимо использовать переменные.
По-нормальному, в данном случае, Вы должны сначала объявить динамический массив

Dim arr()

а затем определять его размерность, где можно использовать переменную

ReDim arr(1 To n)