/ / Екцел ВБА Ранге Објецт

Екцел ВБА Ранге Објецт

Примјери опсега | Ћелије | Објасните објекат опсега | Изаберите | Ровс | Колоне | Копирај / Пасте | Јасно | Цоунт

Тхе Опсег објекта, што је представљање ћелије (или ћелија) на вашем радном листу, најважнији је предмет Екцел ВБА. Ово поглавље даје прегледсвојства и методе предмета Ранге. Својства су нешто што објекат има (они описују објекат), док методе врше нешто (врше акцију са објектом).

Примјери опсега

Поставите командно дугме на свој радни лист и додајте следећу линију кода:

Range("B3").Value = 2

Резултат када кликнете на командно дугме на листу:

Екцел ВБА Ранге Пример

Код:

Range("A1:A4").Value = 5

Резултат:

Примјер опсега

Код:

Range("A1:A2,B3:C4").Value = 10

Резултат:

Примјер опсега

Напомена: да бисте се позивали на назначени опсег у Екцел ВБА коду, користите линију кода овако:

Range("Prices").Value = 15

Ћелије

Уместо Ранге, можете користити и Целлс. Коришћење ћелија је нарочито корисно када желите да кружите кроз опсеге.

Код:

Cells(3, 2).Value = 2

Резултат:

Ћелије у Екцелу ВБА

Објашњење: Екцел ВБА улази вредност 2 у ћелију на пресеку редова 3 и колоне 2.

Код:

Range(Cells(1, 1), Cells(4, 1)).Value = 5

Резултат:

Ћелије

Објасните објекат опсега

Можете декларирати објекат Ранге користећи кључне речи Дим и Сет.

Код:

Dim example As Range
Set example = Range("A1:C4")

example.Value = 8

Резултат:

Објасните објекат опсега у Екцелу ВБА

Изаберите

Важан метод објекта Ранге је метод Селецт. Избор метода једноставно бира опсег.

Код:

Dim example As Range
Set example = Range("A1:C4")

example.Select

Резултат:

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

Напомена: да бисте селектовали ћелије на другом радном листу, прво морате да активирате овај лист. На пример, следеће линије кода одлазе ћелију Б7 на трећем радном листу са леве стране.

Worksheets(3).Activate
Worksheets(3).Range("B7").Select

Ровс

Особина Ровс омогућава приступ одређеном редоследу опсега.

Код:

Dim example As Range
Set example = Range("A1:C4")

example.Rows(3).Select

Резултат:

Ровс Проперти

Напомена: граница само за илустрацију.

Колоне

Особина колоне даје приступ одређеној колони опсега.

Код:

Dim example As Range
Set example = Range("A1:C4")

example.Columns(2).Select

Резултат:

Имовина колона

Напомена: граница само за илустрацију.

Копирај / Пасте

Метод Копирај и налепи се користи за копирање опсега и налепницу негде другде на радном листу.

Код:

Range("A1:A2").Select
Selection.Copy

Range("C3").Select
ActiveSheet.Paste

Резултат:

Цопи / Пасте Метход

Иако је то дозвољено у Екцел-у ВБА, много је боље користити линију кода испод која чини потпуно исто.

Range("C3:C4").Value = Range("A1:A2").Value

Јасно

Да бисте обрисали садржај Екцел опсега, можете користити метод ЦлеарЦонтентс.

Range("A1").ClearContents

или једноставно користите:

Range("A1").Value = ""

Напомена: користите Цлеар метод да бисте обрисали садржај и формат опсега. Користите методу ЦлеарФорматс да бисте обрисали само формат.

Цоунт

Помоћу функције "Цоунт" можете израчунати број ћелија, редова и ступаца опсега.

Цоунт Проперти

Напомена: граница само за илустрацију.

Код:

Dim example As Range
Set example = Range("A1:C4")

MsgBox example.Count

Резултат:

Цоунт Целлс

Код:

Dim example As Range
Set example = Range("A1:C4")

MsgBox example.Rows.Count

Резултат:

Цоунт Ровс

Напомена: на сличан начин можете рачунати број ступаца опсега.

Такође прочитајте: