| 查看: 369 | 回复: 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 ] |
回复此楼» 猜你喜欢
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有9人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有4人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有6人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有4人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有5人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有5人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有8人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有10人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有6人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有6人回复
