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