使用Excel中的按钮将数字从一列添加到另一列并使用新数字替换第二列中的旧数字

就像标题所说的那样。我有一张预算表，我正在努力，我想要一个按钮，这样每周我收到付款时我都可以点击它并将已分配的工资添加到每笔费用的分配资金池中。

单击“我的表”

所以我已经计算出所有的计算结果用于分配每周支付费用，但我无法弄清楚如何编码按钮来做我需要的东西。

好吧基本上我需要从D6到D48的所有数字都添加到E6到E48的相邻数字。但是，我还需要在此列中显示新数字，就好像它每次只是向其添加新数量一样。即E6 = E6 + D6，每次按下按钮，它只会将D列中的内容添加到E列上。

对不起漫无边际，我希望这是有道理的。

在此先感谢您的帮助

彼得

— PeterC
source

你知道VBA是什么，这很好。你听说过“录制宏”功能吗？你有没有用它来创建一个初始宏来做某些事情，然后你可以建立？你试过吗？你被困在哪里？PS你在Mac上这样做吗？我问，因为你使用了[macos]标签，这与[macros]不同。（是的，我知道;这令人困惑。）

— Scott

嘿，我没有使用win10。甚至没有看到失踪的“r”哈哈。没有香港专业教育学院从未尝试过记录宏功能。我只是坚持在哪里开始。我试过的一切都回来了，错了。

— PeterC

好吧，如果您使用“记录宏”并只是手动设置E6，E7并且E8，您将获得一个重复这些确切操作的宏，没有错误。然后你需要弄清楚的是如何进行添加（这相当简单）以及如何从6循环到48.一旦进入宏编辑器，F1（帮助）非常有帮助。

— 斯科特

好吧，生病了。欢呼

— 彼得

好的，所以我再次回顾我的代码，我想我已经想出了一个单元格的热点，但我只需要弄清楚如何为下一个48做这个。有没有办法修改我写的所以它会为所有后续行做吗？Private Sub CommandButton1_Click（）Dime a As Double a = Range（“E6”）。Value Range（“E6”）= a + Range（“D6”）。Value End Sub

— PeterC

好的，所以我设法让代码在Scott的帮助下工作。感谢您的投入，非常感谢。这是我提出的代码：

Private Sub CommandButton1_Click（）

Dim x As Integer
Dim y As Double

Range("E2").Value = Range("E2").Value + 1

For x = 6 To 48

    y = Range("E" & x).Value

    Range("E" & x).Value = y + Range("D" & x).Value

Next x

结束子

我还在上面的一个柜台上添加了我放置按钮的位置，这样我就知道我是否已经在那个星期按下它了。

— PeterC
source