Суммирование ячейки во всех листах

[Kalifaks]

Здравствуйте!
Имеется лист "результат" и неограниченное количество "расчетных" листов в книге. В каждом "расчетном" листе будет значение в ячейке A1.
Подскажите, пожалуйста, как с помощью VBA найти сумму ячеек A1 во всех "расчетных" листах и вывести ее на лист "результат" (ячейка A1).

[EducatedFool]

А зачем VBA?
Чем простейшая формула не устраивает?



Подробнее - здесь: http://www.e-xecutive.ru/blog/excel/3024.php

[Smerchin]

Ух ты, шикарное решение!!))
Форум супер!))

[Kalifaks]

EducatedFool, проблема в том, что количество листов не определено, сколько пользователь понадобится столько и сделает, может быть даже один оставит.
Макрос должен просто пробежаться по всем листам, начиная со второго, и засуммировать ячейки. Можно ли так сделать?
В VBA редко работаю, а с командами worksheet'а вообще не встречался до этого.

[Hugo121]

Вот не знаю, какой тип переменной суммы задать...

Sub tt()
Dim x, i As Long
For i = 2 To Sheets.Count
x = x + Sheets(i).[a1]
Next
Sheets(1).[a1] = x
End Sub

[kuklp]

Игорь, мож лучше составить строку по примеру EducatedFool, второй-последний лист по имени? Хоть обновляться будут. И повесить на Workbook_SheetChange. Как думаешь?

[Hugo121]

Это мысль. Хотя можно и тот код повесить.
Я повесил на активацию листа - так что чтоб первый раз, и после добавления листов посчитало - листы нужно перещёлкнуть.
А потом их можно как угодно (только первый не трогайте) тасовать.

[Kalifaks]

Спасибо всем за участие! =)
Hugo121, так и знал что все окажется так просто. Теперь хоть немножко стал разбираться в worksheet'ах.