Формула на весь столбец vba excel

Вадим Озем Пользователь Сообщений: 12 Регистрация: 22.11.2021	Не понимаю как вставить формулу через VBA для всего столбца Пример во вложении. Вот нужно чтобы в столбец С вставлялась формула через макрос, а не руками А так же добавлялась строка итоги так же с формулой Прикрепленные файлы Файл.xlsx (10.16 КБ)

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	Для всего столбца? Зачем Вам больше миллиона формул?

Юрий М Модератор Сообщений: 60588 Регистрация: 14.09.2012 Контакты см. в профиле	Почему бы  не вычислять макросом и вставлять не формулы, а сразу значения?

МатросНаЗебре Пользователь Сообщений: 5516 Регистрация: 05.02.2014	#4 23.11.2021 12:44:59 Код Sub Вставить_формулы()     Dim r As Range     Set r = Cells(Rows.Count, 1).End(xlUp).Cells(2, 1)     Range(Cells(2, r.Column + 3), r.Cells(1, 4)).FormulaR1C1 = "=RC[-2]*RC[-1]"     Range(r.Cells(1, 2), r.Cells(1, 4)).FormulaR1C1 = "=SUM(R2C:R[-1]C)"     r.Value = "Итог" End Sub

Msi2102 Пользователь Сообщений: 3137 Регистрация: 31.03.2014

Вадим Озем Пользователь Сообщений: 12 Регистрация: 22.11.2021	Не для всего столбца, а пока в 1 столбце будет значение

Юрий М Модератор Сообщений: 60588 Регистрация: 14.09.2012 Контакты см. в профиле	#7 23.11.2021 13:48:27 Вадим Озем,  перечитайте своё сообщение Цитата Вадим Озем написал: Не для всего столбца, а пока в 1 столбце Вам говорили не про количество столбцов, а про количество ячеек в столбце.

bereteli Пользователь Сообщений: 211 Регистрация: 12.06.2019	, можно маленький вопрос. Ваше сообщение означает расчет внутри vba? или подразумевается, что после просчета в экселе вставляются данные как значения? Изменено: bereteli — 23.11.2021 13:54:36

Вадим Озем Пользователь Сообщений: 12 Регистрация: 22.11.2021	#9 23.11.2021 13:55:35 Цитата написал: Почему бы  не вычислять макросом и вставлять не формулы, а сразу значения? Ну тут не столь важно, главное чтобы значение правильное было.

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	Тогда нужно предложить название темы, отражающее Вашу задачу. Что вычисляете? Предложите название. Заменят модераторы

Юрий М Модератор Сообщений: 60588 Регистрация: 14.09.2012 Контакты см. в профиле	#11 23.11.2021 14:06:15 Цитата bereteli написал: Ваше сообщение означает расчет внутри vba? Это мне адресовалось?  Да, именно так.

Вадим Озем Пользователь Сообщений: 12 Регистрация: 22.11.2021	Нужно расчет который будет в VBA и вставлять значения в ячейки в столбце C пока есть текст в ячейках столбца А

_Igor_61 Пользователь Сообщений: 3007 Регистрация: 18.07.2016	#13 23.11.2021 14:46:02 Цитата написал: вставлять значения в ячейки в столбце C На каком именно листе из двух листов в примере — пофиг , пожалуйста объясните так, чтобы было понятно — что именно нужно сделать

Вадим Озем Пользователь Сообщений: 12 Регистрация: 22.11.2021	Формула которая в столбце C на листе Исходные данные должна считаться через VBA и вставить значение. А так же подвести итоги по столбцам D C B. желтым выделил где нужно формула в ячейках. А зеленым итоги Прикрепленные файлы Файл.xlsx (10.26 КБ)

Msi2102 Пользователь Сообщений: 3137 Регистрация: 31.03.2014	Если правильно понял, то может так? Вставьте в столбец D формулу

Вадим Озем Пользователь Сообщений: 12 Регистрация: 22.11.2021	Да вставить в столбец D формулу но через код макроса

Msi2102 Пользователь Сообщений: 3137 Регистрация: 31.03.2014	Преобразуйте таблицу в УМНУЮ в первую ячейку столбца ИТОГ запишите формулу и эта формула будет проставлена во всём столбце, без макроса, также в умной таблице есть такое понятие, как Строка итогов

Вадим Озем Пользователь Сообщений: 12 Регистрация: 22.11.2021

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012

МатросНаЗебре Пользователь Сообщений: 5516 Регистрация: 05.02.2014	#20 23.11.2021 16:55:07 И до кучи Сообщение #4

Вставка формулы со ссылками в стиле A1 и R1C1 в ячейку (диапазон) из кода VBA Excel. Свойства Range.FormulaLocal и Range.FormulaR1C1Local.

Свойство Range.FormulaLocal

FormulaLocal — это свойство объекта Range, которое возвращает или задает формулу на языке пользователя, используя ссылки в стиле A1.

В качестве примера будем использовать диапазон A1:E10, заполненный числами, которые необходимо сложить построчно и результат отобразить в столбце F:

Примеры вставки формул суммирования в ячейку F1:

Range(«F1»).FormulaLocal = «=СУММ(A1:E1)» Range(«F1»).FormulaLocal = «=СУММ(A1;B1;C1;D1;E1)»

Пример вставки формул суммирования со ссылками в стиле A1 в диапазон F1:F10:

Sub Primer1() Dim i As Byte     For i = 1 To 10         Range(«F» & i).FormulaLocal = «=СУММ(A» & i & «:E» & i & «)»     Next End Sub

В этой статье я не рассматриваю свойство Range.Formula, но если вы решите его применить для вставки формулы в ячейку, используйте англоязычные функции, а в качестве разделителей аргументов — запятые (,) вместо точек с запятой (;):

