Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Формула суммирования одинаковых ячеек всей книги - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Формула суммирования одинаковых ячеек всей книги (Формулы/Formulas)
Формула суммирования одинаковых ячеек всей книги
timo64uk Дата: Понедельник, 25.10.2021, 12:36 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Добрый день, дамы и господа :D
Прошу содействия в решении вопроса суммирования данных из ячеек L16 во всей книге, т.е. нужно просуммировать данные с листов 01, 02, 03 и 04, которые расположены в ячейках L16 на каждом из листов.
Количество листов меняется.
Нашел вот эту формулу
Код
=СУММ('01:04'!L16)

однако имя последнего листа нужно постоянно актуализировать (в данном примере это 04).
К сообщению приложен файл: 123456.xlsx(17.4 Kb)
 
Ответить
СообщениеДобрый день, дамы и господа :D
Прошу содействия в решении вопроса суммирования данных из ячеек L16 во всей книге, т.е. нужно просуммировать данные с листов 01, 02, 03 и 04, которые расположены в ячейках L16 на каждом из листов.
Количество листов меняется.
Нашел вот эту формулу
Код
=СУММ('01:04'!L16)

однако имя последнего листа нужно постоянно актуализировать (в данном примере это 04).

Автор - timo64uk
Дата добавления - 25.10.2021 в 12:36
китин Дата: Понедельник, 25.10.2021, 13:13 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 6621
Репутация: 1005 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
в стандартный модуль
[vba]
Код
Sub TTT()
    r = ThisWorkbook.Sheets.Count
   
     For I_ = 1 To r
        Ya_ = Sheets(I_).Range("L16").Value
        SsU_ = SsU_ + Ya_
     Next
   
End Sub
[/vba]


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениев стандартный модуль
[vba]
Код
Sub TTT()
    r = ThisWorkbook.Sheets.Count
   
     For I_ = 1 To r
        Ya_ = Sheets(I_).Range("L16").Value
        SsU_ = SsU_ + Ya_
     Next
   
End Sub
[/vba]

Автор - китин
Дата добавления - 25.10.2021 в 13:13
timo64uk Дата: Понедельник, 25.10.2021, 14:35 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

в стандартный

Спасибо.
Подскажите, пожалуйста, в какую ячейку он результат (сумму) вносит? Запускаю только этот код и на файле из примера - нет результата.
 
Ответить
Сообщение
в стандартный

Спасибо.
Подскажите, пожалуйста, в какую ячейку он результат (сумму) вносит? Запускаю только этот код и на файле из примера - нет результата.

Автор - timo64uk
Дата добавления - 25.10.2021 в 14:35
Pelena Дата: Понедельник, 25.10.2021, 14:47 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 18127
Репутация: 4061 ±
Замечаний: ±

Excel 2016 & Mac Excel
имя последнего листа нужно постоянно актуализировать

