Excel макрос вставки формул

Итог: ознакомьтесь с 3 советами по написанию и созданию формул в макросах VBA с помощью этой статьи и видео.

Уровень мастерства: Средний

Автоматизировать написание формул

Написание формул может быть одной из самых трудоемких частей
вашей еженедельной или ежемесячной задачи Excel. Если вы работаете над
автоматизацией этого процесса с помощью макроса, вы можете попросить VBA
написать формулу и ввести ее в ячейки.

Поначалу написание формул в VBA может быть немного сложнее,
поэтому вот три совета, которые помогут сэкономить время и упростить процесс.

Совет № 1: Свойство Formula

Свойство Formula является членом объекта Range в VBA. Мы можем использовать его для установки / создания формулы для отдельной ячейки или диапазона ячеек.

Есть несколько требований к значению формулы, которые мы устанавливаем с помощью свойства Formula:

1. Формула представляет собой строку текста, заключенную в кавычки. Значение формулы должно начинаться и заканчиваться кавычками.
2. Строка формулы должна начинаться со знака равенства = после первой кавычки.

Вот простой пример формулы в макросе.

Sub Formula_Property()

  ' Формула представляет собой строку текста, заключенную в кавычки
  ' Начинается со знака =
  Range("B10").Formula = "=SUM(B4:B9)"

End Sub

Свойство Formula также можно использовать для чтения существующей формулы в ячейке.

Совет № 2: Используйте Macro Recorder

Если ваши формулы более сложные или содержат специальные
символы, их будет сложнее написать в VBA. К счастью, мы можем использовать
рекордер макросов, чтобы создать код для нас.

Вот шаги по созданию кода свойства формулы с помощью средства записи макросов.

1. Включите средство записи макросов (вкладка «Разработчик»> «Запись макроса»)
2. Введите формулу или отредактируйте существующую формулу.
3. Нажмите Enter, чтобы ввести формулу.
4. Код создается в макросе.

Если ваша формула содержит кавычки или символы амперсанда, макрос записи будет учитывать это. Он создает все подстроки и правильно упаковывает все в кавычки. Вот пример.

Sub Macro10()
' Используйте средство записи макросов для создания кода для сложных формул с
' специальны символы и относительные ссылки

  ActiveCell.FormulaR1C1 = "=""Total Sales: "" & TEXT(R[-5]C,""$#,###"")"
    
End Sub

Совет № 3: Нотация формулы стиля R1C1

Если вы используете средство записи макросов для формул, вы
заметите, что он создает код со свойством FormulaR1C1.

Нотация стиля R1C1 позволяет нам создавать как относительные (A1), абсолютные ($A$1), так и смешанные ($A1, A$1) ссылки в нашем макрокоде.

R1C1 обозначает строки и столбцы.

Относительные ссылки

Для относительных ссылок мы указываем количество строк и
столбцов, которые мы хотим сместить от ячейки, в которой находится формула.
Количество строк и столбцов указывается в квадратных скобках.

Следующее создаст ссылку на ячейку, которая на 3 строки выше
и на 2 строки справа от ячейки, содержащей формулу.

Отрицательные числа идут вверх по строкам и столбцам слева.

Положительные числа идут вниз по строкам и столбцам справа.

Абсолютные ссылки

Мы также можем использовать нотацию R1C1 для абсолютных ссылок. Обычно это выглядит как $A$2.

Для абсолютных ссылок мы НЕ используем квадратные скобки. Следующее создаст прямую ссылку на ячейку $A$2, строка 2, столбец 1

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

Проще всего использовать макро-рекордер, чтобы понять это.

Свойство FormulaR1C1 и свойство формулы

Свойство FormulaR1C1 считывает нотацию R1C1 и создает
правильные ссылки в ячейках. Если вы используете обычное свойство Formula с
нотацией R1C1, то VBA попытается вставить эти буквы в формулу, что, вероятно,
приведет к ошибке формулы.

Поэтому используйте свойство Formula, если ваш код содержит
ссылки на ячейки ($ A $ 1), свойство FormulaR1C1, когда вам нужны относительные
ссылки, которые применяются к нескольким ячейкам или зависят от того, где
введена формула.

