Примените относительные ссылки на формулу в VBA

Question

При публикации формулы ниже в ячейке Excel отображаются правильные результаты.Однако при добавлении этого в VBA для обновления при загрузке новых данных вывод не производится.

Формула Excel:

= IF (VLOOKUP ([@ [Account Nameи ID]], FirstTimeDonor! $ A $ 3: $ C $ 5000, 3, FALSE) = [@ Date], "FTD", "Non-FTD")

VBA:

tbl.ListColumns("First Time Donation").DataBodyRange.FormulaR1C1 = _
"=IF(VLOOKUP([@[Account Name and ID]], FirstTimeDonor!$A$3:$C$5000, 3, FALSE)=[@Date], 1, 0)"

Answer 1

FormulaR1C1 - ваша формула использует абсолютные, а не относительные ссылки.Вместо этого используйте только DataBodyRange.Formula =.

Answer 2

Просто измените .FormulaR1C1 на .Formula

---

...DataBodyRange.Formula = "=IF(VLOOKUP([@[Account Name and ID]], FirstTimeDonor!$A$3:$C$5000, 3, FALSE)=[@Date], 1, 0)"