Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/database/8.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
VBA:使用一个单元格(作为数据输入字段)将数据复制到另一个选项卡_Vba_Database_Data Entry - Fatal编程技术网

VBA:使用一个单元格(作为数据输入字段)将数据复制到另一个选项卡

VBA:使用一个单元格(作为数据输入字段)将数据复制到另一个选项卡,vba,database,data-entry,Vba,Database,Data Entry,我目前在一个Excel文件中工作,希望有一个单元格(比如B3),其中的内容会自动粘贴到另一个选项卡中。在用其他信息替换B3中的内容后,我仍然希望在“其他”选项卡中保留旧信息,但现在在其下方添加了新内容。因此,B3将是一个数据输入字段,而另一个选项卡用作“数据库”。我认为这将需要使用VBA,但我对此非常不熟悉,因此任何帮助都将非常有用 您可以像这样使用工作表事件: Private Sub Worksheet_Change(ByVal Target As Range) ' Change va

我目前在一个Excel文件中工作,希望有一个单元格(比如B3),其中的内容会自动粘贴到另一个选项卡中。在用其他信息替换B3中的内容后,我仍然希望在“其他”选项卡中保留旧信息,但现在在其下方添加了新内容。因此,B3将是一个数据输入字段,而另一个选项卡用作“数据库”。我认为这将需要使用VBA,但我对此非常不熟悉,因此任何帮助都将非常有用

您可以像这样使用工作表事件:

Private Sub Worksheet_Change(ByVal Target As Range)
    ' Change value on cell A1
    If Target.Address = "$A$1" Then
        ' Insert value on column 2
        Me.Cells(1, 2).Insert xlShiftDown
        Me.Cells(1, 2).Value = Target.Value
    End If
End Sub