将单元格公式转换为 VBA

Question

我希望将单元格公式转换为 VBA 代码，这样用户仍然可以在不删除公式的情况下编辑单元格。到目前为止我得到的公式如下，但它阻止了将新值添加到单元格中的选项。我尝试了一些方法，比如在 VBA 中镜像单元格，但我对此很陌生！

=E9-SUMIF('Charge Sheet'!I:I,B9,'Charge Sheet'!H:H)

表 1（收费表）-

F) 成本中心 - 从表 3 中提取

G) 职位代码

H) 数量

I) 设备 - 从表 2 中的名称中提取

J) 成本 - 从表 2 中的单价 (£) 中提取并乘以数量

K) 支持人员 - 使用 VBA 更新以在填写其他字段时显示下订单的用户

L) 发出日期 - 使用 VBA 更新以在其他字段被填写时显示订单的日期

表 2（库存水平）-

A) 商品 ID

B) 姓名

C) 单价 (£)

D) 库存数量 - 当在工作表 1 中订购某个项目时我想要更新的单元格

E) 重新订购水平 - 如果库存数量低于此库存水平，则会发送一封自动电子邮件以请求重新订购

谢谢

Answer 1

如果您已经有了公式，那么您可以在 VBA

中对其进行评估

Sub dural()
    Dim s As String, x As Variant
    s = "E9-SUMIF('Charge Sheet'!I:I,B9,'Charge Sheet'!H:H)"
    x = Evaluate(s)
End Sub

这假定正确的工作表已经处于活动状态。