Вставить функцию в ячейку- Visual Basic(Бейсик)

Range("A1").Formula = "=SUM(B5:B10)"
Вы можете вводить функцию в привычном варианте:

Range("A1").FormulaLocal = "=СУММ(B5:B10)"
Если функция находится в другой ячейке, то:

iFormula = Range("A5").Formula
Range("A1") = iFormula
 
iFormula = Range("A5").FormulaLocal
Range("A1").FormulaLocal = iFormula
Предполагается, что:
"A1" - это ячейка, куда будет помещена функция
"A5" - это ячейка, где находится нужная функция
=СУММ(B5:B10) - это функция, в ячейке "A5"

= "=IF(A5>13,A5,""<>"")"
= "=ЕСЛИ(A5>13;A5;""<>"")"
Если у Вас всё-таки возникли трудности с созданием формулы на VBA, то выберите одну (а лучше две, например A1, A2) пустые ячейки, и введите нужную формулу вручную, а затем просто выполните:

MsgBox Range("A1").Formula, , "Узрите :"
Range("A2") = "'" & Range("A1").Formula

Leave a Comment