Если ваша электронная таблица изменяется в зависимости от
условий вне вашего контроля, таких как новые столбцы или строки данных,
импортируемые из источника данных, то относительные ссылки и нотация стиля
R1C1, вероятно, будут наилучшими.

Я надеюсь, что эти советы помогут. Пожалуйста, оставьте
комментарий ниже с вопросами или предложениями.

Excel vba вставить в ячейку формулу

Вставить формулу на лист средствами VBA

​Смотрите также​​ .Range(«A2»).Formula = «=B1+B2″​А вот можно​ ‘здесь ошибка, поэтому​
​ функции идут через​ мне надо складывать​ объединенных ячеек в​ 11).Select Cells(NextRow, 11).FormulaLocal​ вставки.​
​ поклон​ людям что -​Вариант с FormulaR1C1​ именно завязка на​тогда так:​ — начать запись​
​ формула?​ на переменные.. ну​андрей тетерин​ End With End​ ли сразу вставить​
​ «=» перед «КОРРЕЛ»​ запятую, при этом​ разорванные диапазоны, так​ шапке​ = . и далее​
​Я делал раньше​LightZ, ikki,​ нужно писать макросы?​ — у меня​ относительность строки.​.Cells(ActiveCell.Row, 4).FormulaR1C1Local =​ макроса, выделить ячейку​андрей тетерин​
​ или я не​
​: Добрый день, уважаемые​
​ Subтак? проверьте пожалуйста.​ формулу в ячейку,​ заменил на «@»​ при вставке в​ что замена на​Igor_Tr​ нужна формула считающая​ так​отдельное спасибо​ Они будут ими​
​ работает нормально, нужно​а так, как​ «=ЕСЛИ(ЕОШИБКА(ВПР(RC2,Данные!C1:C2,2,ЛОЖЬ)),»»»»,ВПР(RC2,Данные!C1:C2,2,ЛОЖЬ))» ‘для столбца​ с формулой, нажать​: поверьте — нужны!​ знаю.. второй день​ гуру! Прошу вашей​Ципихович Эндрю​

​ чтобы обойтись без​​ Cells(i, j +​ ячейку формула автоматом​ двоеточие не подходит.​

​: Если без обьединения​​ среднее значение.​Range(Cells(60,41).select ActiveCell.FormulaR1C1 =​The_Prist,​ ПОЛЬЗОВАТЬСЯ. А Вы​ просто ЛОЖЬ заменить​ у него и​ D​ F2, затем Enter.​ таблицу заполняют люди​

​ лопачу интернет -​​ помощи!​: двоточие зачем и​
​ этих трюков с​ 15) = «@КОРРЕЛ(D»​ переходит на региональные​Roman777​ никак (чужой документ),​т.е. он находит​ «=IFERROR(VLOOKUP(RC4,Лист3!R5C1:R496C23,7,0),0)» Selection.Copy Range(Cells(60,​и​ полагаете, что макросы​ на 0 и​
​ как у тебя​LightZ​ Остановить запись. Посмотреть,​ очень далекие от​ похожего не вижу.​Есть таблица, по​ суть этой строки??​ автозаменой?​ & j &​ настройки (в русском​
​:​ можно определиться с​ пустую ячейку, в​

​ 41), Cells(410, 41)).PasteНо​​vikttur,​ не умеют работать​ повторно активировать формулу​
​ — всегда берется​
​: Саш, а ты​ что записал рекордер.​ макросов.. в то​Прошу помощи!​ мере заполнения которой​kai1337​Hugo121​ «:O» & j​
​ разделитель «;»). Как​superpsih​ диапазоном и записать​ данном случае К3​
​ хотелось бы более​​Вопрос решен.​
​ с «максимально унифицированным​
​С русскими названиями​ строка с номером​ тестил?​

​Поверьте — и​​ же время для​использую Excel 2010​
​ нужно вставлять из​: Ципихович Эндрю, Исправьте​
​: .formulalocal=​
​ & «;D» &​ вариант можно писать​

​, попробуйте поменять на​​ где то так:​
​ и вписывает в​ культурнее сделать код​Тема закрыта​ данными»?​
​ формул тоже работает,​
​ 130.​У меня так​
​ проще и всегда​ последующего анализа данные​Private Sub InsertFormula()​

​ кода VBA в​​ пожалуйста как надо​​Или пишите на​​ i & «:O»​ Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub b()​ «, «​Cells(NextRow, 11).value=Application.WorksheetFunction.Average(mRng). Должно​
​ нее формулу =СРЗНАЧ(F3:J3)​Казанский​андрей тетерин​ikki​ может это зависит​LightZ​

​ не работает.​​ работать будет.​
​ должны быть максимально​ With Sheets(«PEE») .Cells(ActiveCell.Row,​ некоторые ячейки формулы.​
​ , спасибо заранее)))​ английском.​

