VBA输入动态公式，而不仅仅是值

Question

我目前有代码可以计算一个单元格除以另一个单元格的值，并且可以正常工作。

我将如何更改它，以便它具有该单元格的公式而不是另一个单元格，从而在两个单元格更改值时更新我正在计算的值？ 例如，不是"12"，而是"B4/D8"。

代码是

For Tenant 1 to y
For Schedule = 1 To x
Sheet1.Cells(1782 + Tenant, 5 + x + Schedule).Value = (Sheet1.Cells(1782 + 
Tenant, 5 + Schedule).Value * Sheet1.Cells(1778, 8 + Schedule).Value)
Next Schedule
Next Tenant

Answer 1

您可以在循环之外执行此操作，但以下是使用现有代码的简单转换：

For Tenant 1 to y
For Schedule = 1 To x
Sheet1.Cells(1782 + Tenant, 5 + x + Schedule).Formula = "=('" & Sheet1.Name & "'!" & Sheet1.Cells(1782 + 
Tenant, 5 + Schedule).Address(0, 0) & "*'" & Sheet1.Name & "'!" &  Sheet1.Cells(1778, 8 + Schedule).Address(0, 0) & ")"
Next Schedule
Next Tenant