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