бутон "End"

4 отговора 0 прегледа
#1

бутон "End"

Здравейте,

Някой знае ли кода на VBA, който да изпълнява същото, което изпълнява бутон "End".

Благодаря Ви предварително!

Отговор
в отговор на pldimitroff #2

Re: бутон "End"

End Property

Returns a Range object that represents the cell at the end of the region that contains the source range. Equivalent to pressing END+UP ARROW, END+DOWN ARROW, END+LEFT ARROW, or END+RIGHT ARROW. Read-only Range object.

expression.End(Direction)
expression Required. An expression that returns one of the objects in the Applies To list.

Direction Required XlDirection. The direction in which to move.

XlDirection can be one of these XlDirection constants.

xlDown
xlToRight
xlToLeft
xlUp

Example
This example selects the cell at the top of column B in the region that contains cell B4.

Range("B4").End(xlUp).Select

This example selects the cell at the end of row 4 in the region that contains cell B4.

Range("B4").End(xlToRight).Select

This example extends the selection from cell B4 to the last cell in row four that contains data.

Worksheets("Sheet1").Activate
Range("B4", Range("B4").End(xlToRight)).Select

Geocaching в България
Отговор
в отговор на Бypaн #3

Re: бутон "End"

Здравей Буран,
Не съм добър на VBA, а и английски не зная.
Това, което си ми отговорил, нищо не разбирам. Ако може някакво обяснение на български.
Благодаря ти!

Отговор
в отговор на pldimitroff #4

Re: бутон "End"

End Property

Връща обект от вида Range, който представлява клетката в края на региона, който съдържа изходния рейндж. Еквивалентно е на натискането на END+UP ARROW, END+DOWN ARROW, END+LEFT ARROW, or END+RIGHT ARROW. Връща обект от типа Range, който е само за четене (Read-only).

Общия вид за използване е

expression.End(Direction)

където

expression е задължителен елемент от вида Range.

Direction e задължителен елемент и представялва посоката в която да се извърши движението. Може да бъде една от следните константи:

xlDown
xlToRight
xlToLeft
xlUp

Примери:
Този пример селектира клетката, която се намира най-отгоре на колона B в региона, който съдържа клетка B4.

Range("B4").End(xlUp).Select

Този пример селектира клетката, която се намира в края на ред 4 в региона, който съдържа клетка B4.

Range("B4").End(xlToRight).Select

Този пример разширява селекцията от клетка B4 до последната клетка в ред4, която съдържа данни:

Worksheets("Sheet1").Activate
Range("B4", Range("B4").End(xlToRight)).Select

Иначе много полезно може да ти бъде това:


[линк]

Geocaching в България
Отговор
в отговор на Бypaн #5

Re: бутон "End"

Много Ви благодаря,
Вие, Буран, f(x)dx и още някои, много помагате на начинаещите. В никой друг форум не са така отзивчиви тези, които занаят повече.
Искам да попитам, дали могат да помагат за VBA на MS Access, тъй като в клуба "Бази данни" изобщо не се тачи MS Access. Гледам, че f(x)dx се е пробвал там, но с лош успех. От три теми - на една е получил отговор.

Отговор