Question

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

我想要实现的一个例子

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

在按钮_1上单击

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

总计（单元格B8）= 200美元（第2个月）（金额新增金额）

在Button_1上单击＆lt; ------这不应更改A1和A2中的金额

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

Answer 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

单击按钮

1 个答案: