[已解决]请问老师，为什么这个Worksheet_Change事件不能调试也不能运行？？谢谢

雨雪霏

请问老师，为什么这个Worksheet_Change（在sheet2中）事件不能调试也不能运行？？谢谢

最佳答案

月排行榜 / 总排行榜

无聊的疯子

2011-4-17 19:02

单元格事件是不能直接用 F8 测试的
不过可以通过在代码中加个>>无用的变量>>来让其发生错误,>>然后点调试>>再删除这个变量,就可以用F8调试了

比如说兰版的代码中加个 "X"  喜欢加什么随便你
Private Sub Worksheet_Change(ByVal Target As Range)
X
cc = Application.WorksheetFunction.Match("一", Range("a1", "e1"), 0)
Worksheets("2").Range("A1") = cc
End Sub

只要是加在SUb和 End Sub 中间的任意行就可以用此方法测试

当然,你还得激发这个事件才能调试这个代码!

跳转到最佳答案楼层

兰色幻想

Private Sub Worksheet_Change(ByVal Target As Range)
cc = Application.WorksheetFunction.Match("一", Range("a1", "e1"), 0)
Worksheets("2").Range("A1") = cc
End Sub

无聊的疯子

单元格事件是不能直接用 F8 测试的
不过可以通过在代码中加个>>无用的变量>>来让其发生错误,>>然后点调试>>再删除这个变量,就可以用F8调试了

比如说兰版的代码中加个 "X"  喜欢加什么随便你
Private Sub Worksheet_Change(ByVal Target As Range)
X
cc = Application.WorksheetFunction.Match("一", Range("a1", "e1"), 0)
Worksheets("2").Range("A1") = cc
End Sub

只要是加在SUb和 End Sub 中间的任意行就可以用此方法测试

当然,你还得激发这个事件才能调试这个代码!

无聊的疯子

回复 雨雪霏 的帖子

另外,你的代码是写在sheet1的单元格事件里面的,你在sheet2里操作当然不会触发事件啦

雨雪霏

回复 兰色幻想 的帖子

谢谢兰色老师！受到老师的启发，我又编写了一下，查找黄色区域对应字母的数字，我认为自己的代码过长了，像那些worksheets("sheet2").range("a1:E1")等不能换成range("a1:E1")，（尽管我用了activate方法），请老师讲一下可以吗？？谢谢老师

雨雪霏

回复 无聊的疯子 的帖子

这位老师，请问一下，什么时候要在range 对象前加上worksheets("").?谢谢

吕?布

事件触发是你在相应的工作表中，从用户界面进行特定的操作，然后触发相应的事件
要调试事件可以先在事件代码上设置断点，然后在界面操作触发事件进行调试

Ronaldo09

先记下 以后看