☰

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

tag-icon • tag-icon worksheet-function vba microsoft-excel-2007 macros
使用 Excel 中的按钮将一列中的数字添加到另一列，并用新数字替换第二列中的旧数字

正如标题所述。我有一张正在编制的预算表，我想要一个按钮，这样每周我领到工资时就可以点击它，将已经发放的工资添加到每项支出的分配资金池中。

点击查看我的表

因此，我已经计算出了如何分配每周的支出，但我无法弄清楚如何编码按钮来实现我需要的功能。

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

抱歉我说得有点多，希望您能理解。

提前感谢任何帮助

彼得

答案1

好的，在 Scott 的大力帮助下，我成功让代码运行起来。非常感谢您的意见。以下是我写出的代码：

私有子命令按钮1_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

子目录结束

我还在放置按钮的上方添加了一个计数器，这样我就能知道那一周我是否已经按下了它。

相关内容