Question

我在项目中遇到了问题。我想将工作表（Sheet1）的输入数据存储到另一个工作表（Sheet2）以保存我的交易历史记录。重要的是，在Sheet1中的每个输入之后，它应该返回到空白单元格（Sheet1），以便可以再次在该特定单元格（Sheet1）中完成新条目。在此过程中，我希望定期将这些值存储到Sheet2，以便我可以跟踪历史记录。我在VBA上尝试过以下操作，但它不起作用。

Sub Master_Sheet_Record()
If Sheet1.Range("D1") = "" Then
MsgBox "OK"
Else
Sheet1.Range("D1").Copy
Sheet2.Range("B2").PasteSpecial xlPasteValues
End If
End Sub

我已经在一个模块中写了这个。代码的粗体应该是这样的：在每个条目之后，B2变为B3，以便它可以存储Sheet1的下一个输入。

如果可能，请回复邮件并指导我。

Answer 1

如果您想要历史，那么您需要一个事件宏。

将以下内容放在 Sheet1 代码区域中：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Range, r2 As Range
    Set r = Range("A1")
    If Intersect(r, Target) Is Nothing Then Exit Sub
    Application.EnableEvents = False
        If Sheets("Sheet2").Range("A1").Value = "" Then
            r.Copy Sheets("Sheet2").Range("A1")
        Else
            N = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row + 1
            r.Copy Sheets("Sheet2").Cells(N, 1)
        End If
        r.Clear
        r.Select
    Application.EnableEvents = True
End Sub

每次在 Sheet1 单元格 A1 中输入值时，该值将复制到 Sheet2 中历史值列表的底部列 A 。 Sheet1 单元格 A1 将被清除并重新选中。

因为它是工作表代码，所以很容易安装和自动使用：

右键单击Excel窗口底部附近的选项卡名称
选择查看代码 - 这会打开一个VBE窗口
粘贴内容并关闭VBE窗口

如果您有任何疑虑，请先在试用工作表上试用。

如果保存工作簿，宏将随之保存。如果您在2003年之后使用的是Excel版本，则必须保存该文件为.xlsm而不是.xlsx

删除宏：

按上述方式调出VBE窗口
清除代码
关闭VBE窗口

要了解有关事件宏（工作表代码）的更多信息，请参阅：

http://www.mvps.org/dmcritchie/excel/event.htm

如何将数据从一个excel界面（工作表1）存储和更新到另一个工作表（工作表2）以跟踪交易历史记录？

1 个答案: