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