| 查看: 402 | 回复: 0 | ||
ujqt007金虫 (正式写手)
|
[求助]
求大神指点：利用VBA Calculate跟踪记录单元格变化，不知道哪里出错了？
|
|
详情如下 某特定单元格数据发生了变化，该变化并非人为更改而是通过公式计算得出的，想通过VBA Calculate跟踪记录其变化 Private Sub Worksheets_Calculate(ByVal Target As Range) If Not sheet.Intersect(Target, [A1]) Is Nothing Then Application.EnableEvents = False y = Sheets(2).Columns(1).Find("*", , xlValues, , , 2).Row Sheets(2).Range("A" & y + 1) = Sheets(1).Range(" A1" ).Value Sheets(2).Range("A1" ) = "" End If Application.EnableEvents = True End Sub 运行发现，表1中A1发生变化时，表2中没反应，不知道哪里出错了？ [ Last edited by ujqt007 on 2013-4-29 at 15:35 ] |
回复此楼» 猜你喜欢
自然基金已经彻底沦为学术资源的交换工具
已经有30人回复
-
全人类对于AI的整体认知，尚且停留在幼儿园启蒙阶段
已经有7人回复
-
周末思考-婚姻长久底色
已经有12人回复
-
27考博求助
已经有4人回复
-
深圳大学材料学院“智能分子材料团队”招聘博士后
已经有4人回复
-
面上的水很深
已经有32人回复
-
国社科通讯评审
已经有8人回复