Excel как программно вставить формулу

Подскажите, пожалуйста, как вставить формулу в ячейку с помощью макроса?

Попробовал вот так вот

Private Sub Worksheet_Change(ByVal Target As Range)
    Sheets("Лист1").Range("C3").Formula = "=СУММ(A1;B1)"
End Sub

но дебаггер ругается  В чём причина? Может быть ему не нравится, что формулы из локализованной версии вставляют? Попробовал заменить «СУММ» на «SUM», но он опять ругается.
Разумеется, для суммы можно обойтись без слов. Если вставить вот такую формулу «=A1+B1», тогда всё работает без проблем, но как вставлять «серьёзные» формулы со словами? Например, ЕСЛИ, ИНДЕКС и т.п.?

И ещё вопрос: выражения
Sheets(«Лист1»).Range(«C3»).Formula =…
и
Worksheets(«Лист1»).Range(«C3»).Formula =…
тождественны или между ними есть разница?

В данном случае нужно написать так:
Sheets(«Лист1»).Range(«C3»).FormulaLocal = «=СУММ(A1;B1)»
Метод Formula для тех случаев, когда вы используете стиль ссылок RC
вЫРАЖЕНИЯ АБСОЛЮТНО ОДИНАКОВЫЕ

Не торопись, и все успеешь намного быстрее

Sheets — это все листы, в том числе и с диаграммами. Если вдруг при исполнении «for each ws in sheets» один из них будет с диаграммой (юзер вставил) — Ваш код, рассчитанный на ячейки, рухнет.

webmoney: E265281470651 Z422237915069 R41892628200

sergo44441 и Hugo121, спасибо за помощь! Как говорится, век живи, век учись! В карме отметился.

При изменении ячеек на событие Изменение следует отключать реакцию на события, чтобы не получить бесконечный цикл:

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  Sheets("Лист1").[C3].Formula = "=SUM(A1,B1)"
  Application.EnableEvents = True
End Sub

Или, что более практично, вписывать формулу только при выполнении условия…

Знания недостаточно, необходимо применение. Желания недостаточно, необходимо действие. (с) Брюс Ли

Цитата: Шпец Докапыч от 23.08.2010, 15:01
При изменении ячеек на событие Изменение следует отключать реакцию на события, чтобы не получить бесконечный цикл:
Private Sub Worksheet_Change(ByVal Target As Range)
 Application.EnableEvents = False
 Sheets("Лист1").[C3].Formula = "=SUM(A1,B1)"
 Application.EnableEvents = True
End Sub

Спасибо за ценный совет! (+1) Обязательно им воспользуюсь. А то я из-за этих самых бесконечных циклов последнее время вообще уже перестал использовать событие Change. Стараюсь его «обходить».

Цитата: Шпец Докапыч от 23.08.2010, 15:01Или, что более практично, вписывать формулу только при выполнении условия…

В смысле, через If Target=… ?

Здесь можно обыграть по-разному. Например,
Прервать работу макроса, если изменено сразу несколько ячеек:
If Target.Count > 1 Then Exit Sub
Продолжить работу макроса только при условии изменения ячейки «A1»:
If Target.Address = «$A$1» Then
…или первого столбца:
If Target.Column = 1 Then
…или определённого диапазона:
If Not Intersect(Target, Range(«A1:A99»)) Is Nothing Then

Ну и всё в таком духе…

Знания недостаточно, необходимо применение. Желания недостаточно, необходимо действие. (с) Брюс Ли

Цитата: Шпец Докапыч от 01.09.2010, 14:52
Здесь можно обыграть по-разному. Например,
Прервать работу макроса, если изменено сразу несколько ячеек:
If Target.Count > 1 Then Exit Sub
Продолжить работу макроса только при условии изменения ячейки «A1»:
If Target.Address = «$A$1» Then
…или первого столбца:
If Target.Column = 1 Then
…или определённого диапазона:
If Not Intersect(Target, Range(«A1:A99»)) Is Nothing Then

Ну и всё в таком духе…

Понял, спасибо! Честно говоря, я даже не подозревал о таких возможностях «Таргета».

Решил вдохнуть в эту тему новую жизнь

Вопрос такой.
Теперь надо программно вставить не просто формулу, а формулу массива. Подскажите, пожалуйста, как это сделать.

