VBA 定义一个单元格值从某个单元格到定义的单元格

Question

我已经来回尝试了一段时间，但我就是无法让它工作。 我想我正在使用我最新的代码解决方案。

所以我想要实现的只是简单地说

• 如果日期是星期一，则单元格 F17 中每日跟踪器的总和值将在星期一添加到每周跟踪器 F24 中。 假设我在星期一获得值 100，我希望将其添加到每周跟踪器中的星期一。 第二天我想要新值，假设将 50 添加到星期二，但不更改星期一的值。

我当前的解决方案是有一个命令按钮，按下该按钮时会将值添加到每周跟踪器中的正确日期。 我的问题是此代码仅在 F17 是打开的输入单元格时才有效，因此该值不是由 SUM function 定义的。 但我希望它能与从其他单元格的总和中获取其值的单元格一起使用。 有人可以告诉我我在这里做错了什么，所以我可以解决这个问题吗？ 我将添加我当前的 VBA 代码和一些图片来展示。

当前代码

Private Sub CommandButton1_Click()

Dim importValue As Double, i As Integer
importValue = Range("F15").Value


For i = 1 To 5
    If Weekday(Cells(23 + i, 5).Value) = Weekday(Now) Then Cells(23 + i, 6).Value = importValue
Next i

End Sub

我想要发生什么

我当前的错误代码

Answer 1

你能试试这个吗？ 循环可能不是必需的。

Private Sub CommandButton1_Click()

    Dim importValue As Double, i As Integer
    importValue = Range("F15").Value
    
    Cells(23 + Weekday(Now()), 6).Value = importValue

End Sub