时间戳

首页 > 解决方案 > 需要宏在单元格中写入公式而不是答案（输出）

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

问题描述

我无法弄清楚 - 我要么得到一个命名？尝试一切时出现错误或应用程序定义的错误。

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( valueof sOriginalAmount + valueof sAmt) 以便在稍后我可以看到原始数量是多少以及添加了多少。

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

标签： excel-formulaoutputformulacellwrite

解决方案

这应该有效。

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

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

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

推荐阅读