в окне immediate пишем
activecell.Formula = "=sum(G1:G14)-match(I1,H:H,0)+if(J1="""",2,6)" , кавычки обязательно удваиваем
Можно функцию пользовательскую сделать
1.
2.
3.
Public Function myFunc(str As Variant)
myFunc = Evaluate(str)
End Function
тогда запись в ячейку имеет след вид
=myFunc("sum(G1:G14)-match(I1,H:H,0)+if(J1="""",2,6)")
Опять же кавычки удваиваем, если не хочется удваивать, то меняем функцию
1.
2.
Public Function myFunc(str As Variant)
myFunc = Evaluate(Replace(str, """", """"""))
End Function
Все варианты плохи тем что теряется возможность растягивать формулы, ссылаться на ячейки как при написании обычных формул и т.д., т.к. мы везде используем текстовую строку.
Попробовал чтобы записать можно было, получилось не очень, но выкладываю для размышления :)
пользовательская функция
1.
2.
3.
4.
5.
6.
Public Function myFunc2(i, x, y)
On Error Resume Next
Dim str As String
str = Mid(Cells(x, y).Formula, 16 , InStr( 1 , Cells(x, y).Formula, "ROW()") - 15 - 3 )
Debug.Print str
myFunc2 = Evaluate("" & str & "")
End Function
запись в ячейку (УЖОС), причем знаки припенания (разделители аргументов) как русской локали.
=myFunc2(ЕОШ(sum(G1:G14)-match(I1;H:H;0)+if(J1="";2;6));СТРОКА();СТОЛБЕЦ())
Буду благодарен если кто напомнит как в пользовательской функции сослаться на ячейку в которой она записана, помню что можно, но не помню как, тогда бы запись функции хоть чуть полегче стала бы.
