0

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

例子

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

谢谢

4

1 回答 1

0

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

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
于 2013-08-06T09:37:51.523 回答