предлагаю такой нехитрый приём: сделайте пустой лист в конце книги, назовите его, к примеру, "крайний", а новые листы добавляйте ПЕРЕД ним, тогда формула будет актуальной и не потребует корректировки
Код
=СУММ('01:крайний'!L16)
К сообщению приложен файл: 3130392.xlsx(18.1 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщение
имя последнего листа нужно постоянно актуализировать

предлагаю такой нехитрый приём: сделайте пустой лист в конце книги, назовите его, к примеру, "крайний", а новые листы добавляйте ПЕРЕД ним, тогда формула будет актуальной и не потребует корректировки
Код
=СУММ('01:крайний'!L16)

Автор - Pelena
Дата добавления - 25.10.2021 в 14:47
Serge_007 Дата: Понедельник, 25.10.2021, 14:55 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 14711
Репутация: 2434 ±
Замечаний: ±

Excel 2010
новые листы добавляйте ПЕРЕД ним
От себя добавлю: Лист "крайний" можно поместить в конце книги (справа) и скрыть
В таком случае он не только не будет мешать, но и все вставляемые в книгу листы будут вставляться перед ним, т.е. попадать в 3D-формулу


Яндекс-деньги:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
новые листы добавляйте ПЕРЕД ним
От себя добавлю: Лист "крайний" можно поместить в конце книги (справа) и скрыть
В таком случае он не только не будет мешать, но и все вставляемые в книгу листы будут вставляться перед ним, т.е. попадать в 3D-формулу

Автор - Serge_007
Дата добавления - 25.10.2021 в 14:55
китин Дата: Понедельник, 25.10.2021, 15:22 | Сообщение № 6
Группа: Модераторы
Ранг: Экселист
Сообщений: 6621
Репутация: 1005 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
в какую ячейку он результат (сумму) вносит?

прошу пардону не тот макрос впижнул
[vba]
Код
Sub TTT()
    r = ThisWorkbook.Sheets.Count
   
     For I_ = 1 To r
        Ya_ = Sheets(I_).Range("L16").Value
        SsU_ = SsU_ + Ya_
     Next
   Sheets(1).Range("L1").Value = SsU_
End Sub
[/vba]
К сообщению приложен файл: timo64uk.xlsm(26.2 Kb)


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщение
в какую ячейку он результат (сумму) вносит?

прошу пардону не тот макрос впижнул
[vba]
Код
Sub TTT()
    r = ThisWorkbook.Sheets.Count
   
     For I_ = 1 To r
        Ya_ = Sheets(I_).Range("L16").Value
        SsU_ = SsU_ + Ya_
     Next
   Sheets(1).Range("L1").Value = SsU_
End Sub
[/vba]

Автор - китин
Дата добавления - 25.10.2021 в 15:22
timo64uk Дата: Понедельник, 25.10.2021, 15:37 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Спасибо большое всем. Интересные решения с крайним листом.
Так же заметал, что если удаляю крайние листы, то формула автоматически определяет последний лист (т.е. удаляю 03 и 04, а в формуле уже стоит 02), жаль в обратную сторону не работает).


Сообщение отредактировал timo64uk - Понедельник, 25.10.2021, 15:44
 
Ответить
СообщениеСпасибо большое всем. Интересные решения с крайним листом.
Так же заметал, что если удаляю крайние листы, то формула автоматически определяет последний лист (т.е. удаляю 03 и 04, а в формуле уже стоит 02), жаль в обратную сторону не работает).

Автор - timo64uk
Дата добавления - 25.10.2021 в 15:37
timo64uk Дата: Понедельник, 25.10.2021, 15:44 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

макрос

Не могу понять почему не суммирует данные ячейки L16 из листов 02, 03 и 04
Выводит в L1 только значение L16 из 01 листа.
А в приложенном вашем файле все прекрасно считает. Спасибо
*******
Ура, заработало. Whis на Active заменил, чтоб с внешнего файла запускать.
[vba]
Код
Sub TTT()
    R = ActiveWorkbook.Sheets.Count
   
     For I_ = 1 To R
        Ya_ = Sheets(I_).Range("L16").Value
        SsU_ = SsU_ + Ya_
     Next
   Sheets(1).Range("L1").Value = SsU_
End Sub
[/vba]


Сообщение отредактировал timo64uk - Понедельник, 25.10.2021, 16:27
 
Ответить
Сообщение
макрос

Не могу понять почему не суммирует данные ячейки L16 из листов 02, 03 и 04
Выводит в L1 только значение L16 из 01 листа.
А в приложенном вашем файле все прекрасно считает. Спасибо
*******
Ура, заработало. Whis на Active заменил, чтоб с внешнего файла запускать.
[vba]
Код
Sub TTT()
    R = ActiveWorkbook.Sheets.Count
   
     For I_ = 1 To R
        Ya_ = Sheets(I_).Range("L16").Value
        SsU_ = SsU_ + Ya_
     Next
   Sheets(1).Range("L1").Value = SsU_
End Sub
[/vba]

Автор - timo64uk
Дата добавления - 25.10.2021 в 15:44
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Формула суммирования одинаковых ячеек всей книги (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!