| 查看: 372 | 回复: 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 ] |
回复此楼» 猜你喜欢
一志愿太原理工安全工程300分，求调剂
已经有5人回复
-
调剂求院校招收
已经有4人回复
-
求化学调剂
已经有4人回复
-
085600，材料与化工321分求调剂
已经有7人回复
-
一志愿武汉理工，总分321，英一数二，求老师收留。
已经有6人回复
-
考研调剂
已经有6人回复
-
0856求调剂
已经有12人回复
-
0703化学
已经有9人回复
-
0703化学求调剂
已经有10人回复
-
317求调剂
已经有6人回复
6