определение границ диапазона

[sirius84]

здравствуйте, ув. форумчане.

я в vba новичок.

необходимо получить выделенный в Excel диапазон (как Range),
но как-то не получается.

в частности, пробовал

Set diap = Cells(rin, cin).CurrentRegion

, где rin и cin - индексы выделенных строки и столбца, но диапазон всегда в качестве первой ячейки возвращает A1.

вроде бы решил при помощи ActiveCell.Row и Selection.Row (соотв-нно,
ActiveCell.Column и Selection.Column), но работает, только если выделять диапазон снизу вверх и справа налево. Непривычно, да и некрасиво (это я про решение). Как-то "по-уродски".

Как поправить?

[motorway]

Так подойдет:
MsgBox Selection.Address ?

[Hugo121]

Вполне себе работает...

Sub tt()
rin = 3
cin = 2
Set diap = Cells(rin, cin).CurrentRegion
diap.Select
End Sub

если конечно в выбранной ячейке и рядом с ней есть данные.

[Hugo121]

Ну и в продолжение:

Sub tt()
rin = 3
cin = 2
Set diap = Cells(rin, cin).CurrentRegion
diap.Select
r = Selection.Row
rr = Selection.Rows.Count
rrr = r + rr - 1
c = Selection.Column
cc = Selection.Columns.Count
ccc = c + cc - 1
End Sub

[sirius84]

спасибо, motorway! все гениальное просто.

ps = Selection.Address
    ps = Replace(ps, "$", "") ' строка для Range

[sirius84]

Сообщение от Hugo121

Вполне себе работает...

если конечно в выбранной ячейке и рядом с ней есть данные.

Hugo121, спасибо за предложенные варианты.

[KL (XL)]

Сообщение от sirius84

спасибо, motorway! все гениальное просто.

ps = Selection.Address
    ps = Replace(ps, "$", "") ' строка для Range

А так не короче?

ps = Selection.Address(0,0)

[KL (XL)]

Сообщение от sirius84

необходимо получить выделенный в Excel диапазон (как Range)

1) А какой вообще смысл несет вышеприведенная фраза? Выделенный в Excel диапазон (Selection) сам по себе объект типа Range.

2) И как вы в дальнейшем собираетесь использовать выбранный вами код?

ps = Selection.Address
    ps = Replace(ps, "$", "") ' строка для Range

Только не говорите, что так:

Range(ps).Select

[sirius84]

спасибо за первый пример с нулями век живи, век учись

как собираюсь использовать? - копировать выделенный пользователем диапазон в word

[KL (XL)]

Сообщение от sirius84

спасибо за первый пример с нулями век живи, век учись

как собираюсь использовать? - копировать выделенный пользователем диапазон в word

Так а зачем вам адрес Selection текстовой строкой? Так и копируйте:

Selection.Copy

Вот, кстати, пример такого кода: http://peltiertech.com/Excel/XL_PPT.html#rangewd