макрос ссылка на диапазон

[lenchik_vla]

Доброго дня, прошу помощи в решении, необходимо написать макрос с ссылкой на диапазон ячеек.
К примеру мне необходимо в ячейки A1 диапазон ячеек на основании которого макрос выполняет действия копирует область.

[rami]

Доброго дня, прошу помощи в решении, необходимо написать макрос с ссылкой на диапазон ячеек.
К примеру мне необходимо в ячейки A1 диапазон ячеек на основании которого макрос выполняет действия копирует область.

А не поясните откуда что брать и куда тащить

[lenchik_vla]

Вложил таблицу, вот только нужно чтобы выделение диапазона было по адресу из А1.

[rami]

Назначьте макрос на кнопку:

Код Выделить Развернуть

Sub Main
Dim oSheet, s$
oSheet=ThisComponent.Sheets(0)
s=oSheet.getCellRangeByName("A1").String
ThisComponent.CurrentController.Select(oSheet.getCellRangeByName(s))
End Sub

[lenchik_vla]

Благодарю.  , Возможно ли реализовать без выделения при защищенном листе, простым языком чтобы вычисления формул стали числами.

[rami]

Возможно ли реализовать без выделения при защищенном листе, простым языком чтобы вычисления формул стали числами.

Можно, если снять защиту:

Код Выделить Развернуть

Sub Main1
Dim oSheet, s$, oRange
oSheet=ThisComponent.Sheets(0)
s=oSheet.getCellRangeByName("A1").String
oRange=oSheet.getCellRangeByName(s)
oSheet.unprotect("")   'в квычках записать пароль (если нужен)
oRange.setDataArray(oRange.DataArray)
oSheet.protect("")     'в квычках записать пароль (если нужен)
End Sub

[lenchik_vla]

Большое спасибо!