Subscript out of range VBA

Ошибка "subscript out of range" в VBA возникает, когда происходит попытка получить или изменить значение элемента массива, используя индекс, который находится вне диапазона допустимых значений для данного массива.

Например, предположим, что у нас есть массив "myArray" размером 5 элементов. Если мы попытаемся обратиться к 6-му элементу массива, то будет сгенерирована ошибка "subscript out of range":

Dim myArray(4) As Integer ' объявляем массив из 5 элементов
myArray(5) = 10 ' вызовет ошибку "subscript out of range"

Эта ошибка также может возникнуть, если мы пытаемся обратиться к элементу массива, который имеет отрицательный индекс:

Dim myArray(4) As Integer
myArray(-1) = 10 ' вызовет ошибку "subscript out of range"

Чтобы избежать ошибки "subscript out of range", необходимо убедиться, что индекс, который мы используем для доступа к элементу массива, находится в диапазоне от 0 до (размер_массива - 1).

Пример исправления ошибки:

Dim myArray(4) As Integer
If index >= 0 And index <= UBound(myArray) Then ' проверяем, находится ли индекс в допустимом диапазоне
    myArray(index) = 10
Else
    MsgBox "Некорректный индекс!"
End If

В данном примере мы использовали функцию UBound, чтобы получить верхний индекс массива. Таким образом, мы проверяем, находится ли индекс в допустимом диапазоне перед обращением к элементу массива.

Также, стоит удостовериться, что массив объявлен и инициализирован с правильным размером перед его использованием:

Dim myArray(4) As Integer ' массив из 5 элементов
' код ...

В данном примере мы объявляем массив myArray с помощью оператора Dim и указываем его размерность (в данном случае 5 элементов). Это позволит избежать ошибки "subscript out of range" при обращении к элементам массива.

Надеюсь, эта информация поможет вам избежать ошибки "subscript out of range" в вашем коде на VBA.