ВБА Изаберите опсег / ћелије

ВБА вам омогућава да изаберете ћелију, опсеге ћелија или све ћелије на радном листу. Можете да манипулишете изабраном ћелијом или опсегом помоћу Објекта за избор.

Изаберите једну ћелију помоћу ВБА

Можете изабрати ћелију на радном листу помоћу методе Селецт. Следећи код ће изабрати ћелију А2 у АцтивеВорксхеет -у:

1	Распон ("А2"). Изаберите

Ор

1	Ћелије (2, 1) .Изаберите

Резултат је:

Изаберите опсег ћелија помоћу ВБА

Можете изабрати групу ћелија на радном листу помоћу методе Селецт и објекта Ранге. Следећи код ће изабрати А1: Ц5:

1	Распон ("А1: Ц5"). Изаберите

Изаберите опсег ћелија које нису суседне помоћу ВБА

Можете изабрати ћелије или опсеге који нису један поред другог, одвајањем ћелија или опсега помоћу зареза у ВБА. Следећи код ће вам омогућити да изаберете ћелије А1, Ц1 и Е1:

1	Опсег ("А1, Ц1, Е1"). Изаберите

Такође можете да изаберете скупове несуследних опсега у ВБА. Следећи код ће изабрати А1: А9 и Б11: Б18:

1	Распон ("А1: А9, Б11: Б18"). Изаберите

Изаберите Све ћелије на радном листу

Помоћу ВБА можете изабрати све ћелије на радном листу. Следећи код ће изабрати све ћелије на радном листу.

1	Ћелије.Одабери

Изаберите ред

Можете изабрати одређени ред на радном листу помоћу објекта Ров и индексног броја реда који желите да изаберете. Следећи код ће изабрати први ред на вашем радном листу:

1	Редови (1) .Изаберите

Изаберите колону

Можете изабрати одређену колону на радном листу помоћу објекта Цолумн и индексног броја колоне коју желите да изаберете. Следећи код ће изабрати колону Ц на вашем радном листу:

1	Колоне (3) .Одабери

Изаберите последњу ћелију која није празна у колони

Рецимо да имате податке у ћелијама А1, А2, А3 и А4 и желите да изаберете последњу ћелију која није празна, а то би била ћелија А4 у колони. За то можете користити методу ВБА и методу Ранге.Енд.

Тхе Ранге.Енд Метход могу узети четири аргумента, наиме: клТоЛефт, клТоРигхт, клУп и клДовн.

Следећи код ће изабрати последњу ћелију која није празна, која би у овом случају била А4, ако је А1 активна ћелија:

1	Распон ("А1"). Крај (клДовн) .Одабери

Изаберите последњу ћелију која није празна у реду

Рецимо да имате податке у ћелијама А1, Б1, Ц1, Д1 и Е1 и желите да изаберете последњу ћелију која није празна, а то би била ћелија Е1 у реду. За то можете користити методу ВБА и методу Ранге.Енд.

Следећи код ће изабрати последњу ћелију која није празна која би у овом случају била Е1, ако је А1 активна ћелија:

1	Опсег ("А1"). Крај (клТоРигхт) .Одабери

Изаберите тренутни регион у ВБА

Можете користити ЦуррентРегион Проперти објекта Ранге како би се изабрао правоугаони опсег празних и не-празних ћелија око одређене дате улазне ћелије. Ако имате податке у ћелијама А1, Б1 и Ц1, следећи код би изабрао овај регион око ћелије А1:

1	Опсег ("А1"). ЦуррентРегион.Селецт

Тако би се изабрао опсег А1: Ц1.

Изаберите ћелију која је у односу на другу ћелију

Можете користити Оффсет Проперти да бисте изабрали ћелију која је у односу на другу ћелију. Следећи код показује како да изаберете ћелију Б2 која је 1 ред и 1 колона у односу на ћелију А1:

1	Опсег ("А1"). Помак (1, 1) .Изаберите

Изаберите Именовани опсег у програму Екцел

Можете изабрати Намед Рангес такође. Рецимо да сте ћелијама дали име А1: А4 Воће. За одабир овог именованог опсега можете користити следећи код:

1	Распон („Воће“). Изаберите

Одабир ћелије на другом радном листу

Да бисте изабрали ћелију на другом радном листу, прво морате активирати лист помоћу методе Ворксхеетс.Ацтивате. Следећи код ће вам омогућити да изаберете ћелију А7 на листу под називом Схеет5:

12	Радни листови („Лист 5“). АктивирајтеРаспон ("А1"). Изаберите

Манипулација објектом избора у ВБА

Након што одаберете ћелију или распон ћелија, можете се обратити објекту за одабир како бисте манипулирали овим ћелијама. Следећи код бира ћелије А1: Ц1 и поставља фонт ових ћелија на Ариал, тежину фонта на подебљано, стил фонта на курзив, а боју испуне на зелену.

123456789

ПодформатСелецтион ()Опсег ("А1: Ц1"). ИзаберитеСелецтион.Фонт.Наме = "Ариал"Селецтион.Фонт.Болд = ТачноСелецтион.Фонт.Италиц = ТачноСелецтион.Интериор.Цолор = вбГреенЕнд Суб

Резултат је:

Употреба тастера Витх… Енд Витх Цонструцт

Горњи пример можемо поновити користећи наредбу Витх / Енд Витх да бисмо се само једном позвали на Објекат избора. Ово штеди куцање и обично чини ваш код лакшим за читање.

1234567891011

Суб УсингВитхЕндВитхСелецтион ()Распон ("А1: Ц1"). ИзаберитеВитх Селецтион.Фонт.Наме = "Ариал".Фонт.Болд = Тачно.Фонт.Италиц = Тачно.Интериорс.Цолор = вбГреенЗавршитиЕнд Суб