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

Автор lenchik_vla, 16 октября 2017, 12:08

0 Пользователи и 1 гость просматривают эту тему.

lenchik_vla

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

rami

Цитата: lenchik_vla от 16 октября 2017, 12:08
Доброго дня, прошу помощи в решении, необходимо написать макрос с ссылкой на диапазон ячеек.
К примеру мне необходимо в ячейки 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

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

rami

Цитата: lenchik_vla от 16 октября 2017, 12:02Возможно ли реализовать без выделения при защищенном листе, простым языком чтобы вычисления формул стали числами.
Можно, если снять защиту:
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