Кавычки в VBA для заявления IF

Question

Я пытаюсь скопировать формулу IF в диапазоне, но моя проблема, как и другие, исходит из двойных кавычек. В настоящее время у меня есть CHR(34), чтобы указать, что я хочу двойную кавычку, но моя ошибка VBA Expected end of line.

Как мне нужно, чтобы оно появилось в виде формулы:

=IF(D2=team,"",IF(D2=on," - Type1",IF(OR(D2=lr,D2=sn),"*"," - Type3")))

team, on, lr, sign - это переменные, которые ссылаются на строки.

Range()= "=IF(D2=" & team & ", "&Chr(34)&Chr(34)&",IF(D2=" & on & ","&Chr(34)&" - Type1"&Chr(34)&",IF(OR(D2=" &lr& ",D2=" &sn& "),"&Chr(34)&"*"&Chr(34)&","&Chr(34)&" - Type3"& Chr(34)&")))"

Представляет ошибку во втором экземпляре D2 в операторе OR

Answer 1

Я полагаю, что следующее должно работать так, как вы ожидаете, я просто изменил имя переменной с on на oni, так как не думаю, что у вас может быть переменная с именем on, также я разделил & с пространства:

ActiveCell.Formula = "=IF(D2=" & team & ", " & Chr(34) & Chr(34) & ",IF(D2="" & oni & ""," & Chr(34) & " - Type1" & Chr(34) & ",IF(OR(D2=" & lr & ",D2=" & sn & ")," & Chr(34) & "*" & Chr(34) & "," & Chr(34) & " - Type3" & Chr(34) & ")))"