Формула вставки Excel VBA с использованием переменных

Question

Я пытаюсь вставить формулу в ячейку с помощью VBA, и все время получаю ошибку 1004: «Ошибка, определяемая приложением или объектом». Где проблема л ie?

Worksheets("Sheet1").Range("L10").Formula = "=VLOOKUP(" & Cells(6, 15) & ", SQLTable, 2, 0)*" & Cells(6, 16)

Answer 1

Я полагаю, вам нужен адрес Cells(6, 15), поскольку вы бросаете формулу на лист. Также внесены изменения, чтобы включить переменную рабочего листа для правильной квалификации объекта.

---

Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1")
ws.Range("L10").Formula = "=VLOOKUP(" & ws.Cells(6, 15).Address & ", SQLTable, 2, 0)"

---

По умолчанию будет использоваться абсолютный адрес ($O$6). Если вы хотите удалить заблокированные столбцы, вы можете изменить абсолютные свойства (Column Absolute, Row Absolute) следующим образом: ws.Cells(6, 15).Address (False, False)