![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Форумчанин
Регистрация: 31.12.2010
Сообщений: 113
|
![]()
Подскажите, пожалуйста, как мне изменить макрос, чтобы подсчитывалась итоговая сумма всех строк с суммами, расположенными в колонке H (с учетом того, что число строк может быть всегда разным), и нужно чтобы сумма выводилась в строке, следующей за последней заполненной ячейкой с суммой, а в столбце A чтобы вставлялась фраза итог.
Range("H152").Select ActiveCell.FormulaR1C1 = "=SUM(R[-150]C:R[-1]C)" Range("A152").Select ActiveCell.FormulaR1C1 = "Итог:" Range("G160").Select ActiveWindow.SmallScroll Down:=-12 End Sub |
![]() |
![]() |
![]() |
#2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
![]() Код:
|
![]() |
![]() |
![]() |
#3 |
Форумчанин
Регистрация: 31.12.2010
Сообщений: 113
|
![]()
а как можно добавить границы для этой строки с суммой?
|
![]() |
![]() |
![]() |
#4 |
Форумчанин
Регистрация: 31.12.2010
Сообщений: 113
|
![]()
а также выделить жирным и изменить шрифт для Итог и Общей суммы?
|
![]() |
![]() |
![]() |
#5 |
Форумчанин
Регистрация: 07.03.2010
Сообщений: 796
|
![]()
Sub test()
Dim ПоследняяЯчейка As Range: Set ПоследняяЯчейка = Range("H65536").End(xlUp).Offset(1) ПоследняяЯчейка.FormulaR1C1 = "=SUM(R1C:R[-1]C)" ПоследняяЯчейка.EntireRow.Cells(1) = "Итог:" With ПоследняяЯчейка.EntireRow.Range(Cel ls(1), Cells(8)) .Font.Size = 14 .Font.Bold = True .Borders.LineStyle = xlContinuous .Borders.Weight = xlMedium End With End Sub
Логика?!.... она где то рядом... E_mail: dg_rusak@mail.ru Если спасибо мало: Яндекс . Деньги - 41001731366021 WM R269866874234
|
![]() |
![]() |
![]() |
#6 |
Форумчанин
Регистрация: 31.12.2010
Сообщений: 113
|
![]()
Спасибо! ....
|
![]() |
![]() |
![]() |
#7 |
Участник клуба
Регистрация: 16.05.2010
Сообщений: 1,249
|
![]()
Может, ну его, этот макрос?
![]() Если итоговые строки чем-то выделяются (например, слово "сумма"): Код:
|
![]() |
![]() |
![]() |
#8 |
Форумчанин
Регистрация: 31.12.2010
Сообщений: 113
|
![]()
подскажите как сделать так, чтобы эта сумма из последней ячейки вписывалась в Worksheets("Body").Cells(30, 1) и для каждого номера из Worksheets("receivables").Cells(i, 3) проставлялась своя сумма при рассылке письма. Это макрос для рассылки почты с вложением. сумма подсчитывается в этом вложении и ее нужно вставить в текст самого письма. образец прикрепляю.
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Изменение подсчета суммы | sergantikus | Microsoft Office Excel | 5 | 12.02.2011 17:21 |
Процедура подсчета суммы | heavenly | Общие вопросы по Java, Java SE, Kotlin | 2 | 17.05.2010 21:09 |
Подсчета суммы. Delphi | Damer | Помощь студентам | 2 | 31.03.2010 17:17 |
функция подсчета суммы элементов после первого отрицательного | nikzntu | Общие вопросы C/C++ | 0 | 13.01.2009 21:40 |