Преглед садржаја
Овај водич ће показати како попунити низ низом ћелија.
Додели опсег низу
Лако можемо попунити низ Вариант низом ћелија.
Доделите вредност из једне колоне
Овај пример ће проћи кроз опсег („А1: А10“), додељујући вредности ћелије низу:
| 12345678910111213 | Суб ТестАрраиВалуесСингле ()'Прогласите низ као варијантни низДим арРнг () Ас Вариант'Прогласите цео број за складиштење броја редоваДим иРв Ас Интегер'Доделите опсег променљивој низаарРнг = Распон ("А1: А10")'петља кроз редове - 1 до 10За иРв = 1 до УБоунд (арРнг)'приказати резултат у непосредном прозоруДебуг.Принт арРнг (иРв, 1)Следећи иРвЕнд Суб |
Тхе УБоунд се користи за постављање горње границе низа (нпр. 10) тако да петља зна да се петља 10 пута.
ТхеДебуг.Принт функција ће вам показати вредност коју садржи низ у непосредном прозору.
Додели вредност из више колона
| 123456789101112131415161718 | Суб ТестАрраиВалуесМултипле ()'Прогласите низ као варијантни низДим арРнг () Ас Вариант'Прогласите цео број за складиштење броја редоваДим иРв Ас Интегер'Прогласите цео број за складиштење броја колонаЗатамните иЦол као цео број'Доделите опсег променљивој низаарРнг = Распон ("А1: Ц10")'петља кроз редове - 1 до 10За иРв = 1 до УБоунд (арРнг, 1)'сада - док сте у првом реду, прођите кроз 3 колонеЗа иЦол = 1 до УБоунд (арРнг, 2)'приказати резултат у непосредном прозоруДебуг.Принт арРнг (иРв, иЦол)Следећи иЦолСледећи иРвЕнд Суб |
У горњем коду смо попунили низ вредностима у опсегу („А1: Ц10“).
Тхе УБоунд се поново користи - али овај пут је потребно два пута - једном за пролажење кроз редове, а затим поново за пролажење кроз колоне.
Тхе Дебуг.Принт функција ће вам показати вредност коју садржи низ у непосредном прозору.
