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

Вход

Регистрация

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

 

= Мир MS Excel/Сумма ячеек с перезаписью итоговой - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сумма ячеек с перезаписью итоговой (Макросы/Sub)
Сумма ячеек с перезаписью итоговой
miranim Дата: Среда, 15.08.2018, 21:37 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Доброго времени суток форумчане. наставьте на путь истинный. необходимо суммировать два столбца в эксель с условием, что к итогу будет прибавляться сумма по нарастанию. А=А+В. формулами это не сделать.
К сообщению приложен файл: 8876846.xlsm (9.2 Kb)
 
Ответить
СообщениеДоброго времени суток форумчане. наставьте на путь истинный. необходимо суммировать два столбца в эксель с условием, что к итогу будет прибавляться сумма по нарастанию. А=А+В. формулами это не сделать.
Автор - miranim
Дата добавления - 15.08.2018 в 21:37
CAHO Дата: Среда, 15.08.2018, 22:06 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 4 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Sub Summmma()
Dim s As Single
For s = 4 To 12: Cells(s, 2) = Cells(s, 2) + Cells(s, 1): Next s
End Sub
[/vba]
 
Ответить
Сообщение[vba]
Код
Sub Summmma()
Dim s As Single
For s = 4 To 12: Cells(s, 2) = Cells(s, 2) + Cells(s, 1): Next s
End Sub
[/vba]
Автор - CAHO
Дата добавления - 15.08.2018 в 22:06
miranim Дата: Среда, 15.08.2018, 22:13 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
CAHO, Спасибо огромное. Шикарное решение.
 
Ответить
СообщениеCAHO, Спасибо огромное. Шикарное решение.
Автор - miranim
Дата добавления - 15.08.2018 в 22:13
_Boroda_ Дата: Четверг, 16.08.2018, 09:54 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16673
Репутация: 6479 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Вариант без цикла без обращения к каждой ячейке. Если объем не 10 строк, то это может быть довольно существенно по скорости работы
[vba]
Код
Sub tt()
    Range("A4:A12").Copy
    Range("B4").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
    Application.CutCopyMode = 0
End Sub
[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВариант без цикла без обращения к каждой ячейке. Если объем не 10 строк, то это может быть довольно существенно по скорости работы
[vba]
Код
Sub tt()
    Range("A4:A12").Copy
    Range("B4").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
    Application.CutCopyMode = 0
End Sub
[/vba]
Автор - _Boroda_
Дата добавления - 16.08.2018 в 09:54
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сумма ячеек с перезаписью итоговой (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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