[已解决]求一段换行的编码

eking_tang

求大神帮忙写一段换行的VBA

无论鼠标点到哪个单元格
间隔N秒,自动跳到下一格

举例:如果现在鼠标选取在C2单元格,3秒后跳到C3,再过3秒跳到C4,再3秒跳到C5.....

感謝先

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-5-20 10:16

1. Option Explicit
   
2. 
   
3. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
4.     Dim dt As Double
   
5.     strRg = Target(1).Address
   
6.     dt = Now + TimeValue("00:00:03")
   
7.     Application.OnTime dt, "movetonext"
   
8. End Sub
   

复制代码

1. Public strRg$
   
2. 
   
3. Sub moveToNext()
   
4.     If strRg = ActiveCell.Address Then
   
5.         Range(strRg).Offset(1).Select
   
6.     End If
   
7. End Sub
   

复制代码

纯演示。

跳转到最佳答案楼层

hwc2ycy

1. Option Explicit
   
2. 
   
3. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
4.     Dim dt As Double
   
5.     strRg = Target(1).Address
   
6.     dt = Now + TimeValue("00:00:03")
   
7.     Application.OnTime dt, "movetonext"
   
8. End Sub
   

复制代码

1. Public strRg$
   
2. 
   
3. Sub moveToNext()
   
4.     If strRg = ActiveCell.Address Then
   
5.         Range(strRg).Offset(1).Select
   
6.     End If
   
7. End Sub
   

复制代码

纯演示。

hwc2ycy

没有加结束任务的代码，另外，也没有做判断，当移动到最后一行时会要报错。

hwc2ycy

第一个过程放在对应的工作表模块中。
第二个过程需放在标准模块中。

qh8600

这样会死机的，至少你要设置跳多少次

hwc2ycy

qh8600 发表于 2014-5-20 10:19
这样会死机的，至少你要设置跳多少次

我的EXCEL刚就死过一次了，

eking_tang

hwc2ycy 发表于 2014-5-20 10:20
我的EXCEL刚就死过一次了，

呵呵~~讲的有点小恐怖~~
我会慎用的~~{:011:}
感谢版主大人

eking_tang

hwc2ycy 发表于 2014-5-20 10:16
纯演示。

为什么我只能加1分~~~选自定义~~就受到对话框提示"请输入正确的分值"...

hwc2ycy

eking_tang 发表于 2014-5-20 11:40
为什么我只能加1分~~~选自定义~~就受到对话框提示"请输入正确的分值"...

级别太低了。

eking_tang

hwc2ycy 发表于 2014-5-20 12:13
级别太低了。

...{:031:}好吧~~这个只能跪了~