Range(«F1»).Formula = «=SUM(A1,B1,C1,D1,E1)»

После вставки формула автоматически преобразуется в локальную (на языке пользователя).

Свойство Range.FormulaR1C1Local

FormulaR1C1Local — это свойство объекта Range, которое возвращает или задает формулу на языке пользователя, используя ссылки в стиле R1C1.

Формулы со ссылками в стиле R1C1 можно вставлять в ячейки рабочей книги Excel, в которой по умолчанию установлены ссылки в стиле A1. Вставленные ссылки в стиле R1C1 будут автоматически преобразованы в ссылки в стиле A1.

Примеры вставки формул суммирования со ссылками в стиле R1C1 в ячейку F1 (для той же таблицы):

‘Абсолютные ссылки в стиле R1C1: Range(«F1»).FormulaR1C1Local = «=СУММ(R1C1:R1C5)» Range(«F1»).FormulaR1C1Local = «=СУММ(R1C1;R1C2;R1C3;R1C4;R1C5)» ‘Ссылки в стиле R1C1, абсолютные по столбцам и относительные по строкам: Range(«F1»).FormulaR1C1Local = «=СУММ(RC1:RC5)» Range(«F1»).FormulaR1C1Local = «=СУММ(RC1;RC2;RC3;RC4;RC5)» ‘Относительные ссылки в стиле R1C1: Range(«F1»).FormulaR1C1Local = «=СУММ(RC[-5]:RC[-1])» Range(«F2»).FormulaR1C1Local = «=СУММ(RC[-5];RC[-4];RC[-3];RC[-2];RC[-1])»

Пример вставки формул суммирования со ссылками в стиле R1C1 в диапазон F1:F10:

‘Ссылки в стиле R1C1, абсолютные по столбцам и относительные по строкам: Range(«F1:F10»).FormulaR1C1Local = «=СУММ(RC1:RC5)» ‘Относительные ссылки в стиле R1C1: Range(«F1:F10»).FormulaR1C1Local = «=СУММ(RC[-5]:RC[-1])»

Так как формулы с относительными ссылками и относительными по строкам ссылками в стиле R1C1 для всех ячеек столбца F одинаковы, их можно вставить сразу, без использования цикла, во весь диапазон.

---

Формула автоматически срабатывала на весь столбец

BcjPrj Дата: Четверг, 21.06.2018, 18:06 | Сообщение № 1 Группа: Пользователи Ранг: Новичок Сообщений: 17 Репутация: 0 ± Замечаний: 0% ± Excel 2016 Как сделать что бы формула, написанная в верхней ячейке столбца автоматически срабатывала на весь столбец, если есть данные формулы? Формула простейшая Разность А1 и B1. Как написать эту разность формулой массива, не протягивая каждый раз до низа стлбца Сообщение отредактировал BcjPrj — Четверг, 21.06.2018, 18:08   Ответить

Gustav Дата: Четверг, 21.06.2018, 19:59 | Сообщение № 2 Группа: Друзья Ранг: Старожил Сообщений: 2398 Репутация: 986 ± Замечаний: 0% ± начинал с Excel 4.0, видел 2.1 Примерно так, например, в ячейке C1: [vba] Код =ArrayFormula( A1:INDEX(A:A; MAX(1;ROW(A:B)*NOT(ISBLANK(A:B)))) — B1:INDEX(B:B; MAX(1;ROW(A:B)*NOT(ISBLANK(A:B)))) ) [/vba] И обычно имеет смысл «расширительный» радикал поместить в отдельную ячейку и использовать ссылку на нее. Например, загоним его куда-нибудь вправо — в ячейку Z1 и не забудем также сделать его формулой массива: [vba] Код =ArrayFormula(MAX(1;ROW(A:B)*NOT(ISBLANK(A:B)))) [/vba] Тогда первая формулка становится куда компактнее!: [vba] Код =ArrayFormula( A1:INDEX(A:A; Z1) — B1:INDEX(B:B; Z1) ) [/vba] Если же вам не требуется отслеживать последнюю занятую ячейку (строку) в колонках A и B, то формула совсем простая — тупо вниз, до физического конца листа: [vba] Код =ArrayFormula(A:A-B:B) [/vba] МОИ: Ник, Tip box: 41001663842605 Сообщение отредактировал Gustav — Четверг, 21.06.2018, 20:06   Ответить

BcjPrj Дата: Понедельник, 25.06.2018, 12:32 | Сообщение № 3 Группа: Пользователи Ранг: Новичок Сообщений: 17 Репутация: 0 ± Замечаний: 0% ± Excel 2016 Последний вариант подошел — благодарю. А первый — так и не разобрался, где что.   Ответить

Gustav Дата: Понедельник, 25.06.2018, 14:10 | Сообщение № 4 Группа: Друзья Ранг: Старожил Сообщений: 2398 Репутация: 986 ± Замечаний: 0% ± начинал с Excel 4.0, видел 2.1 А первый — так и не разобрался, где что. Ну, разберетесь еще. Когда захотите, чтобы формула следовала за заполнением, например, столбца A. Скажем, заполнены подряд ячейки A1:A10, и результат расчета отображается в ячейках C1:C10. Заполнили следующую A11, и результат в C11 — уже тут как тут! Хотя по-прежнему введена только одна-единственная формула массива в ячейку C1. МОИ: Ник, Tip box: 41001663842605   Ответить

BcjPrj Дата: Понедельник, 25.06.2018, 23:46 | Сообщение № 5 Группа: Пользователи Ранг: Новичок Сообщений: 17 Репутация: 0 ± Замечаний: 0% ± Excel 2016 Совсем не понятно как это получается… но получается. МИСТИКА!!!))) Все таки решил разобраться… =ArrayFormula(MAX(1;ROW(A:B)*NOT(ISBLANK(A:B)))) Объясните пожалуста что такое в этой формуле единица и *. И зачем искать максимальное значение (max)? Сообщение отредактировал BcjPrj — Вторник, 26.06.2018, 00:02   Ответить

