Visual Basic for Applications

Question

我的问题是我在F10中有数据。但是'F10'数据每天都会通过一些计算来改变。所以我想按顺序存储这些数据，如果F10值的第一天存储在X1中，那么第二天的值存储在X2中，这将继续。基本上我想每天F10值存储X1然后X2等任何vba或excel公式。

Answer 1

将此宏包含在工作表中，并在每个单元格F10中有新值时运行，

Sub F10()
Dim i As Long
i = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & i + 1) = Range("F10")
End Sub

或者您可以使用worksheet_change事件来检测对单元格F10的更改。如果有任何更改，则该值将更新为当前的column A。如果需要，您必须对其进行修改以将其更改为column X。

Private Sub worksheet_change(ByVal target As Range)
If target.Address = "$F$10" Then
    Dim i As Long
    i = Range("A" & Rows.Count).End(xlUp).Row
    Range("A" & i + 1) = Range("F10")
End If
End Sub