Пробовал вот так вот:

        [МойДиапазон].Cells(Строка).FormulaLocal = _
             "{=НАИМЕНЬШИЙ(ЕСЛИ(ПолеЗначенийТаблицыАнализа=МАКС(ПолеЗначенийТаблицыАнализа);" & _
                "СТРОКА(ПолеЗначенийТаблицыАнализа)*1000+СТОЛБЕЦ(ПолеЗначенийТаблицыАнализа));" & _
                                                                     "СТРОКА(A" & Строка & "))}"

Но Экселю это почему-то не понравилось

Хотя и вставилось-то именно так, как я хотел, но почему-то формула не работает. Где ошибка?

Файл, по мотивам которого я экспериментирую, находится вот здесь:
https://forum.msexcel.ru/microsoft_excel/kak_poluchit_adres_yacheyki_s_izvestnym_znacheniem-t8667.0.html;msg44850#msg44850

Но мне сейчас, на самом деле, нужно не готовое решение, а только подсказка, как это делать, в смысле, программно вставлять в ячейки формулы массивов.

Или, для Вашей формулы

    [МойДиапазон].Cells(Строка).FormulaArray = _
        "=SMALL(IF(ПолеЗначенийТаблицыАнализа=MAX(ПолеЗначенийТаблицыАнализа)," & _
        "ROW(ПолеЗначенийТаблицыАнализа)*1000+COLUMN(ПолеЗначенийТаблицыАнализа))," & _
        "ROW(A" & строка & "))"

Скажи мне, кудесник, любимец ба’гов…

Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995

_Boroda_ и Serge 007

Огромное вам спасибо!!!

На самом деле, без вашей подсказки я бы ещё о-о-чень долго не смог бы сообразить, что под эту задучу нужен совсем другой метод (FormulaArray), да к тому же еще все должно быть в нелокализованном виде и вместо точек с запятой надо использовать просто запятые.

Олег, самый простой (с моей точки зрения) метод, чтобы не было «о-о-чень долго не смог бы сообразить» и чтобы легко переводить функции на буржуйский — пишете формулу, проверяете ее правильность, если все нормально, то встаете в ячейку с формулой (не обязательно, можно потом), включаете запись макроса, тычете мышой в строку формул и нажимаете Контрл+Ентер для обычной формулы (не обязательно, можно просто Ентер) и Контрл+Шифт+Ентер для формулы массива. Выключаете запись макроса, Альт+Ф11 и смотрите, что получилось.

Скажи мне, кудесник, любимец ба’гов…

Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995

Цитата: _Boroda_ от 15.10.2012, 09:24
Олег, самый простой (с моей точки зрения) метод, чтобы не было «о-о-чень долго не смог бы сообразить» и чтобы легко переводить функции на буржуйский — пишете формулу, проверяете ее правильность, если все нормально, то встаете в ячейку с формулой (не обязательно, можно потом), включаете запись макроса, тычете мышой в строку формул и нажимаете Контрл+Ентер для обычной формулы (не обязательно, можно просто Ентер) и Контрл+Шифт+Ентер для формулы массива. Выключаете запись макроса, Альт+Ф11 и смотрите, что получилось.

Спасибо! Взял на вооружение!

Цитата: Олег* от 16.10.2012, 21:00

Цитата: _Boroda_ от 15.10.2012, 09:24
Олег, самый простой (с моей точки зрения) метод, чтобы не было «о-о-чень долго не смог бы сообразить» и чтобы легко переводить функции на буржуйский — пишете формулу, проверяете ее правильность, если все нормально, то встаете в ячейку с формулой (не обязательно, можно потом), включаете запись макроса, тычете мышой в строку формул и нажимаете Контрл+Ентер для обычной формулы (не обязательно, можно просто Ентер) и Контрл+Шифт+Ентер для формулы массива. Выключаете запись макроса, Альт+Ф11 и смотрите, что получилось.

Спасибо! Взял на вооружение!

К сожалению, при таком подходе, ссылки получаются в формате R1C1 и относительно активной ячейки.

Цитата: Олег* от 17.10.2012, 20:31
К сожалению, при таком подходе, ссылки получаются в формате R1C1 и относительно активной ячейки.

Так это мы просто посмотрели общий вид формулы и ангицкие названия функций.
А потом в то, что получилось на ВБА нудно вставить диапазоны из формулы в Excel.
Это поначалу так, а потом, когда приспособитесь, то можно будет сразу в ВБА руками формулу набивать

Скажи мне, кудесник, любимец ба’гов…

Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995

«нудно вставить» — это по Фрейду описка? Точно подмечено…

webmoney: E265281470651 Z422237915069 R41892628200