[已解决]自动获取时间失效

simatu

我在表单中实现了两个功能：
1、点击指定单元格自动获取系统当前时间
2、当E16为“是“时，自动隐藏第17行

问题：
两个功能单独运行时均OK，合到一起后，时间获取无效（参见附件表格）。还请各位高人赐教

最佳答案

月排行榜 / 总排行榜

展翅

2012-12-12 14:31

在change事件的隐藏行代码前面先加上Application.EnableEvents = False，end sub前再改回true即可。

祝成功。

跳转到最佳答案楼层

展翅

自动获取系统当前时间，在楼主的文件中是Worksheet_SelectionChange，而不是Worksheet_Change，所以两个不能放在一起。

simatu

展翅 发表于 2012-12-11 17:12
自动获取系统当前时间，在楼主的文件中是Worksheet_SelectionChange，而不是Worksheet_Change，所以两个不能 ...

版主，我把获取时间的事件命名成：Worksheet_SelectionChange
           隐藏行的事件命名成：Worksheet_Change

现在的问题是：隐藏行无效。。。（参见附件表格）
还请再指教

展翅

在change事件的隐藏行代码前面先加上Application.EnableEvents = False，end sub前再改回true即可。

祝成功。

simatu

展翅 发表于 2012-12-12 14:31
在change事件的隐藏行代码前面先加上Application.EnableEvents = False，end sub前再改回true即可。

祝成 ...

多谢版主！

simatu

展翅 发表于 2012-12-12 14:31
在change事件的隐藏行代码前面先加上Application.EnableEvents = False，end sub前再改回true即可。

祝成 ...

版主，针对这个表单，经常会在编辑过程中跳转到表尾去，比如我在单击时间单元格时就会（隐藏行代码中有选定行的语句的缘故？）
有没有办法避免跳转阿？

展翅

建议使用这个调试技巧：在事件程序中，选中一句代码，按F9设置断点；同时打开VBA编辑窗。
在触发代码后，在编辑窗口按F8逐步执行，看看跳转问题发生在哪里，然后添加类似上面的语句。

simatu

展翅 发表于 2012-12-12 16:01
建议使用这个调试技巧：在事件程序中，选中一句代码，按F9设置断点；同时打开VBA编辑窗。
在触发代码后，在 ...

按照版主提供的断点执行的方法试了下，确定是隐藏行代码中的问题：每次触动都去判断条件然后选中指定行。

至于如何避免重复判断尚待版主进一步指教。。。

simatu

simatu 发表于 2012-12-12 17:15
按照版主提供的断点执行的方法试了下，确定是隐藏行代码中的问题：每次触动都去判断条件然后选中指定行。 ...

在隐藏行事件中增加判断语句：

if target.row>16 then end

即可避免跳转

陈小林

{:011:}