Gustav Дата: Вторник, 26.06.2018, 01:22 | Сообщение № 6 Группа: Друзья Ранг: Старожил Сообщений: 2398 Репутация: 986 ± Замечаний: 0% ± начинал с Excel 4.0, видел 2.1 Я попробовал наглядно разобрать формулы по частям. Вот что из этого получилось: https://docs.google.com/spreads….sharing СпросИте, если после этого что-то еще будет непонятно. Звездочка (*) — это, естественно, умножение. Единица (1) нужна, чтобы не уйти в 0 при абсолютно пустых колонках A и B. Вычисляется ведь номер строки (МАКСИМАЛЬНЫЙ — по самой нижней заполненной ячейке в колонках A или B), а строки с номером 0 не бывает. МОИ: Ник, Tip box: 41001663842605 Сообщение отредактировал Gustav — Вторник, 26.06.2018, 01:30   Ответить

BcjPrj Дата: Вторник, 26.06.2018, 20:46 | Сообщение № 7 Группа: Пользователи Ранг: Новичок Сообщений: 17 Репутация: 0 ± Замечаний: 0% ± Excel 2016 Отдельно — разобрался. Все в таблице очень наглядно. Пытаюсь совместить 2 формулы (что бы получить формулу массива записанного в верхней ячейке столбца). Не выходит самому. Код =СУММЕСЛИ(‘Лист1′!A3:A;A3;’Лист1’!D:D) и Код =ArrayFormula(МАКС(1;СТРОКА(A3:A)*НЕ(ЕПУСТО(A3:A)))) написанную в отдельной ячейке B1. В справке googl в примерах есть такая формула: Код ARRAYFORMULA(СУММ(ЕСЛИ(A1:A10>5; A1:A10; 0))) . я ее переписал, но как-то не особо получилось… Код =ARRAYFORMULA(СУММ(ЕСЛИ(‘Лист1’!A3:A=A3; ‘Лист1’!D:D; B1))); Сообщение отредактировал BcjPrj — Вторник, 26.06.2018, 22:21   Ответить

