Този урок ще покаже как да се попълни масив с набор от клетки.
Присвояване на диапазон на масив
Можем лесно да попълним масив A Variant с набор от клетки.
Присвояване на стойност от една колона
Този пример ще премине през Range (“A1: A10”), като присвои стойностите на клетката на масив:
| 12345678910111213 | Sub TestArrayValuesSingle ()'Обявете масива като вариант на масивDim arRng () Като вариант'Обявете цяло число за съхраняване на броя редовеЗатъмнете iRw като цяло число„Присвояване на диапазон на променлива от масиваarRng = Обхват ("A1: A10")'цикъл през редовете - 1 до 10За iRw = 1 към UBound (arRng)'покажете резултата в непосредствения прозорецDebug.Print arRng (iRw, 1)Следващ iRwEnd Sub |
The UBound се използва за задаване на горната граница на масива (напр. 10), така че цикълът да знае да се завърта 10 пъти.
TheОтстраняване на грешки функцията ще ви покаже стойността, съдържаща се в масива в непосредствения прозорец.
Присвояване на стойност от няколко колони
| 123456789101112131415161718 | Sub TestArrayValuesMultiple ()'Обявете масива като вариант на масивDim arRng () Като вариант'Обявете цяло число за съхраняване на броя редовеЗатъмнете iRw като цяло число'Декларирайте цяло число за съхраняване на броя колониЗатъмнете iCol като цяло число„Присвояване на диапазон на променлива от масиваarRng = Обхват ("A1: C10")'цикъл през редовете - 1 до 10За iRw = 1 към UBound (arRng, 1)'сега - докато сте в ред 1, преминете през 3 колониЗа iCol = 1 към UBound (arRng, 2)'покажете резултата в непосредствения прозорецDebug.Print arRng (iRw, iCol)Следващ iColСледващ iRwEnd Sub |
В горния код сме попълнили масива със стойностите в Range („A1: C10“).
The UBound се използва за пореден път - но този път е необходимо два пъти - веднъж за преминаване през редовете, а след това отново за преминаване през колоните.
The Отстраняване на грешки функцията ще ви покаже стойността, съдържаща се в масива в непосредствения прозорец.
