Този урок ще ви покаже как да използвате свойството Range.End във VBA.
Повечето неща, които правите ръчно в работна книга или работен лист на Excel, могат да бъдат автоматизирани във VBA код.
Ако имате набор от непразни клетки в Excel и натискате Ctrl+стрелка надолу, курсорът ви ще се премести в последната непразна клетка в колоната, в която се намирате. По същия начин, ако натиснете Ctl+стрелка нагоре, курсорът ви ще се премести в първата непразна клетка. Същото важи и за ред, използващ Ctrl+стрелка надясно или Ctrl+стрелка наляво за да отидете в началото или края на този ред. Всички тези комбинации от клавиши могат да бъдат използвани във вашия VBA код с помощта на Крайна функция.
Синтаксис на крайния диапазон на свойството
Свойството Range.End ви позволява да се преместите в определена клетка в текущия регион, с който работите.
израз.Край (Посока)
изразът е адресът на клетката (диапазон) на клетката, от която искате да започнете, например: Обхват („A1“)
END е свойството на контролирания обект Range.
Посоката е константата на Excel, която можете да използвате. Има 4 възможности за избор - xlDown, xlToLeft, xlToRight и xlUp.
Преминаване към последната клетка
Процедурата по -долу ще ви премести в последната клетка в текущия регион на клетките, в които се намирате.
| 1234 | Sub GoToLast ()'преминете към последната клетка, заета в текущата област на клеткитеОбхват ("A1"). Край (xlDown) .ИзберетеEnd Sub |
Преброяване на редове
Следващата процедура ви позволява да използвате xlDown константа със свойството Range End, за да преброи колко реда са в текущия ви регион.
| 12345678 | Sub GoToLastRowofRange ()Dim rw като цяло числоДиапазон ("A1"). Изберете'вземете последния ред в текущия регионrw = Обхват ("A1"). Край (xlDown) .Row'показва колко редове се използватMsgBox "Последният ред, използван в този диапазон е" & rwEnd Sub |
Докато тази по -долу ще брои колоните в диапазона, използвайки xlToRight постоянен.
| 12345678 | Sub GoToLastCellofRange ()Dim col като цяло числоДиапазон ("A1"). Изберете'вземете последната колона в текущия регионcol = Диапазон ("A1"). Край (xlToRight) .Колона'показва колко колони се използватMsgBox "Последната колона, използвана в този диапазон е" & colEnd Sub |
Създаване на масив от диапазони
Процедурата по -долу ни позволява да започнем от първата клетка в диапазон от клетки и след това да използваме свойството End (xlDown), за да намерим последната клетка в диапазона от клетки. След това можем да преосмислим нашия масив с общите редове в диапазона, като по този начин ни позволим да преминем през диапазона от клетки.
| 123456789101112131415161718 | Sub PopulateArray ()'декларирайте масиваDim strSuppliers () As String'декларирайте цяло число за броене на редоветеDim n като цяло число'бройте редоветеn = Диапазон ("B1", Обхват ("B1"). Край (xlDown)). Rows.Count'инициализирайте и попълнете масиваReDim strCustomers (n)'декларирайте цяло число за цикълDim i As Integer'попълнете масиваЗа i = 0 To nstrCustomers (i) = Обхват ("B1"). Офсет (i, 0).Следва i'показване на кутия със съобщения със стойности на масиваПрисъединяване към MsgBox (strCustomers, vbCrLf)End Sub |
Когато изпълним тази процедура, тя ще върне следното поле за съобщение.
