Котировки в VBA с R1C1

Question

мне нужно написать в клетках из клеток (1,1) в клетках (501,1) формула

=FDSC("-",$C$3,"FG_PRICE(D1)") for line 1 
=FDSC("-",$C$3,"FG_PRICE(D2)") for line 2 
=FDSC("-",$C$3,"FG_PRICE(D3)") for line 3 

Теперь мой код VBA заключается в следующем:

Range(Cells(1, 1), Cells(1 + 500, 1)).FormulaR1C1 = "=FDSC(""" & "-" & """,R1C3,""" & " FG_PRICE(RC[3]) " & """)" 

Я тестировал каждый фрагмент кода, чтобы определить, что последняя часть (FG_PRICE ...) является той, которая не работает! Formule, что написано в Excel является:

=FDSC("-",$C$1,"FG_PRICE(RC[3])") 

Как я могу сделать, чтобы D1, D2, и т.д. ... и не RC [3] ??? Я пробовал несколько вещей, но я не могу найти его!

Большое спасибо за ваше время и вашу помощь!

Answer 1

Использовать chr (34) для представления кавычек, когда вы уже работаете внутри кавычек. Например, изменить forumula выше на следующее:

Range(Cells(1, 1), Cells(1 + 500, 1)).FormulaR1C1 = "=FDSC(" & chr(34) & "-" & chr(34) & ",$C$1," & chr(34) & "FG_PRICE(D1)" & chr(34) & ")" 

Чтобы поместить его в петлю, просто сделайте следующее:

Sub writeFormulas() 

Dim i as Integer 

For i = 0 to 2 
    Range(Cells(1, 1), Cells(1 + 500, 1)).FormulaR1C1 = "=FDSC(" & chr(34) & "-" & chr(34) & ",$C$1," & chr(34) & "FG_PRICE(D" & i+1 & ")" & chr(34) & ")" 
next i 

End Sub