Примените формулу с VBA, используя динамические ссылки на ячейки.

Question

Привет. Я пытаюсь применить формулу к диапазону ячеек в зависимости от условия. Однако, если я перебираю ячейки, применяя формулу, она применяет ее без динамической ссылки на ячейку. (как если бы я попытался перетащить формулу вниз, щелкнув в правом нижнем углу начальной ячейки). Как мне сделать динамические ссылки на ячейки в применяемой формуле? Любая помощь будет оценена.

Вот мой код:

Sub OQWDays()
Dim oqs As Worksheet

Set oqs = Sheets("SQL_IMPORT")

    For x = 2 To oqs.Cells(Rows.Count, "A").End(xlUp).Row

        If oqs.Range("J" & x).Value = ("CBN_Suisse") Then oqs.Range("A" & x).Formula = "=NETWORKDAYS(D2,PUBLIC_HOLIDAYS!$G$3,PUBLIC_HOLIDAYS!$E$44:$E$61)"

    Next x
End Sub

Answer 1

Я думаю Вы имеете в виду это. Возьмите 2 из строки и замените на x?

Sub OQWDays()

Dim oqs As Worksheet

Set oqs = Sheets("SQL_IMPORT")

For x = 2 To oqs.Cells(Rows.Count, "A").End(xlUp).Row
    If oqs.Range("J" & x).Value = "CBN_Suisse" Then
        oqs.Range("A" & x).Formula = "=NETWORKDAYS(D" & x & ",PUBLIC_HOLIDAYS!$G$3,PUBLIC_HOLIDAYS!$E$44:$E$61)"
    End If
Next x

End Sub