如果单元格值更改，Excel将单元格值复制到另一个单元格

我计划准备一个基于显示板原始数据的图表

现在的问题是，一旦生产部门生产一个零件，比如2到3、3到4等等，原始数据就会不断更新

我想将单元格值复制到另一个单元格，以获得图形的数据。 因此，每当单元格值更新时，excel都会将上一个或当前值复制到另一个工作表中

---

如果您了解要求，请提供帮助。

我想我知道您希望将一些数据从一个单元格复制到另一个单元格（或多个单元格），以确定图表的日期。在工作表更改事件中添加类似于此代码的内容如何。我假设我们正在将一个值从E3复制到G3

Private Sub Worksheet_Change(ByVal Target As Range)

' Copy value from E3 to G3 when E3 changes

Cells(3, 7).Value = Cells(3, 5).Value


End Sub

---

这是我的第一篇帖子，如果我没有正确理解这个问题，很抱歉。

很抱歉延迟，这需要一些错误处理，但可能会提供下一步。H3即单元格（3，9）用作行计数器，每次更改E3中的值时递增1。从H3中的3开始

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Integer

' Copy value from E3 to G3 when E3 changes, use H3 as row marker/counter

If Target = Cells(3, 5) Then

    c = Cells(3, 9).Value

    Cells(c, 7).Value = Cells(3, 5).Value

    Cells(3, 9).Value = c + 1

Else

End If

---

End Sub

在其他网站上得到了我的答案，它工作正常

Option Explicit
Public dTime As Date

Sub ValueStore()
Dim dTime As Date
    Range("B" & Cells(Rows.Count).Row).End(xlUp).Offset(1, 0).Value = Range("A1").Value
    Call StartTimer
End Sub


Sub StartTimer()
    dTime = Now + TimeValue("00:00:05")
    Application.OnTime dTime, "ValueStore", Schedule:=True
End Sub

Sub StopTimer()
    On Error Resume Next
    Application.OnTime dTime, "ValueStore", Schedule:=False
End Sub<code> 

---

代码完成后，我创建了两个计时器启动和停止命令按钮。

您能提供一些更具体的信息吗？你的输入数据在哪里？它与图形将引用的数据在同一工作簿中，还是在不同的文件中？您是否考虑过使用单元格引用？相同的文件或不同的文件…都可以..引用将复制当前值..您已经很好地理解了…但是我尝试使用此代码…但不起作用…请详细说明如何正确使用它..在VBA编辑器（Alt+F11加载它）中，打开项目资源管理器（Ctrl+R）。在项目资源管理器中找到工作簿，然后双击要在其中运行代码的工作表。现在可以将上述代码粘贴到右侧的“代码”窗口中。您需要将我在示例（E3和G3）中使用的单元格地址修改为您正在使用的任何单元格。谢谢您…它工作了…我不确定（单元格（3，7）。Value=单元格（3，5）。Value）5和7表示的列…但我的要求是保留更改…因此下次只更新一次3，7，之后，4，7，5，7，6、7等等……知道怎么做吗……谢谢“gaz”的回复。我从其他帖子中得到了这些代码…只有当我在主单元格中按enter键时，它才能正常工作…它不会自动更新<代码>代码私有子工作表\u更改（ByVal目标作为范围）如果Target.Address=Range（“A1”）.Address然后“获取目标工作表上的最后一行（使用Sheet2，此处的A列）。。。Dim intLastRow的长度为intLastRow=Sheet2.Cells（Sheet2.Rows.Count，“A”）.End（xlUp）.Row'将我们的值添加到下一行。。。Sheet2.单元格（intLastRow+1，“A”）=目标值结束，如果结束子