Печать страницы - Excel VBA Макросы: Как вставить формулу в ячейку в адресе которой один из индексов

Название: Excel VBA Макросы: Как вставить формулу в ячейку в адресе которой один из индексов - переменная
Отправлено: gtz от 11 января 2018, 10:46

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

' Копирование данных из листа-источника на лист-результат.
sh_res.Range(lr, "А").FormulaLocal = "=Если(B3="береза";окей;)"

Переменная
lr = sh_res.Cells(sh_res.Rows.Count, "B").End(xlUp).row + 1

Соответственно ячейка B3 должна быть вида (lr, "B").
sh_res - книга в которую переносятся данные, или активная книга.

Название: Re: Excel VBA Макросы: Как вставить формулу в ячейку в адресе которой один из индексов - переменная
Отправлено: Администратор от 11 января 2018, 10:51

Если в коде макроса нужно указать кавычку, то нужно вместо одной кавычки напечатать две:
sh_res.Range(lr, "B").FormulaLocal = "=Если(B" & lr & "=""береза"";""окей"";)"

Название: Re: Excel VBA Макросы: Как вставить формулу в ячейку в адресе которой один из индексов - переменная
Отправлено: gtz от 11 января 2018, 11:14

Method "Range" of object "_Worksheet" failed

Название: Re: Excel VBA Макросы: Как вставить формулу в ячейку в адресе которой один из индексов - переменная
Отправлено: Администратор от 11 января 2018, 11:21

Вместо Range надо использовать Cells. В Range всегда на первом месте буква столбца и между столбцом и строкой нет запятой. Если нужно, чтобы буква столбца была второй, нужно использовать Cells:
sh_res.Cells(lr, "A").FormulaLocal = "=Если(B" & lr & "=""береза"";""окей"";)"

Название: Re: Excel VBA Макросы: Как вставить формулу в ячейку в адресе которой один из индексов - переменная
Отправлено: gtz от 11 января 2018, 11:26

спасибо

Форум по VBA и MS Office

VBA, Excel => VBA, макросы в Excel => Тема начата: gtz от 11 января 2018, 10:46