Question

我打算根据显示板原始数据准备一张图表。

现在的问题是，一旦生产生产一个部分，例如2到3,3到4＆amp;等...... ..

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

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

Answer 1

我想我理解你想要将一些数据从一个单元格复制到另一个单元格（或单元格）来修复图形的日期。如何在工作表更改事件中添加类似于此代码的内容。我假设我们正在将值从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

这是我的第一篇文章，如果我不能正确理解这个问题，那就很抱歉。

Answer 2

很抱歉延迟，这需要一些错误处理，但可能会提供下一步。 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

Answer 3

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

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>

在代码之后我创建了2个用于计时器启动的命令按钮＆amp;停止。

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

3 个答案: