Excel VBA循环在button单击时将值存储在不同的单元格中

我目前有一个工作表，我在其中存储我公司的帐户，例如。 所有转帐（进出的钱）。 我只是需要一个button，点击时将当前date保存在一个单元格中，并在它旁边的公司银行余额“总额”。 我打算在每个月底点击button以logging特定date的所有余额。 移动到下一个单元格以存储下个月的date和金额时遇到问题。

我试图实现的一个例子

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

在Button_1上单击

单元格A1 =当前date单元格A2 = $ 100（单元格B8）

总计（单元格B8）= $ 200（第2个月 ）（新的金额已经进入）

在Button_1上单击<——这不应该更改A1和A2中的金额

单元格B1 =当前date

单元格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 

Answer 1

正如问题中所提到的那样，在移动到下一个单元格以存储date和金额时遇到问题。

假设您已经在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