Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как подсчитать сумму / 9 сообщений из 9, страница 1 из 1
16.10.2006, 17:20:40
    #34057988
svetolux
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подсчитать сумму
Как подсчитать сумму на VBA, если диапазон ячеек меняется (ячейки могут добавляться и удаляться). И при изменении значений в ячейках сумма должна изменяться. Т.е. известно что сумму надо посчитать в 1 столбце, начиная с 6 строки и пока не оканчиваются записи. Потом например добавляем запись. Сумма должна пересчитаться. Или изменяем число в одной из ячеек. Сумма должна автоматически пересчитаться.
...
Рейтинг: 0 / 0
16.10.2006, 17:35:52
    #34058058
Frost_Imp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подсчитать сумму
А чем не подходит
Код: plaintext
СУММ(А:А)
где в столбце А находятся числа? И абсолютно без разница, 5 там строк или 50. Минус: формула суммы должна находится за пределами диапазона A:А
--------------------
А что на самом деле хотел сказать "Frost_Imp" никто не знает, так как одминистрация форума попросила его быть вежливым.
...
Рейтинг: 0 / 0
16.10.2006, 17:54:55
    #34058129
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подсчитать сумму
ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9,...)
Эта ф-ция адекватно реагирует на вставку/удаление строк в вычислемом диапазоне.
...
Рейтинг: 0 / 0
16.10.2006, 20:14:29
    #34058539
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подсчитать сумму
Я извиняюсь конечно, но если речь все же о VBA, то скорее так:

Код: plaintext
1.
2.
3.
4.
Sub test()
    With ActiveSheet
        MsgBox Application.Sum(.Range(.[A6], [A65536].End(xlUp)))
    End With
End Sub


KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
16.10.2006, 20:20:08
    #34058548
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подсчитать сумму
big-dukeПРОМЕЖУТОЧНЫЕ.ИТОГИ(9,...)
Эта ф-ция адекватно реагирует на вставку/удаление строк в вычислемом диапазоне.


ПРОМЕЖУТОЧНЫЕ.ИТОГИ и СУММ одинаково адекватно реагируют на вставку/удаление строк в вычислемом диапазоне. У них только два принципиальных различия:
1) ПРОМЕЖУТОЧНЫЕ.ИТОГИ не включает ячейки, скрытые Автофильтром
2) ПРОМЕЖУТОЧНЫЕ.ИТОГИ не включает ячейки, содержащие эту же функцию

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
17.10.2006, 10:38:33
    #34059209
svetolux
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подсчитать сумму
[quot Frost_Imp]А чем не подходит
Код: plaintext
СУММ(А:А)
где в столбце А находятся числа? И абсолютно без разница, 5 там строк или 50. Минус: формула суммы должна находится за пределами диапазона A:А

В том то и дело что сумма должна подсчитываться в ячейке данного столбца после всех записей.
...
Рейтинг: 0 / 0
17.10.2006, 10:47:31
    #34059254
svetolux
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подсчитать сумму
KL (XL)Я извиняюсь конечно, но если речь все же о VBA, то скорее так:

Код: plaintext
1.
2.
3.
4.
Sub test()
    With ActiveSheet
        MsgBox Application.Sum(.Range(.[A6], [A65536].End(xlUp)))
    End With
End Sub


KL
[MVP - Microsoft Excel]

Например надо чтобы в ячейке А10 была сумма А6:А9. Потом добавляем например еще 3 значения. Надо чтобы сумму автоматически пересчиталась и была записана в ячейку А13.
...
Рейтинг: 0 / 0
17.10.2006, 15:05:28
    #34060386
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подсчитать сумму
Ну, батенька... а, извиняюсь...
Ну, маменька...
автор
Например надо чтобы в ячейке А10 была сумма А6:А9. Потом добавляем например еще 3 значения. Надо чтобы сумму автоматически пересчиталась и была записана в ячейку А13.
Вы что, затираете ячейку с формулой? (если была формула)
Делаем одно из следующего:
1) Меняем принцип - итоги выводятся "сверху", например в A3 -> =СУММ("A6:A65536").
2) Данные находятся в A6:A9. A10 - пустая. A11 -> =СУММ("A6:A10").
_Вставляем_ строку в A10. Формула будет в A12 и поменяется автоматом на =СУММ("A6:A11").
3) Пишем макрос. Типа "найти конец данных в столбце. в следующую пустую
ячейку записать формулу суммы с 6 строки по предыдущую"
Вешаем на эвент окончания ввода данных в ячейку исполнение этого макроса.
Долго и упорно страдаем с проверкой диапазонов ячеек и суммами в других столбцах и т.п.
...
Рейтинг: 0 / 0
17.10.2006, 17:54:30
    #34061282
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подсчитать сумму
AndreTMНу, батенька... а, извиняюсь...
Ну, маменька...
автор
Например надо чтобы в ячейке А10 была сумма А6:А9. Потом добавляем например еще 3 значения. Надо чтобы сумму автоматически пересчиталась и была записана в ячейку А13.
Вы что, затираете ячейку с формулой? (если была формула)
Делаем одно из следующего:
1) Меняем принцип - итоги выводятся "сверху", например в A3 -> =СУММ("A6:A65536").
2) Данные находятся в A6:A9. A10 - пустая. A11 -> =СУММ("A6:A10").
_Вставляем_ строку в A10. Формула будет в A12 и поменяется автоматом на =СУММ("A6:A11").
3) Пишем макрос. Типа "найти конец данных в столбце. в следующую пустую
ячейку записать формулу суммы с 6 строки по предыдущую"
Вешаем на эвент окончания ввода данных в ячейку исполнение этого макроса.
Долго и упорно страдаем с проверкой диапазонов ячеек и суммами в других столбцах и т.п.

Еще вариант:

Если Excel2003, то...
- выбрать существующий список
- меню Данные-Список-Создать список...
- ввести суммирующюю формулу через строку ниже последней записи

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как подсчитать сумму / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]