Question

我想将计算字段的值存储在另一个字段中（最好是通过单击计算字段旁边的链接/按钮）。每次单击此按钮时，应将计算字段的值插入先前存储的插入下方的字段中。我希望这是有道理的： - ）

示例

A1中是一个根据变量计算值的公式。在每次更改变量时，我希望能够通过单击按钮（例如B1中的按钮）将结果保存在A1中。第一次单击按钮时，结果应保存在C1中。下次单击按钮时，新结果应保存在C2中（C1应保持不变）。第三次在C3等等。存储的值至少应保存在工作簿的当前“会话”中（意味着直到我关闭工作簿）。

由于

Answer 1

这样的事情应该做你想做的事情：

Sub Button1_Click()
    ' Get Value Cell (In first sheet cell A1)
    Dim rA1 As Range
    Set rA1 = ThisWorkbook.Sheets(1).Range("A1")

    ' Get Top Cell In History (In first sheet cell C1)
    Dim rC1 As Range
    Set rC1 = ThisWorkbook.Sheets(1).Range("C1")

    ' Is The Top Cell Empty, If Not Find First Empty Cell In Column
    If (rC1.Value <> "") Then
        ' If cell below C1 has a value then go to end of line of number
        If (rC1.Offset(1).Value <> "") Then
            Set rC1 = rC1.End(xlDown)
        End If

        ' Offset 1 cell to get empty cell
        Set rC1 = rC1.Offset(1)
    End If

    ' Set Value of first blank to value cell
    rC1.Value = rA1.Value
End Sub

将计算的字段值存储在其他字段中

1 个答案: