需要宏在单元格中写入公式而不是答案（输出）

Question

我想不通 - 我要么得到一个命名？尝试一切时出现错误或应用程序定义错误。

Dim sAmt As Integer
Dim sOriginalAmount As Integer
sOriginalAmount = ActiveCell.Value
sAmt = Application.InputBox("How much additional cost?", Type:=2)
ActiveCell.Formula = sOriginalAmount + sAmt

我想要 Excel 做的是在单元格而不是输出中写入公式。

例如 - 目前如果我将 sOriginalAmount 设置为 15 并输入 sAmt 为 20，在运行代码中，它会在单元格中给出答案 35，但我希望它写成 =sum(valueofsOriginalAmount + valueofsAmt) 以便稍后我可以看到原始金额是多少以及添加了多少。

有人可以帮忙吗？我已经尝试过 & "" 的各种组合，但我就是无法理解。很抱歉这样的菜鸟问题，但我是自学的，我只为我的工作编码。

Answer 1

这应该有效。

ActiveCell.Formula = "=" & sOriginalAmount & "+" & sAmt

或者如果您真的想使用 SUM。

ActiveCell.Formula = "=SUM(" & sOriginalAmount & "," & sAmt & ")"

需要宏在单元格中写入公式而不是答案（输出）

Need macro to write the formula in a cell not the answer (ouput)

excel-formula

output

formula

cell