Сумма таблиц - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сумма таблиц (Формулы)

Сумма таблиц

Василий

Дата: Понедельник, 16.12.2013, 13:30 | Сообщение № 1

Группа: Гости

Здравствуйте. Подскажите макрос считающий сумму в столбце каждой таблицы? таблицы одна под другой интервал между ними пару строк, у таблиц строк произвольное количество тоесть кончилась таблица внизу сумма и так далее расчет суммы в столбце "H"

Ответить

vikttur

Дата: Понедельник, 16.12.2013, 13:45 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2941

Репутация: 526 ±

Замечаний: 0% ±

Код

=СУММ(H2:H100)/2

Ответить

Alfa_Shadow

Дата: Понедельник, 16.12.2013, 13:59 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 13

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

ну да, через формулу сумм, а потом ее протягиваешь на нужные столбцы. Или можно в самой формуле проссумировать 2 различных диапазона

Ответить

_Boroda_

Дата: Понедельник, 16.12.2013, 14:08 | Сообщение № 4

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Сдается мне, что ТС хочет одинаковой формулой складывать. Чтобы диапазоны вручную не перебивать. Коли так, то тоже не вопрос, но нужен конкретный пример конкретных таблиц. В натуре. И в Excel.

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

llluckyman

Дата: Понедельник, 16.12.2013, 19:57 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 24

Репутация: 0 ±

Замечаний: 0% ±

Вот ТУТ пример и нужен именно макрос не формула. С уважением.

К сообщению приложен файл: 3649808.xlsx (9.1 Kb)

Ответить

KuklP

Дата: Понедельник, 16.12.2013, 20:59 | Сообщение № 6

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

[vba]

Код

Public Sub www()
      Dim r As Range, a As Range
      On Error Resume Next
      Set r = Range("h3", Cells(Rows.Count, 8).End(xlUp))
      r.SpecialCells(xlCellTypeFormulas).ClearContents
      For Each a In r.SpecialCells(2, 1).Areas
          a(a.Count)(2).Formula = "=sum(" & a.Address & ")"
      Next
End Sub

[/vba]

К сообщению приложен файл: 3649808.xlsm (16.8 Kb)

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Понедельник, 16.12.2013, 21:02

Ответить

llluckyman

Дата: Среда, 18.12.2013, 17:28 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 24

Репутация: 0 ±

Замечаний: 0% ±

Большое спасибо !!!!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сумма таблиц (Формулы)

Страница 1 из 1
1