Manyasha Дата: Вторник, 26.06.2018, 21:49 | Сообщение № 8 Группа: Модераторы Ранг: Старожил Сообщений: 2198 Репутация: 898 ± Замечаний: 0% ± Excel 2010, 2016 BcjPrj, Оформляйте формулы тегами — кнопка fx в режиме правки поста. Или можно тегом для кода оформить (кнопка #), если «формульные» косячат. ЯД: 410013299366744 WM: R193491431804   Ответить

BcjPrj Дата: Вторник, 26.06.2018, 23:07 | Сообщение № 9 Группа: Пользователи Ранг: Новичок Сообщений: 17 Репутация: 0 ± Замечаний: 0% ± Excel 2016 Код =ArrayFormula( A1:INDEX(A:A; MAX(1;ROW(A:B)*NOT(ISBLANK(A:B)))) — B1:INDEX(B:B; MAX(1;ROW(A:B)*NOT(ISBLANK(A:B)))) ) Как преобразовать эту формулу, что бы ячейка оставалась пустой, если в строке нет значения А или В? Сейчас формула работает так, что если в одной из ячеек (А или B ) значения нет, это воспринимается формулой как ноль. А надо что бы она не могла сработать в этой строке совсем… Это мой вариант Код =ЕСЛИ(И(A1=»*»;B1=»*»);ArrayFormula(A1 :ИНДЕКС(A:A; Z1) -B1 :ИНДЕКС(B:B; Z1) );0) К сожалению — снова ниче не работает Сообщение отредактировал BcjPrj — Вторник, 26.06.2018, 23:48   Ответить

Gustav Дата: Среда, 27.06.2018, 12:20 | Сообщение № 10 Группа: Друзья Ранг: Старожил Сообщений: 2398 Репутация: 986 ± Замечаний: 0% ± начинал с Excel 4.0, видел 2.1 BcjPrj, катастрофически нужен пример от Вас! Создайте таблицу, дайте общий доступ (хотя бы на просмотр), напишите свои простые формулы для каждой строки, чтобы было понятно, ЧТО именно Вам нужно получить. А дальше посмотрим, возможно ли это в принципе сделать через формулу массива. Теперь теоретическая часть. Вероятно, немного расстрою вас, но дело в том, что НЕ ВСЕ абсолютно обычные формулы могут быть переделаны в формулы массива. Далеко не все! Не все функции умеют возвращать массивы. Типичный пример — функция SUM, которая всегда возвращает единственное значение общей суммы всех аргументов. Покажу на примере. Допустим у вас есть формула: И вы хотели бы ее сделать формулой массива примерно так, рассчитывая после ввода получить 10 построчных значений сумм: Код =ArrayFormula(SUM(A1:A10;B1:B10;C1:C10)) Но — увы! — получаете только одно-единственное значение общей суммы всех десяти строк (30 ячеек). Что с массивом, что без массива — результат будет точно такой же, как если бы вы ввели сразу формулу на весь диапазон: Что же делать? Искать обходные пути, придумывать альтернативные решения, советоваться с Сообществом (благо им за годы накоплен большой опыт поиска альтернатив). Так в случае с SUM, например, спасает использование обычного знака «+», и следующая формула уже оправдывает ожидания, возвращая 10 построчных сумм: Код =ArrayFormula(A1:A10+B1:B10+C1:C10) МОИ: Ник, Tip box: 41001663842605   Ответить

Gustav Дата: Среда, 27.06.2018, 19:17 | Сообщение № 11 Группа: Друзья Ранг: Старожил Сообщений: 2398 Репутация: 986 ± Замечаний: 0% ± начинал с Excel 4.0, видел 2.1 Как преобразовать эту формулу, что бы ячейка оставалась пустой, если в строке нет значения А или В? Эту задачу решает такая формула: [vba] Код =ArrayFormula( IF( (ISBLANK(A1:INDEX(A:A;Z1))+ISBLANK(B1:INDEX(B:B;Z1)))>0; «»; A1:INDEX(A:A;Z1)-B1:INDEX(B:B;Z1))) [/vba] Или даже такая — без явной проверки на 0, поскольку в выражении условия для IF любое число, отличное от 0, считается TRUE, и, соответственно, 0 считается FALSE: [vba] Код =ArrayFormula( IF( ISBLANK(A1:INDEX(A:A;Z1))+ISBLANK(B1:INDEX(B:B;Z1)); «»; A1:INDEX(A:A;Z1)-B1:INDEX(B:B;Z1))) [/vba] А вот явное указание функции OR (вместо «хакерского» использования «+», как в формулах выше) задачу не решает, поскольку функция OR возвращает одно-единственное значение, вычисленное по списку своих аргументов (т.е. как и рассмотренная выше функция SUM): [vba] Код =ArrayFormula( IF( OR(ISBLANK(A1:INDEX(A:A;Z1));ISBLANK(B1:INDEX(B:B;Z1))); «»; A1:INDEX(A:A;Z1)-B1:INDEX(B:B;Z1))) [/vba] МОИ: Ник, Tip box: 41001663842605   Ответить

BcjPrj Дата: Среда, 27.06.2018, 19:25 | Сообщение № 12 Группа: Пользователи Ранг: Новичок Сообщений: 17 Репутация: 0 ± Замечаний: 0% ± Excel 2016 https://docs.google.com/spreads….sharing Посмотрите пожалуйста. На листе МОДЕЛЬ надо из обычных формул сделать формулы массива (ячейки залиты яркими цветами). На листе ПРОИЗВОДСТВО изучаю этот вопрос: Как преобразовать эту формулу, что бы ячейка оставалась пустой, если в строке нет значения А или В? Сейчас формула работает так, что если в одной из ячеек (А или B ) значения нет, это воспринимается формулой как ноль. А надо что бы она не могла сработать в этой строке совсем…   Ответить

Gustav Дата: Четверг, 28.06.2018, 11:56 | Сообщение № 13 Группа: Друзья Ранг: Старожил Сообщений: 2398 Репутация: 986 ± Замечаний: 0% ± начинал с Excel 4.0, видел 2.1 На листе МОДЕЛЬ надо из обычных формул сделать формулы массива Ну, начнём разбираться… Функция SUMIF (т.е. «одинарная» СУММЕСЛИ) нормально превращается в формулу массива (в отличии от «множественной» версии SUMIFS/СУММЕСЛИМН, которую не удается превратить в формулу массива — лично мне, во всяком случае, не удалось). В качестве примера возьмем исходную формулу в ячейке B3: [vba] Код =SUMIF(‘Производство’!A:A;A3;’Производство’!D:D) [/vba] и превратим ее в формулу массива: [vba] Код =ArrayFormula(SUMIF(‘Производство’!A:A;»=»&A3:INDEX(A:A;7);’Производство’!D:D)) [/vba] Я специально добавил знак равенства в условие («=»&A3…) — для большей наглядности и для напоминания о том, что на его месте может быть любой условный оператор, например, неравенство: [vba] Код =ArrayFormula(SUMIF(‘Производство’!A:A;»<>»&A3:A7;’Производство’!D:D)) [/vba] Аналогичным образом можно сделать массивные SUMIF и в ячейке BA3 (сами-сами!) Встречающиеся еще на листе «Модель» множественные функции COUNTIFS и SUMIFS подобным образом «омассивить» не удаётся, но возможны альтернативные массивные решения, о которых чуть позже. МОИ: Ник, Tip box: 41001663842605   Ответить

BcjPrj Дата: Четверг, 28.06.2018, 13:39 | Сообщение № 14 Группа: Пользователи Ранг: Новичок Сообщений: 17 Репутация: 0 ± Замечаний: 0% ± Excel 2016 Если СУММЕСЛИМН формулой массива сделать нет возможности — то и остальные делать нет необходимости — все равно строку вручную протягивать каждый раз. В любом случае благодарю и жду альтернативный вариант.   Ответить

Gustav Дата: Четверг, 28.06.2018, 14:43 | Сообщение № 15 Группа: Друзья Ранг: Старожил Сообщений: 2398 Репутация: 986 ± Замечаний: 0% ± начинал с Excel 4.0, видел 2.1 Продолжаем. И сейчас будет высший пилотаж. Не мой. Я лишь где-то это подсмотрел (в т.ч. и на нашем Форуме есть виртуозы) и иногда, если получается, применяю по шпаргалке (типа «читаю и перевожу со словарем»). В данном случае, вроде, получается. Итак, встречаем функцию MMULT (МУМНОЖ). Следующая формула (разумеется, массивная): [vba] Код =ArrayFormula(MMULT( TRANSPOSE(—(‘Производство’!$A:$A=TRANSPOSE($A3:$A7))); N(‘Производство’!$D:$D) )) [/vba]делает то же самое, что и уже рассмотренная формула с SUMIF для ячейки B3: [vba] Код =ArrayFormula(SUMIF(‘Производство’!$A:$A; $A3:$A7; ‘Производство’!$D:$D)) [/vba] А вот следующая, чуть более сложная за счет дополнительного условия (…=X2), формула для ячейки X3: [vba] Код =ArrayFormula(MMULT( TRANSPOSE((‘Производство’!$C:$C=X2)*(‘Производство’!$A:$A=TRANSPOSE($A3:$A7))); N(‘Производство’!$D:$D) )-C3:C7) [/vba]делает то же самое, что делала БЫ (если бы могла быть массивной) следующая формула с множественным SUMIFS: [vba] Код =SUMIFS(‘Производство’!$D:$D; ‘Производство’!$A:$A; $A3:$A7; ‘Производство’!$C:$C; X2) — C3:C7 [/vba] Разумеется, формула с MMULT может быть протянута из ячейки X3 в соседние правые ячейки в той же 3-й строке. Вот как-то так. Больше, чем рассказал, ещё вряд ли смогу. Если не побоитесь применять такие формулы-монстры, то рекомендую плотно с ними повозиться, поэкспериментировать, почитать хелп, погуглить. Итого это мы рассмотрели альтернативную и, самое главное, МАССИВНУЮ замену для SUMIFS. Чуть позже рассмотрим еще и для COUNTIFS. Подход будет практически тот же — с функцией MMULT, но с небольшим различием. МОИ: Ник, Tip box: 41001663842605   Ответить

Gustav Дата: Четверг, 28.06.2018, 18:57 | Сообщение № 16 Группа: Друзья Ранг: Старожил Сообщений: 2398 Репутация: 986 ± Замечаний: 0% ± начинал с Excel 4.0, видел 2.1 По ходу дум родилась очень неплохая, как мне кажется, альтернатива элементарным построчным суммам, которые в столбце W вот такие, начиная с ячейки W3 и ниже: [vba] Код =SUM(L3:V3) =SUM(L4:V4) =SUM(L5:V5) =SUM(L6:V6) =SUM(L7:V7) [/vba] Как было показано выше, никакие попытки массивных манипуляций с диапазоном не приводят к «построчности» и следующая формула возвращает только одно значение общей суммы: [vba] Код =ArrayFormula(SUM(L3:V7)) [/vba] Но есть функция SUMIF («одинарная»), с помощью которой удалось получить следующее массивное решение для ячейки W3: [vba] Код =ArrayFormula(SUMIF( IF(ROW(L3:V7);IF(COLUMN(L3:V7);ROW(L3:V7))); ROW(L3:V7); L3:V7)) [/vba]И хоть диапазон L3:V7 теперь используется аж пять раз вместо одного — оно того стОит! Очевидно, что для полной саморасширяемости формулы вниз нужно будет сделать саморасширяющиеся ссылки через INDEX: [vba] Код =ArrayFormula(SUMIF( IF(ROW(L3:INDEX(V:V;7));IF(COLUMN(L3:INDEX(V:V;7));ROW(L3:INDEX(V:V;7)))); ROW(L3:INDEX(V:V;7)); L3:INDEX(V:V;7))) [/vba] И совсем уж окончательно еще потом заменить константу 7 на специально предусмотренную ячейку хранения номера максимальной строки (например, Z1, как в обсуждении выше). Это всё было для ячейки W3. В ячейке AQ3 — аналогичная сумма, можете попрактиковаться самостоятельно. И за мной немного позже еще заключительный рассказ про COUNTIFS. МОИ: Ник, Tip box: 41001663842605   Ответить

BcjPrj Дата: Четверг, 28.06.2018, 20:29 | Сообщение № 17 Группа: Пользователи Ранг: Новичок Сообщений: 17 Репутация: 0 ± Замечаний: 0% ± Excel 2016 надеюсь только, что скопировав эти формулы и подставив свои значения — обрету счастье.   Ответить

BcjPrj Дата: Пятница, 29.06.2018, 00:09 | Сообщение № 18 Группа: Пользователи Ранг: Новичок Сообщений: 17 Репутация: 0 ± Замечаний: 0% ± Excel 2016 Код =ArrayFormula( IF( ISBLANK(A1:INDEX(A:A;Z1))+ISBLANK(B1:INDEX(B:B;Z1)); «»; A1:INDEX(A:A;Z1)-B1:INDEX(B:B;Z1))) А что такое в этой формуле Z1? Я думал это ячейка в которой мы пишем формулу-ссылку… (на мой пример не ссылаться — я, видимо, был не в адеквате) Мы эту формулу меняем? Код =ArrayFormula(A1:ИНДЕКС(A:A; МАКС(1;СТРОКА(A:B)*НЕ(ЕПУСТО(A:B))))-B1:ИНДЕКС(B:B; МАКС(1;СТРОКА(A:B)*НЕ(ЕПУСТО(A:B))))) или где?   Ответить

Gustav Дата: Пятница, 29.06.2018, 06:35 | Сообщение № 19 Группа: Друзья Ранг: Старожил Сообщений: 2398 Репутация: 986 ± Замечаний: 0% ± начинал с Excel 4.0, видел 2.1 А что такое в этой формуле Z1? Я думал это ячейка в которой мы пишем формулу-ссылку… «Наша песня хороша, начинай сначала!» См. еще раз сообщение №2. Это наугад взятая ячейка, в которой мы вычисляем номер самой последней заполненной строки листа, определенной по выбранным колонкам (A:B). Т.е. максимальный номер строки. Делаем мы это для того, чтобы не таскать из формулы в формулу довольно внушительный радикал вида: [vba] Код MAX(1;ROW(A:B)*NOT(ISBLANK(A:B))) [/vba] В нём довольно много буковок и если еще вдобавок он используется в формуле не один раз, то формула становится трудной для понимания. Поэтому мы его вычисление выносим в отдельную ячейку, например, Z1 и далее в формулах используем ссылку на эту ячейку. Поскольку формулы массива обычно оформляются в первой строке листа (или диапазона), то имеет смысл «где-то», пусть правее основных формул, в этой же строке вычислить и этот радикал. Моё «правее» выше (в сообщении №2) выразилось в назначение на эту роль ячейки Z1. Вы можете выбрать любую другую, хоть на другом листе. В Excel бы на роль такой ячейки хорошо подошла бы именованная формула, созданная через механизм имен (по Ctrl+F3). В Таблицах Google пока такого механизма нет, поэтому и приходится задействовать ячейку на листе. Эту-эту. МОИ: Ник, Tip box: 41001663842605 Сообщение отредактировал Gustav — Пятница, 29.06.2018, 06:46   Ответить

BcjPrj Дата: Пятница, 29.06.2018, 13:03 | Сообщение № 20 Группа: Пользователи Ранг: Новичок Сообщений: 17 Репутация: 0 ± Замечаний: 0% ± Excel 2016 Я подумал что именно ячейка Z1 должна определять по какую строку будет срабатывать формула, следовательно и все изменения в ней… Нет? нельзя только ее подкорректировать так? Я просто как представил что все эти монстры придется править… Сообщение отредактировал BcjPrj — Пятница, 29.06.2018, 14:37   Ответить

This tutorial will show you how to use the Excel Sum function in VBA

The sum function is one of the most widely used Excel functions, and probably the first one that Excel users learn to use. VBA does not actually have an equivalent – a user has to use the built-in Excel function in VBA using the WorkSheetFunction object.

Sum WorksheetFunction

The WorksheetFunction object can be used to call most of the Excel functions that are available within the Insert Function dialog box in Excel. The SUM function is one of them.

Sub TestFunction
  Range("D33") = Application.WorksheetFunction.Sum("D1:D32")
End Sub

You are able to have up to 30 arguments in the SUM function. Each of the arguments can also refer to a range of cells.

This example below will add up cells D1 to D9

Sub TestSum()   
   Range("D10") = Application.WorksheetFunction.SUM("D1:D9")
End Sub

The example below will add up a range in column D and a range in column F. If you do not type the Application object, it will be assumed.

Sub TestSum()
   Range("D25") = WorksheetFunction.SUM (Range("D1:D24"), Range("F1:F24"))
End Sub

Notice for a single range of cells you do not have to specify the word ‘Range’ in the formula in front of the cells,  it is assumed by the code. However, if you are using multiple arguments, you do need to do so.

Assigning a Sum result to a Variable

You may want to use the result of your formula elsewhere in code rather than writing it directly back to and Excel Range. If this is the case, you can assign the result to a variable to use later in your code.

Sub AssignSumVariable()
   Dim result as Double
'Assign the variable
   result = WorksheetFunction.SUM(Range("G2:G7"), Range("H2:H7"))
'Show the result
  MsgBox "The total of the ranges is " &  result
End Sub

Sum a Range Object

You can assign a group of cells to the Range object, and then use that Range object with the WorksheetFunction object.

Sub TestSumRange()
   Dim rng As Range
'assign the range of cells
   Set rng = Range("D2:E10")
'use the range in the  formula
   Range("E11") = WorksheetFunction.SUM(rng)
'release the range object
  Set rng = Nothing
End Sub

Sum Multiple Range Objects

Similarly, you can sum multiple Range Objects.

Sub TestSumMultipleRanges() 
   Dim rngA As Range 
   Dim rngB as Range
'assign the range of cells 
   Set rngA = Range("D2:D10") 
   Set rngB = Range("E2:E10")   
'use the range in the formula 
Range("E11") = WorksheetFunction.SUM(rngA, rngB)
 'release the range object
  Set rngA = Nothing 
  Set rngB = Nothing
End Sub

Sum Entire Column or Row

You can also use the Sum function to add up an entire column or an entire row

This procedure below will add up all the numeric cells in column D.

Sub TestSum()    
   Range("F1") = WorksheetFunction.SUM(Range("D:D")
End Sub

While this procedure below will add up all the numeric cells in Row 9.

Sub TestSum()     
   Range("F2") = WorksheetFunction.SUM(Range("9:9") 
End Sub

VBA Coding Made Easy

Stop searching for VBA code online. Learn more about AutoMacro — A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!

Learn More

Sum an Array

You can also use the WorksheetFunction.Sum to add up values in an array.

Sub TestArray()
   Dim intA(1 To 5) As Integer
   Dim SumArray As Integer
'populate the array
   intA(1) = 15
   intA(2) = 20
   intA(3) = 25
   intA(4) = 30
   intA(5) = 40
'add up the array and show the result
   MsgBox WorksheetFunction.SUM(intA)
End Sub

Using the SumIf Function

Another worksheet function that can be used is the SUMIF function.

Sub TestSumIf()
Range("D11") = WorksheetFunction.SUMIF(Range("C2:C10"), 150, Range("D2:D10"))
End Sub

The procedure above will only add up the cells in Range(D2:D10) if the corresponding cell in column C = 150.

Sum Formula

When you use the WorksheetFunction.SUM to add a sum to a range in your worksheet, a static sum is returned, not a flexible formula. This means that when your figures in Excel change, the value that has been returned by the WorksheetFunction will not change.

In the example above, the procedure TestSum has added up Range(D2:D10) and the result has been put in D11. As you can see in the formula bar, this result is a figure and not a formula.

If any of the values change therefore in the Range(D2:D10), the result in D11 will NOT change.

Instead of using the WorksheetFunction.SUM, you can use VBA to apply a Sum Function to a cell using the Formula or FormulaR1C1 methods.

VBA Programming | Code Generator does work for you!

Formula Method

The formula method allows you to point specifically to a range of cells eg: D2:D10 as shown below.

Sub TestSumFormula
  Range("D11").Formula = "=SUM(D2:D10)"
End Sub

FormulaR1C1 Method

The FromulaR1C1 method is more flexible in that it does not restrict you to a set range of cells. The example below will give us the same answer as the one above.

Sub TestSumFormula()
   Range("D11").FormulaR1C1 = "=SUM(R[-9]C:R[-1]C)"
End Sub

However, to make the formula more flexible, we could amend the code to look like this:

Sub TestSumFormula() 
   ActiveCell.FormulaR1C1 = "=SUM(R[-9]C:R[-1]C)" 
End Sub

Wherever you are in your worksheet, the formula will then add up the 8 cells directly above it and place the answer into your ActiveCell. The Range inside the SUM function has to be referred to using the Row (R) and Column (C) syntax.

Both these methods enable you to use Dynamic Excel formulas within VBA.

There will now be a formula in D11 instead of a value.

In this lesson you can learn how to add a formula to a cell using vba. There are several ways to insert formulas to cells automatically. We can use properties like Formula, Value and FormulaR1C1 of the Range object. This post explains five different ways to add formulas to cells.

We use formulas to calculate various things in Excel. Sometimes you may need to enter the same formula to hundreds or thousands of rows or columns only changing the row numbers or columns. For an example let’s consider this sample Excel sheet.

In this Excel sheet I have added a very simple formula to the D2 cell.

=B2+C2

So what if we want to add similar formulas for all the rows in column D. So the D3 cell will have the formula as =B3+C3 and D4 will have the formula as =B4+D4 and so on. Luckily we don’t need to type the formulas manually in all rows. There is a much easier way to do this. First select the cell containing the formula. Then take the cursor to the bottom right corner of the cell. Mouse pointer will change to a + sign. Then left click and drag the mouse until the end of the rows.

However if you want to add the same formula again and again for lots of Excel sheets then you can use a VBA macro to speed up the process. First let’s look at how to add a formula to one cell using vba.

How to add formula to cell using VBA

Lets see how we can enter above simple formula(=B2+C2) to cell D2 using VBA

In this method we are going to use the Formula property of the Range object.

We can also use the Value property of the Range object to add a formula to a cell.

Next method is to use the FormulaR1C1 property of the Range object. There are few different ways to use FormulaR1C1 property. We can use absolute reference, relative reference or use both types of references inside the same formula.

In the absolute reference method cells are referred to using numbers. Excel sheets have numbers for each row. So you should think similarly for columns. So column A is number 1. Column B is number 2 etc. Then when writing the formula use R before the row number and C before the column number. So the cell A1 is referred to by R1C1. A2 is referred to by R2C1. B3 is referred to by R3C2 etc.

This is how you can use the absolute reference.

If you use the absolute reference, the formula will be added like this.

If you use the manual drag method explained above to fill down other rows, then the same formula will be copied to all the rows.

In Majority cases this is not how you want to fill down the formula. However this won’t happen in the relative method. In the relative method, cells are given numbers relative to the cell where the formula is entered. You should use negative numbers when referring to the cells in upward direction or left. Also the numbers should be placed within the square brackets. And you can omit [0] when referring to cells on the same row or column. So you can use RC[-2] instead of R[0]C[-2]. The macro recorder also generates relative reference type code, if you enter a formula to a cell while enabling the macro recorder.

Below example shows how to put formula =B2+C2 in D2 cell using relative reference method.

Now use the drag method to fill down all the rows.

You can see that the formulas are changed according to the row numbers.

Also you can use both relative and absolute references in the same formula. Here is a typical example where you need a formula with both reference types.

We can add the formula to calculate Total Amount like this.

In this formula we have a absolute reference after the * symbol. So when we fill down the formula using the drag method that part will remain the same for all the rows. Hence we will get correct results for all the rows.

Add formula to cell and fill down using VBA

So now you’ve learnt various methods to add a formula to a cell. Next let’s look at how to fill down the other rows with the added formula using VBA.

Assume we have to calculate cell D2 value using =B2+C2 formula and fill down up to 1000 rows. First let’s see how we can modify the first method to do this. Let’s name this subroutine as “AddFormula_Method1_1000Rows”

Then we need an additional variable for the For Next statement

Dim WS As Worksheet
Dim i As Integer

Next, assign the worksheet to WS variable

Set WS = Worksheets(«Sheet1»)

Now we can add the For Next statement like this.

For i = 2 To 1000
     WS.Range(«D» & i).Formula = «=B» & i & «+C» & i
Next i

Here I have used «D» & i instead of D2 and «=B» & i & «+C» & i instead of «=B2+C2». So the formula keeps changing like =B3+C3, =B4+C4, =B5+C5 etc. when iterated through the For Next loop.

Below is the full code of the subroutine.

So that’s how you can use VBA to add formulas to cells with variables.

Next example shows how to modify the absolute reference type of FormulaR1C1 method to add formulas upto 1000 rows.

You don’t need to do any change to the formula section when modifying the relative reference type of the FormulaR1C1 method.

Use similar techniques to modify other two types of subroutines to add formulas for multiple rows. Now you know how to add formulas to cells with a variable. Next let’s look at how to add formulas with some inbuilt functions using VBA.

How to add sum formula to a cell using VBA

Suppose we want the total of column D in the D16 cell. So this is the formula we need to create.

=SUM(D2:D15)

Now let’s see how to add this using VBA. Let’s name this subroutine as SumFormula.

First let’s declare a few variables.

Dim WS As Worksheet
Dim StartingRow As Long
Dim EndingRow As Long

Assign the worksheet to the variable.

Set WS = Worksheets(«Sheet3»)

Assign the starting row and the ending row to relevant variables.

StartingRow = 2
EndingRow = 1

Then the final step is to create the formula with the above variables.

WS.Range(«D16»).Formula = «=SUM(D» & StartingRow & «:D» & EndingRow & «)»

Below is the full code to add the Sum formula using VBA.

How to add If Formula to a cell using VBA

If function is a very popular inbuilt worksheet function available in Microsoft Excel. This function has 3 arguments. Two of them are optional.

Now let’s see how to add a If formula to a cell using VBA. Here is a typical example where we need a simple If function.

This is the results of students on an examination. Here we have names of students in column A and their marks in column B. Students should get “Pass” if he/she has marks equal or higher than 40. If marks are less than 40 then Excel should show the “Fail” in column C. We can simply obtain this result by adding an If function to column C. Below is the function we need in the C2 cell.

=IF(B2>=40,»Pass»,»Fail»)

Now let’s look at how to add this If Formula to a C2 cell using VBA. Once you know how to add it then you can use the For Next statement to fill the rest of the rows like we did above. We discussed a few different ways to add formulas to a range object using VBA. For this particular example I’m going to use the Formula property of the Range object.

So now let’s see how we can develop this macro. Let’s name this subroutine as “AddIfFormula”

However we can’t simply add this If formula using the Formula property like we did before. Because this If formula has quotes inside it. So if we try to add the formula to the cell with quotes, then we get a syntax error.

Add formula to cell with quotes

There are two ways to add the formula to a cell with quotes.

Add vlookup formula to cell using VBA

Finally I will show you how to add a vlookup formula to a cell using VBA. So I created a very simple example where we can use a Vlookup function. Assume we have this section in the Sheet5 of the same workbook.

So here when we change the name of the student in the C2 cell, his/her pass or fail status should automatically be shown in the C3 cell. If the original data(data we used in the above “If formula” example) is listed in the Sheet4 then we can write a Vlookup formula for the C3 cell like this.

=VLOOKUP(Sheet5!C2,Sheet4!A2:C200,3,FALSE)

We can use the Formula property of the Range object to add this Vlookup formula to the C3 using VBA.

In Excel, you can use VBA to calculate the sum of values from a range of cells or multiple ranges. And, in this tutorial, we are going to learn the different ways that we can use this.

Sum in VBA using WorksheetFunction

In VBA, there are multiple functions that you can use, but there’s no specific function for this purpose. That does not mean we can’t do a sum. In VBA, there’s a property called WorksheetFunction that can help you to call functions into a VBA code.

Let sum values from the range A1:A10.

1. First, enter the worksheet function property and then select the SUM function from the list.
   
2. Next, you need to enter starting parenthesis as you do while entering a function in the worksheet.
   
3. After that, we need to use the range object to refer to the range for which we want to calculate the sum.
   
4. In the end, type closing parenthesis and assign the function’s returning value to cell B1.
   

Range("B1") = Application.WorksheetFunction.Sum(Range("A1:A10"))

Now when you run this code, it will calculate the sum for the values that you have in the range A1:A10 and enter the value in cell B1.

Sum Values from an Entire Column or a Row

In that just need to specify a row or column instead of the range that we have used in the earlier example.

'for the entire column A
Range("B1") = Application.WorksheetFunction.Sum(Range("A:A"))

'for entire row 1
Range("B1") = Application.WorksheetFunction.Sum(Range("1:1"))

Use VBA to Sum Values from the Selection

Now let’s say you want to sum value from the selected cells only in that you can use a code just like the following.

Sub vba_sum_selection()

Dim sRange As Range
Dim iSum As Long

On Error GoTo errorHandler

Set sRange = Selection

iSum = WorksheetFunction.Sum(Range(sRange.Address))
MsgBox iSum

errorHandler:
MsgBox "make sure to select a valid range of cells"

End Sub

In the above code, we have used the selection and then specified it to the variable “sRange” and then use that range variable’s address to get the sum.

The following code takes all the cells and sum values from them and enters the result in the selected cell.

Sub vba_auto_sum()

Dim iFirst As String
Dim iLast As String
Dim iRange As Range

On Error GoTo errorHandler

iFirst = Selection.End(xlUp).End(xlUp).Address
iLast = Selection.End(xlUp).Address

Set iRange = Range(iFirst & ":" & iLast)
ActiveCell = WorksheetFunction.Sum(iRange)

Exit Sub

errorHandler:
MsgBox "make sure to select a valid range of cells"

End Sub

Sum a Dynamic Range using VBA

And in the same way, you can use a dynamic range while using VBA to sum values.

Sub vba_dynamic_range_sum()

Dim iFirst As String
Dim iLast As String
Dim iRange As Range

On Error GoTo errorHandler

iFirst = Selection.Offset(1, 1).Address
iLast = Selection.Offset(5, 5).Address

Set iRange = Range(iFirst & ":" & iLast)
ActiveCell = WorksheetFunction.Sum(iRange)

Exit Sub

errorHandler:
MsgBox "make sure to select a valid range of cells"

End Sub

Sum a Dynamic Column or a Row

In the same way, if you want to use a dynamic column you can use the following code where it will take the column of the active cell and sum for all the values that you have in it.

Sub vba_dynamic_column()

Dim iCol As Long

On Error GoTo errorHandler

iCol = ActiveCell.Column
MsgBox WorksheetFunction.Sum(Columns(iCol))

Exit Sub

errorHandler:
MsgBox "make sure to select a valid range of cells"

End Sub

And for a row.

Sub vba_dynamic_row()

Dim iRow As Long

On Error GoTo errorHandler

iRow = ActiveCell.Row

MsgBox WorksheetFunction.Sum(Rows(iCol))

Exit Sub

errorHandler:
MsgBox "make sure to select a valid range of cells"

End Sub

Using SUMIF with VBA

Just like sum you can use the SUMIF function to sum values with criteria just like the following example.

Sub vba_sumif()

Dim cRange As Range
Dim sRange As Range

Set cRange = Range("A2:A13")
Set sRange = Range("B2:B13")

Range("C2") = _
WorksheetFunction.SumIf(cRange, "Product B", sRange)

End Sub