Већ смо размотрили шта су променљиве и константе у нашем ВБА типу података - Променљиве и константе. Сада ћемо погледати објекат опсега у ВБА и како прогласити променљиву као објекат опсега. Објекат опсега се користи за означавање ћелија или више ћелија у ВБА. Дакле, веома је корисно користити у вашем коду.
Кликните овде за више информација о ВБА распонима и ћелијама.
Објекат ВБА опсега
Објекат ранге можете користити за упућивање на једну ћелију. На пример, ако желите да се обратите на ћелију А1 у свом ВБА коду, могли бисте да користите објекат опсега ВБА како је приказано у доњем коду:
1234 | Суб РеферрингТоАСинглеЦеллУсингТхеРангеОбјецт ()Опсег ("А1"). Вредност = 89Опсег ("А1"). Фонт.Болд = ТачноЕнд Суб |
Када притиснете рун или Ф5 на тастатури, да бисте покренули код, добићете следећи резултат на свом радном листу:
Објекат опсега можете користити за упућивање на више ћелија или опсега. На пример, ако желите да се позивате на опсег ћелија (А1: Ц1) у свом ВБА коду, могли бисте да користите објекат опсега ВБА како је приказано у доњем коду:
123456 | Суб РеферрингТоМултиплеЦеллсУсингТхеРангеОбјецт ()Опсег ("А1: Ц1"). Вредност = "АБЦ"Опсег ("А1: Ц1"). Границе (клЕдгеБоттом) .ЛинеСтиле = клДвострукоЕнд Суб |
Када притиснете рун или Ф5 на тастатури, да бисте покренули код, добићете следећи резултат на свом радном листу:
Декларисање променљиве као опсег
Приликом декларисања променљиве као опсега мораћете да користите кључне речи Дим и Сет. Доњи код вам показује како прогласити променљиву као опсег.
123456789101112 | Суб ДецларингАндСеттингАРанге ()Дим рнг Ас РангеСет рнг = Ранге ("А10: Б10")рнг.Валуе = "Аутоматизуј Екцел"рнг.Фонт.Болд = Тачнорнг.Селецтрнг.Цолумнс.АутоФитЕнд Суб |
Резултат је:
Одабир одређених редова у вашем објекту распона
Можете изабрати одређене редове унутар свог објекта опсега. Код испод показује како то да урадите:
12345678 | Под ОдабирСпецифицРовсИнТхеРангеОбјецт ()Дим рнг Ас РангеПостави рнг = опсег ("А1: Ц3")рнг.Ровс (3) .СелецтЕнд Суб |
Резултат је:
Одабир одређених ступаца у вашем објекту распона
Можете изабрати одређене колоне унутар свог објекта опсега. Код испод показује како то да урадите:
12345678 | Под ОдабирСпецифицЦолумнсИнТхеРангеОбјецт ()Дим рнг Ас РангеПостави рнг = опсег ("А1: Ц3")рнг.Цолумнс (3) .СелецтЕнд Суб |