Question

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

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

代码是

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

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

1 个答案: