Отображение формулы в ячейке vba

@Динара_ · Регистрация: 15.11.2016

Author24 — интернет-сервис помощи студентам

Добрый день!

У меня следующий вопрос. Как с помощью vba записать в ячейку формулу для расчетов, если конкретных ячеек у меня нет и высчитываются они по ходу программы.
Те например посчитать сумму в определенном столбце с одной определенной строки до другой. И чтобы в этой ячейке в результате было не просто число, а формула.
Например вот такой вариант считает правильно, но в ячейке просто результат без формулы:

Visual Basic

1	Cells(strlast + 1, 6) = Application.Sum(Range(Cells(5, 6), Cells(strlast, 6)))

Вот такой вариант, показывает формулу, но ячейки заданы конкретные:

Visual Basic

1	Cells(strlast + 1, 6).FormulaR1C1 = "=SUM(R[-1065]C:R[-1]C)"

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

Заранее спасибо!!

@unick12345 · 22.11.2016, 16:17

Visual Basic

1	Cells(strlast + 1, 6).Formula = "=SUM(R[-1065]C:R[-1]C)"

или

Visual Basic

1	Cells(strlast + 1, 6).FormulaLocal = "=SUM(R[-1065]C:R[-1]C)"

@Hugo121 · 22.11.2016, 16:42

Visual Basic

1	Cells(strlast + 1, 6).Formula = "=Sum(f5:" & Cells(strlast, 6).Address(0, 0) & ")"

@Динара_ · 22.11.2016, 16:57 **[ТС]**

Спасибо, что натолкнули на правильный путь

вот так все получилось
Cells(strlast + 1, 4).Formula = "= Sum(" & ActiveCell.Offset(-1).Address & ":" & Cells(5, 4).Address & ")"

@Hugo121 · 22.11.2016, 17:18

ActiveCell кто будет отслеживать?

@Динара_ · 22.11.2016, 17:42 **[ТС]**

Действительно, зачем усложнять себе жизнь

вот так вообще отлично
Cells(strlast + 1, 4).Formula = "= Sum(" & Cells(pervstr, 4).Address & ":" & Cells(5, 4).Address & ")"
Все переменные высчитываются ранее в программном коде.
Спасибо Огромное!!!

@Hugo121 · 22.11.2016, 17:47

Ну Cells(5, 4).Address можно не шифровать, а писать открытым текстом

@Казанский · 22.11.2016, 21:38

Динара_, скорее всего подойдет

Visual Basic

1	Cells(strlast + 1, 6).FormulaR1C1 = "=SUM(R5C:R[-1]C)"

@Динара_ 0 / 0 / 0 Регистрация: 15.11.2016 Сообщений: 7
	22.11.2016, 16:57 [ТС]	4
	Спасибо, что натолкнули на правильный путь вот так все получилось Cells(strlast + 1, 4).Formula = "= Sum(" & ActiveCell.Offset(-1).Address & ":" & Cells(5, 4).Address & ")" 0

@Hugo121 6975 / 2876 / 552 Регистрация: 19.10.2012 Сообщений: 8,760
	22.11.2016, 17:18	5
	ActiveCell кто будет отслеживать? 0

@Динара_ 0 / 0 / 0 Регистрация: 15.11.2016 Сообщений: 7
	22.11.2016, 17:42 [ТС]	6
	Действительно, зачем усложнять себе жизнь вот так вообще отлично Cells(strlast + 1, 4).Formula = "= Sum(" & Cells(pervstr, 4).Address & ":" & Cells(5, 4).Address & ")" Все переменные высчитываются ранее в программном коде. Спасибо Огромное!!! 0

@Hugo121 6975 / 2876 / 552 Регистрация: 19.10.2012 Сообщений: 8,760
	22.11.2016, 17:47	7
	Ну Cells(5, 4).Address можно не шифровать, а писать открытым текстом 0

	22.11.2016, 21:38