Как перемещаться по массиву в vba?

В VBA для перебора массива можно использовать цикл For (For Next) . И чтобы написать этот код цикла, вам нужно знать размер массива (верхнюю и нижнюю границу) , чтобы вы могли использовать оба значения в качестве счетчика цикла. По сути, цикл for начинается с первого элемента массива и продолжается до последнего.

У вас есть следующая таблица с пятью элементами от 1 до 5, и в этих элементах есть числа. Итак, идея состоит в том, чтобы написать код, который сможет перебирать эти пять элементов, а затем умножать их на 2.

vba-петля через радиус-1

Перебирать массив в VBA

  1. Прежде всего, вам нужно знать верхнюю и нижнюю границы массива, и для этого вам нужно использовать функции UBOUND и LBOUND.
  2. После этого вам нужно использовать эти лимиты для создания счетчика цикла.
  3. Далее вам нужно написать строковый код для умножения значения элемента на 2. Эта строка кода возьмет значение самого элемента и затем умножит его.
  4. В конце используйте ключевое слово «Далее», чтобы закрыть код цикла.

Вот полный код.

 Option Base 1 Sub vba_array_loop() Dim myArray(5) As Integer myArray(1) = 10 myArray(2) = 20 myArray(3) = 30 myArray(4) = 40 myArray(5) = 50 Dim uB As Integer, lB As Integer uB = UBound(myArray) lB = LBound(myArray) For i = lB To uB myArray(i) = myArray(i) * 2 Next i End Sub