Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.08.2011, 14:47   #1
Серёга0629
Форумчанин
 
Регистрация: 21.04.2011
Сообщений: 128
По умолчанию Сумма строки при изменении кол-ва строк

Добрый день! погомогите с реализацией.
Есть файл, в который постоянно добавляются строки, мне нужно, чтоб выводидась сумма в 10-й столбец каждой строки, с С3 до ILastRow, в файле будет по понятнее. Спасибо!
Вложения
Тип файла: zip Лист Microsoft Excel.zip (9.9 Кб, 16 просмотров)
Серёга0629 вне форума Ответить с цитированием
Старый 19.08.2011, 15:11   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

в файле нисколько не понятнее
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 19.08.2011, 15:26   #3
Серёга0629
Форумчанин
 
Регистрация: 21.04.2011
Сообщений: 128
По умолчанию

Цитата:
Сообщение от IgorGO Посмотреть сообщение
в файле нисколько не понятнее
Например: J3=СУММ(C3:I3), J4=СУММ(C4:I4) и так до самой моследней строчки, но строки будут добавлятся.
Нужно автоматическое проставление суммы, на подобии того как сделана автоматическая нумерация в столбце А
Серёга0629 вне форума Ответить с цитированием
Старый 19.08.2011, 15:34   #4
Watcher_1
Форумчанин
 
Аватар для Watcher_1
 
Регистрация: 22.06.2011
Сообщений: 325
По умолчанию

Держите
Код:
For i = 3 To ActiveSheet.Cells.Range("B3").End(xlDown).Row
    ActiveSheet.Cells.Range("J" & i).FormulaLocal = "=СУММ(C" & i & ":I" & i & ")"
Next
Заказать макрос можно на сайте http://excel4you.ru/
Watcher_1 вне форума Ответить с цитированием
Старый 19.08.2011, 15:45   #5
Серёга0629
Форумчанин
 
Регистрация: 21.04.2011
Сообщений: 128
Радость

Цитата:
Сообщение от Watcher_1 Посмотреть сообщение
Держите
Код:
For i = 3 To ActiveSheet.Cells.Range("B3").End(xlDown).Row
    ActiveSheet.Cells.Range("J" & i).FormulaLocal = "=СУММ(C" & i & ":I" & i & ")"
Next
СПАСИБО БОЛЬШОЕ!!!!!
Серёга0629 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Tstringlist - максимальная длинна строки и макс.кол-во строк? paravoz1k Компоненты Delphi 4 03.02.2020 13:52
innerHTML при изменении st1512 HTML и CSS 0 07.09.2009 10:04
макрос - подсчитать для каждой строки кол-во ячеек с «+», кол-во ячеек с «-» Vadim_abs Microsoft Office Excel 36 14.07.2009 12:08
Неполные строки "едут" в MS Word 2007 при изменении масштаба. mirotvoretc Microsoft Office Word 12 05.03.2009 12:07
Объединенные строки, целостность последних строк при печати/просмотри Hammerok Microsoft Office Excel 1 01.11.2007 20:59