Отображение данных с множества листов

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Roman

Дата: Пятница, 05.10.2012, 15:42 | Сообщение № 1

Группа: Гости

Здравствуйте,

Помогите пожалуйста. Нужен макрос, который бы скопировал со всех листов определенные ячейки в виде =+Sheet2!A1.
В ручную долго так делать. Формула indirect не подходит по нескольким причинам:
1. Кол-во листов очень большое, названия их разное, которые ещё и меняются.
2. Мне нужно, чтобы именно отображалась связь, то есть если при формуле =+Sheet2!A1 ячейку А1 я перемещу в другое место, то на сводном листе это отобразится, а при использовании формулы indirect нет, она так и будет показывать ячейку А1.

Ответить

shkolyar

Дата: Пятница, 05.10.2012, 15:50 | Сообщение № 2

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Выкладываю пример

К сообщению приложен файл: post_364488.xlsx (9.5 Kb)

Ответить

Gustav

Дата: Пятница, 05.10.2012, 16:50 | Сообщение № 3

Группа: Админы

Ранг: Участник клуба

Сообщений: 2797

Репутация: 1161 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Делаете табличку как на листе "Glavnij list (2)" (я добавил в Ваш файл). Основу ее составляет формула для создания текста формулы (для B2):
[vba]

Code

="=+"&$A2&"!"&B$1

[/vba]
Потом выделяете на этом листе диапазон B2:D4. Дальше идете в окно отладки VB и исполняете там оператор:
[vba]

Code

Selection.Formula = Selection.Value

[/vba]
И текстовые значения превращаются в формулы.
Маршрут к окну отладки: Alt+F11 / Ctrl+G / вводите туда эту строку и жмёте Enter / снова Alt+F11 для возврата на лист