Ссылка на переменную строку Excel VBA в формуле

Question

Я использую VBA для применения следующей формулы в ячейке. Я хотел бы заменить ссылку на ячейку G11 на Long, которая ссылается на номер строки ActiveCell. Таким образом, вместо G11 было бы G55, если ActiveCell находится на строке 55, или G27, если ActiveCell включен на строке 27.

Columns("A").Find("", Cells(Rows.Count, "A")).Offset(-1, 7).Formula = "=IF(G11=""Enter date"",""Don't edit cell"",TEXT(G11, ""dddd""))"

Я попытался это сделать, но получил Object Defined Error:

Dim ActiveRowNumber As Long
ActiveRowNumber = ActiveCell.RowNumber

Columns("A").Find("", Cells(Rows.Count, "A")).Offset(-1, 7).Formula = "=IF(G11=""Enter date"",""Don't edit cell"",TEXT(""G"" & ActiveRowNumber, ""dddd""))"

Answer 1

Обновлен ваш опубликованный код:

Dim ActiveRowNumber As Long
ActiveRowNumber = ActiveCell.Row

Columns("A").Find("", Cells(Rows.Count, "A")).Offset(-1, 7).Formula = "=IF(G" & ActiveRowNumber & "=""Enter date"",""Don't edit cell"",TEXT(G" & ActiveRowNumber & ", ""dddd""))"

Вы оставили & " после ActiveRowNumber. Кавычки вокруг G в Text(""G"", кажется, разбивают вас.