автомат

[crechet51]

Товарищи Знатоки, можно ли зделать так, чтоб excel сам вставлял номер ячейки в формулу? что-то типа : "=СУММ('Лист1:Лист20'!Текущая ячейка)" ??

[Казанский]

Поместите этот код в модуль листа (правый клик по ярлычку листа - Исходный текст). Предполагается, что формула в яч. А1.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a$
a = Target(1).Address(0, 0) ' адрес первой ячейки выделенной области
If a <> "A1" Then Range("A1").Formula = "=SUM('Лист1:Лист20'!" & a & ")"
End Sub

[crechet51]

Очень Вам благодарен Казанский.
А может вы сумеете мне подсказать в еще одном вопросе?
скажем, у меня есть книга из 21 листа, первый "лист сумм", остальные по-порядку - от 1 до 20, естественно на каждом листе немеряно ячеек. нужно: в каждую существующую ячейку на "лист сумм" вывести суммы последующих листов "1-20" этой ячейки. т.е: "=СУММ('Лист1:Лист20'!b3) но ячеек очень много. как это сделать проще?

[IgorGO]

я так понимаю эта формула

=СУММ('Лист1:Лист20'!b3)

написана в ячейке В3?

как это сделать проще?

сделайте так: отметьте ячейку В3, нажмите Ctrl+C, затем отметьте ячейки, в которые должна попасть эта формула и нажмите Ctrl+V.

удачи!

[crechet51]

В том то и проблема уважаемый IgorGO, простым копи/пастом нужно каждый раз переписывать =СУММ('Лист1:Лист20'!b3) скажем на =СУММ('Лист1:Лист20'!с3), что весьма замедляет процесс. Нет ли возможности как-то копи/пастить, чтоб ексель сам подхватывал номер ячейки?

[IgorGO]

попробуйте предложенный метод и посмотрите, что получилось.
для начала запишите формулу в В3 а потом скопируйте ячейку В3 в С3.
в том-то и дело, что ничего переписывать не надо. а выполнить всю Вашу работу можно 5-6 кликами мыши и клавы.

удачи!

[crechet51]

IgorGo ячеек слишком много, при копировании формула вставляется в ячейку c3 все еще со значением b3, а таких ячеек, в которые надо ее вставить слишком много. Вот и нужно, чтоб все сводилось к нажатию на ячейку+ctrlV+"галочка"(без правки самого значения b3 в формуле)

[IgorGO]

однако...
я записал формулу а А1, а потом скопировал ее в 4200 ячеек. (извините создавать 20 листов обломился поэтому собирается сумма с 2 по 4 листы)

присылайте Ваш файл сюда. я скопирую Вам формулу в любой указанный Вами диапазон. стоить это Вам будет 1 ячейка с формулой - 1 рубль.

спокойной ночи!

[crechet51]

Разобрался, Вы были правы в предыдущем сообщении)))