​: А, точно​​Вариант​ikki​ унифицированы. Поэтому и​ 4).Formula = «=ЕСЛИ(ЕОШИБКА(ВПР(B130;Данные!A:B;2;ЛОЖЬ));»»;ВПР(B130;Данные!A:B;2;ЛОЖЬ))»​
​особенность формул такова,​Busine2009​ДмитрийVBA​ «)» ‘после исполнения​End Sub​: Хм, заработало и​
​KoGG​ нажатию кнопки. при​Range(Cells(60, 41), Cells(410,​ рабочий код который​

​FormulaR1C1​​ikki​ну, тогда по​Cells(ActiveCell.Row, 4).FormulaLocal =​
​: .Cells(ActiveCell.Row, 4).FormulaR1C1 =​ возникло такое решение.​

​ ‘для столбца D​​ что часть данных​: если работает, значит​

​:​​ макроса замена «@»​
​ДмитрийVBA​ в формуле «,»​: Оптимальнее использовать FormulaR1C1​ следующем нажатии должен​ 41)).FormulaR1C1 = «=IFERROR(VLOOKUP(RC4,Лист3!R5C1:R496C23,7,0),0)»​ сделан с помощь​(с использованием​: при «повторно активировать»​ идее нужно так​ «=ЕСЛИ(ЕОШИБКА(ВПР(B130;Данные!A:B;2;ЛОЖЬ));»»»»;ВПР(B130;Данные!A:B;2;ЛОЖЬ))»​ «=ЕСЛИ(ЕОШИБКА(ВПР(RC2;Данные!C1:C2;2;ЛОЖЬ));»»;ВПР(RC2;Данные!C1:C2;2;ЛОЖЬ))» ‘для столбца​The_Prist​ .Cells(ActiveCell.Row, 8).Formula =​ берется с текущего​ так.​Не по теме:​

​ на «=» Next​​: Надо было сделать​​ меняется автоматически на​​Cells(NextRow, 11).FormulaR1C1 =​​ записать в ячейку​​DSH​ гуру. это для​
​английских​ — ясен перец,​
​ (FormulaR1C1):​ikki​ D​: Вместо Formula -​ «=ЕСЛИ(ЕОШИБКА(ВПР(D130;Данные!B:C;2;ЛОЖЬ));»»;ВПР(D130;Данные!B:C;2;ЛОЖЬ))» ‘для столбца​

​ листа (PEE), а​​Ципихович Эндрю​
​как у Вас все​
​ j Next i​
​ массовую вставку формулы​

​ «;». Колдунство какое-то​​ «=AVERAGE(RC6:RC10)»​ К4 формулу​​: Казанский, Спасибо большое​​ тех кто столкнется​​функций) — лучше​​ заработает.​​Cells(ActiveCell.Row, 4).FormulaR1C1 =​​: не тестил.​​остальное аналогично.​

​ FormulaLocal​​ H .Cells(ActiveCell.Row, 12).Formula​ часть из другого​: как я могу​ в голову помещается. ​ ‘здесь попробовал записать​ корреляции, которые просто​
​ :). Спасибо!​superpsih​=СРЗНАЧ(F4:J4) итд​ за помощь. Я​ с таким вопросом:​ всего.​но, имхо, это​ «=ЕСЛИ(ЕОШИБКА(ВПР(RC2,Данные!C1:C2,2,ЛОЖЬ)),»»»»,ВПР(RC2,Данные!C1:C2,2,ЛОЖЬ))»​но с подачи​пс. в Excel​К тому же​

​ = «ЕСЛИ(ЕОШИБКА(I130/(H130*0,82));»»;I130/(H130*0,82))» ‘для​​ (Данные)​ исправить если не​ =/​
​ макрос, но не​ так не протянуть,​
​Roman777​: Помогите, пожалуйста, разобраться.​Все имена заняты​ понял суть.​’Процедура вставки формул​

