Вставка формулы со ссылками в стиле A1 и R1C1 в ячейку (диапазон) из кода VBA Excel. Свойства Range.FormulaLocal и Range.FormulaR1C1Local.
Свойство Range.FormulaLocal
В качестве примера будем использовать диапазон A1:E10, заполненный числами, которые необходимо сложить построчно и результат отобразить в столбце F:
Примеры вставки формул суммирования в ячейку F1:
|
1 2 |
Range("F1").FormulaLocal = "=СУММ(A1:E1)" Range("F1").FormulaLocal = "=СУММ(A1;B1;C1;D1;E1)" |
Пример вставки формул суммирования со ссылками в стиле A1 в диапазон F1:F10:
|
1 2 3 4 5 6 |
Sub Primer1() Dim i As Byte For i = 1 To 10 Range("F" & i).FormulaLocal = "=СУММ(A" & i & ":E" & i & ")" Next End Sub |
В этой статье я не рассматриваю свойство Range.Formula, но если вы решите его применить для вставки формулы в ячейку, используйте англоязычные функции, а в качестве разделителей аргументов — запятые (,) вместо точек с запятой (;):
|
1 |
Range("F1").Formula = "=SUM(A1,B1,C1,D1,E1)" |
После вставки формула автоматически преобразуется в локальную (на языке пользователя).
Свойство Range.FormulaR1C1Local
Формулы со ссылками в стиле R1C1 можно вставлять в ячейки рабочей книги Excel, в которой по умолчанию установлены ссылки в стиле A1. Вставленные ссылки в стиле R1C1 будут автоматически преобразованы в ссылки в стиле A1.
Примеры вставки формул суммирования со ссылками в стиле R1C1 в ячейку F1 (для той же таблицы):
|
1 2 3 4 5 6 7 8 9 10 11 |
'Абсолютные ссылки в стиле 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:
|
1 2 3 4 5 |
'Ссылки в стиле R1C1, абсолютные по столбцам и относительные по строкам: Range("F1:F10").FormulaR1C1Local = "=СУММ(RC1:RC5)" 'Относительные ссылки в стиле R1C1: Range("F1:F10").FormulaR1C1Local = "=СУММ(RC[-5]:RC[-1])" |
Так как формулы с относительными ссылками и относительными по строкам ссылками в стиле R1C1 для всех ячеек столбца F одинаковы, их можно вставить сразу, без использования цикла, во весь диапазон.
Доброго времени суток.
Кто-нибудь подскажет, как написать в vba excel вот такую формулу:
="пример текста " & D1в ячейку, где «пример текста » и D1 должна быть выражена в виде переменных. В итоге в ячейке должно отобразиться:пример текста 50при условии, что d1=50Привет, Nik!
Записываем формулу в ячейку
"A1", собрав ее из переменных:Спасибо большое! Совсем из вида упустил, что можно применить Chr(34).
Ещё один вопрос, почему абсолютная ссылка получается
="Пример текста "&$D$1, как сделать, что бы была относительная="Пример текста "&D1?Ещё раз большое спасибо за оперативность.
Здравствуйте. Помогите , пожалуйста. Возникает такая проблема: после замены части формулы с помощью функции Replace,значение в ячейке воспринимается как текст, а не как формула.
Команды
а также
не помогли)). При этом, если подобную замену делать штатным экселевским Заменить, то полученный результат воспринимается как формула и вычисляется сразу.
Здравствуйте, Сусанна!
У меня работает так:
Огромное спасибо) В понедельник приду на работу, и обязательно попробую Ваш вариант.
Добрый вечер. Мне нужно использовать математические операции, опираясь только на переменные. Например:
Cells(i, SOH).Formula = (Cells(i, Stock_rep_date) + Cells(i, Consig_Stock_rep_date)) / 1Но в ячейках получаются сами значения, а нужна формула с ссылками на ячейки Cells.
Здравствуйте, Дмитрий!
Cells(i, SOH).Formula = "=(" & Cells(i, Stock_rep_date).Address & "+" & Cells(i, Consig_Stock_rep_date).Address & ")/1"Здравствуйте, Евгений!
Можете помочь?
Дано:
1. В ячейках D1 и D2 некие текстовые данные, которые необходимо объединить в ячейку D3
Range("D3").FormulaR1C1 = "=R[-2]C&R[-1]C"2. Потом в Ячейку D4 получившийся результат вставить как значение
Range("D3").CopyRange("D4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
3. И в ячейке D4 между данными вставить перенос на вторую строку. К примеру:
Range("C4").FormulaR1C1 = "Видеокарта" & Chr(10) & "GTX 3090").Но проблема в том, что данные неизвестны и могут меняться.
А объединить первый макрос с третьим у меня не получается.
Подскажите как можно одним макросом объединить данные двух ячеек сразу с переносом данных второй ячейки во вторую строку ячейки.
Спасибо.
Здравствуйте!
Не совсем понял, что нужно, поэтому привожу пример, как объединить текст из двух ячеек (D1 и D2) в одну строку и как — в две:
[D3]— это то же, что иRange("D3")Здравствуйте, Евгений!
Это и нужно было.
Огромное Вам спасибо!!!
Добрый день! Подскажите в одном вопросе. Есть две ячейки, в одной из них находится число, при введении во вторую ячейку числа, число из первой ячейки уменьшается ровно на столько же, сколько введено во вторую ячейку. Очень важно, чтобы число в первой ячейки можно было хаотически менять, т.е. в первой ячейке была формула и число. Спасибо!
Добрый день, Дмитрий!
Ответ на ваш вопрос соответствует формуле =C1-B1, вставленной в ячейку A1. При вводе значения в ячейку B1, значение ячейки A1 уменьшается на значение ячейки B1. Изменяя значение ячейки C1, вы произвольно изменяете значение в ячейке A1.
Не совсем то, что имел ввиду. Есть только две ячейки А1 и В1. В ячейке А1 должно быть две операции.
1. Это вшитая формула.
2. Это свободный ввод числа.
Т.е. при внесении числа методом ввода или вставкой в ячейку А1 например 15, а в ячейку В1 например 4, значение в ячейке А1 автоматом менялось на 11. Можно конечно просто вносить в формулу ячейки А1=15-В1 и менять число 15 на любое другое, но это надо влезать в формулу. А нужен свободный ввод для вставки большого массива данных.
Разместите следующий код в модуле листа:
Евгений, спасибо большое!!! То, что надо, работает отлично!