excel自动记录变得的数据

13718116672

excel中 A表中的数字是引用网上的数据，这个数据是实时更新的，不需要手动输入。网友曾经给出的方法可以实现记录数据，但 A 表中的数据实时更新时，就不能记录在 B 表中，只能手动在A表中输入数据。源码是这样的：1 留取B表上的一个单元格作为计数，如C1，预先输入数值1；

2 选取B表的A列->鼠标右键->设置单元格格式->自定义->"yyyy-m-d"->确认；

注：如果要记录同一天的多次改动，可能需要显示时间，即要设置成"yyyy-m-d h:m:s"；

并将A列的宽度设至足够宽；

3 工具->宏->Visual Basic编辑器

在内左框双击A表单的对象页面，在右框录入以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    If (Target.Row = 1 And Target.Column = 1) Then
        Worksheets("B").Cells(1, 3).Value = Worksheets("B").Cells(1, 3).Value + 1
        Worksheets("B").Cells(Worksheets("B").Cells(1, 3).Value, 1).Value = Now
        Worksheets("B").Cells(Worksheets("B").Cells(1, 3).Value, 2).Value = Worksheets("A").Cells(1, 1).Value
    End If
End Sub
4 回到Excel，在A表单即可。 希望网友能帮忙优化上面的代码，解决我上面说的这个问题，十分感谢！

唐朝123

上传附件，把需求描述清楚。

13718116672

谢谢网友关注，这是原文件。

13718116672

唐朝123 发表于 2019-2-19 13:16
上传附件，把需求描述清楚。

谢谢您，望指教

13718116672

补充说明，

唐朝123

13718116672 发表于 2019-2-19 13:30
谢谢您，望指教

原来做的A-B表是用A表[A1]的单元格change触发事件，适合于单元格的值改变，但是单元格通过公式连接的话就不行，因为变化的是连接的值，而不是[A1]的值，稍作修改就好了，前提是你想什么时候触发运行记录，比如表A激活的时候还是什么时候。

唐朝123

或者表格“原始数据”的事件换成下面代码，A表就不用了：
Private Sub Worksheet_Change(ByVal Target As Range)
    If (Target.Row = 25 And Target.Column = 2) Then
        Worksheets("B").Cells(1, 3).Value = Worksheets("B").Cells(1, 3).Value + 1
        Worksheets("B").Cells(Worksheets("B").Cells(1, 3).Value, 1).Value = Now
        Worksheets("B").Cells(Worksheets("B").Cells(1, 3).Value, 2).Value = Worksheets("原始数据").Cells(25, 2).Value
    End If
End Sub

13718116672

唐朝123 发表于 2019-2-19 13:46
原来做的A-B表是用A表[A1]的单元格change触发事件，适合于单元格的值改变，但是单元格通过公式连接的话就 ...

触发运行记录的时间是根据“原始数据”表，“原始数据”表的更新时间可以按我设定的时间更新的

13718116672

问题已解决，谢谢网页帮助

Jinmoy

唐朝123 发表于 2019-2-19 13:52
或者表格“原始数据”的事件换成下面代码，A表就不用了：
Private Sub Worksheet_Change(ByVal Target As  ...

老师，你好，参照您的建议，我也完成了调整，实现了记录功能，致敬。
但是我的用法和楼主有差别，不是从网络更新数据并记录，而是自己生成随机数据，模拟随机抽样并进行计算分析，记录随机样本的分析结果，但在设置了change触发后，需要双击计算结果的单元格，记录数据的位置才会记录，如果用F9刷新，却不会触发change的命令记录数据。可以在excel中实现F9刷新后，自动记录数据吗