​и от локали​​ неспортивно​
​ikki​ Дмитрия я уже​

​ 2007-2013 можно использовать​​ кавычки — «»​ столбца L End​Адреса ячеек в​

​ знаю её сути,​​Hugo121​ понял как вставить​ поэтому написал код:​

Excel 2007: записать формулу в ячейку

​:​​Вставляю формулу в​
​: Такой вариант​RAN​ Private Sub InsertFormula()​ не зависит.​
​LightZ​
​: у меня такой​ поправил точку с​ функцию ЕСЛИОШИБКА -​ — необходимо делать​ With End Sub​ формулах то же​
​ зачем она задумана​:​ это в цикл,​Sub find_corr() For​superpsih​
​ ячейку следующим образом:​NextRow = Range(«K65536»).End(xlUp).Row​: В следствии изменения​ With Sheets(«PEE») .Cells(ActiveCell.Row,​а то мало​
​: Ок, давай тогда​

​ вариант дает ошибку​​ запятой на запятую.​
​ и короче, и​ двойными. В там​Желаемый результат -​ надо как то​но думаю, что​Не по теме:​

​ поэтому пошел сложным​​ i = 2​

​, сам не пойму​​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub temp()​

​ + 1 Cells(NextRow,​​ предыдущего сообщения, смысл​ 4).FormulaR1C1Local = «=ЕСЛИ(ЕОШИБКА(ВПР(RC2;Данные!C1:C2;2;ЛОЖЬ));»»»»;ВПР(RC2;Данные!C1:C2;2;ЛОЖЬ))»​ ли — попадёт​

​ найдём универсальный вариант​​ #имя?​потестил.​ повторных вычислений не​ виде как у​ вставка формулы в​
​ менять, таблица то​ кавычки и :​

​давно тут сидим. ​​ путем 🙁 ‘For​
​ To 240 For​ сей феномен. но​

Вставка формулы в ячейку (Макросы/Sub)

​Cells(2, 35).FormulaR1C1 =​​ 11).FormulaLocal = «=ÑÐÇÍÀ×(F»​
​ ответа утерян.​ ‘для столбца D​
​ такой макрос на​
​Юрий М​если​
​оказывается, для FormulaR1C1​
​ требует. но с​ Вас рекордер не​ ячейку с учетом​ растет. ​ не нужны​да и не​ i = 1​ j = 2​ тоже сталкивался. )​ «=SUM(RC[-31];RC[-30])»​ & NextRow &​

​Igor__​​ .Cells(ActiveCell.Row, 8).FormulaR1C1Local =​​ англоязычный Excel -​​: Цитатаандрей тетерин пишет:​FormulaR1C1​

​ нужны разделители запятые​​ 2003 и старше​ воспримет их, т.к.​ следующего правила: в​При выполнении процедуры​kai1337​

​ сложно это -​​ To 1000 ‘​​ To 240 ‘Cells(i,​​buchlotnik​End Sub​ «:J» & NextRow​

​: доброго времени суток!​​ «=ЕСЛИ(ЕОШИБКА(ВПР(RC4;Данные!C2:C3;2;ЛОЖЬ));»»»»;ВПР(RC4;Данные!C2:C3;2;ЛОЖЬ))» ‘для столбца​ и пиши пропало​поверьте — нужны!​ ​, то надо использовать​ ​а для FormulaR1C1Local​ несовместима.​ они являются еще​ функции ВПР адрес​ возникает ошибка выполнения​: Вообще цель работы​ теперь и Вы​ Range(«Q3»).Select ‘ ActiveCell.FormulaR1C1​ j + 15)​: это не колдунство,​Выдаёт ошибку. В​ & «)»​
​друзья, каким образом​
​ Н .Cells(ActiveCell.Row, 12).FormulaR1C1Local​

Вставка формулы в ячейку через макрос

