Excel VBA循环在按钮单击时将值存储在不同的单元格中答案

【问题标题】：Excel VBA loop to store value in different cell on button clickExcel VBA循环在按钮单击时将值存储在不同的单元格中
【发布时间】：2016-09-29 14:14:43
【问题描述】：

我目前有一个工作表，用于存储我公司的帐户，例如。所有转账（资金进出）。我只需要一个按钮，单击该按钮会将当前日期保存在一个单元格中，并在其旁边保存公司银行余额的“总计”金额。我打算在每个月底单击按钮以记录特定日期的所有余额。我无法移动到下一个单元格来存储下个月的日期和金额。

我正在努力实现的一个例子

总计（单元格 B8）= 100 美元（第 1 个月）

在 Button_1 上单击

单元格 A1 = 当前日期单元格 A2 = 100 美元（单元格 B8）

总计（单元格 B8）= 200 美元（第 2 个月）（新金额作为资金进来）

在 Button_1 上单击

单元格 B1 = 当前日期

单元格 B2 = 200 美元（单元格 B8）

等等。此后的每个月

我的代码：

Sub Button2_Click()

Dim Cell As Integer
Dim SelectedCell As String

For i = 1 To 10
    Cell = 4
    SelectedCell = CStr(Cell)
    Range("C" + SelectedCell).Value = Range("C38").Value
    Cell = Cell + 1
Next i

End Sub

【问题讨论】：

您是在寻求 a) 帮助解决您编写的代码中的问题 b) 让某人为您编写代码或 c) 如何单击按钮?
如果是a)，请post your code。
Sub Button2_Click() Dim Cell As Integer Dim SelectedCell As String For i = 1 To 10 Cell = 4 SelectedCell = CStr(Cell) Range("C" + SelectedCell).Value = Range("C38 ").Value Cell = Cell + 1 接下来我需要代码方面的帮助，抱歉，我没有弄清楚这一点。我尝试了一个 for 循环，做 while 和一个 kick as if 语句。似乎都没有。我无法编辑我的问题以包含代码，因此必须将其粘贴到此处。
为什么需要 VBA？听起来这只是工作表上的一个简单的SUMIF。

标签： vba excel excel-formula

【解决方案1】：

如问题中所述，您无法移动到下一个单元格以存储该日期的日期和金额。

假设您将当前余额存储在 B8。

请尝试以下代码

Sub Button2_Click()
Dim col_num As Integer

col_num = 1

Do Until Cells(1, col_num).Value = ""

    col_num = col_num + 1

Loop

Cells(1, col_num).Value = Date
Cells(2, col_num).Value = Range("B8").Value

End Sub

【讨论】：