​LightZ​​ таблицу заполняют люди​ английские имена функций:​ — точка с​ппс. упс, на​ и служебным символом,​
​ искомой ячейки -​ — мне кажется​ : Изучение МАРКОРЕКОРДЕРА​ это запомнили :)​ = «=CORREL(R2C4:R2C15,RC[-13]:RC[-2])» End​ = «=КОРРЕЛ(D» &​ если хотите задавать​ чём может быть​Igor__​ можно записать в​ = «=ЕСЛИ(ЕОШИБКА(RC9/(RC8*0,82));»»»»;RC9/(RC8*0,82))» ‘для​: вот так работает:​ очень далекие от​ IF, ISERROR, VLOOKUP​ запятой.​ русские функции и​ означающим текст.​ строка относительная столбец​ она связана с​ VBA.​kai1337​ SubВ комментариях в​ j & «:O»​ формулу через​ проблема? Причём проблема​: не срабатывает​ ячейку формулу с​ столбца L End​FormulaR1C1Local = «=ЕСЛИ(ЕОШИБКА(ВПР(RC2;Данные!C1:C2;2;ЛОЖЬ));»»»»;ВПР(RC2;Данные!C1:C2;2;ЛОЖЬ))»​ макросов.. в то​LightZ​ikki​ кавычки я внимания​Хотя самый оптимальный​ абсолютный​ адресами ячеек.​Сервис(tools)макрос(Macro)Начать запись(Record New​: Private Sub A1B1B2()​ коде есть пояснения.​ & j &​200?’200px’:»+(this.scrollHeight+5)+’px’);»>.FormulaR1C1​
​ в знаке «;».​Все имена заняты​ помощью макроса.​ With End Sub​и так:​ же время для​

​: Вариант с FormulaR1C1Local​​:​
​ не обратил.​ и универсальный способ​

​vikttur​​Мне кажется нужно​

​ With Worksheets(«Лист1») .Range(«B1»)​ Задача, конечно, решена,​ «;D» & i​

​, необходимо использовать​​ Если его заменить​

​вот часть кода​
​DSH​FormulaR1C1 = «=IF(ISERROR(VLOOKUP(RC2,Данные!C1:C2,2,FALSE)),»»»»,VLOOKUP(RC2,Данные!C1:C2,2,FALSE))»​ последующего анализа данные​ — хоть убей,​

Макрос, вставляющий формулу в ячейку

​LightZ​​The Prist​ перенести формулу с​: Если макросы разрешены​ как то подменить​Запись макроса (Record​ = «1» .Range(«B2»)​ но это как-то​

​ & «:O» &​​ стандарты оригинала, а​ на «:», то​

​Igor__​​NextRow = Range(«K65536»).End(xlUp).Row​: Поясните пожалуйста. Вроде​андрей тетерин​

​ должны быть максимально​​ но ошибка vba​, насколько я понял,​

​прав.​​ листа в макрос​ — нужна ли​ адреса в формуле​ Macro)​
​ = «2» .Range(«A1»)=»B1+B2:»​ неправильно..​ i & «)»​

​ в английском аргументы​​ всё работает, но​: не работало из-за​ + 1 Cells(NextRow,​
​ указываю диапазон для​: Спасибо, уважаемые! низкий​
​ унифицированы. А этим​ 1004​

Источник

Копирование формул без сдвига ссылок

Проблема

Предположим, что у нас есть вот такая несложная таблица, в которой подсчитываются суммы по каждому месяцу в двух городах, а затем итог переводится в евро по курсу из желтой ячейки J2.

Проблема в том, что если скопировать диапазон D2:D8 с формулами куда-нибудь в другое место на лист, то Microsoft Excel автоматически скорректирует ссылки в этих формулах, сдвинув их на новое место и перестав считать:

Задача: скопировать диапазон с формулами так, чтобы формулы не изменились и остались теми же самыми, сохранив результаты расчета.

Способ 1. Абсолютные ссылки

Способ 2. Временная деактивация формул

Чтобы формулы при копировании не менялись, надо (временно) сделать так, чтобы Excel перестал их рассматривать как формулы. Это можно сделать, заменив на время копирования знак «равно» (=) на любой другой символ, не встречающийся обычно в формулах, например на «решетку» (#) или на пару амперсандов (&&). Для этого:

1. Выделяем диапазон с формулами (в нашем примере D2:D8)
2. Жмем Ctrl+H на клавиатуре или на вкладке Главная — Найти и выделить — Заменить (Home — Find&Select — Replace)