[已解决]VBA命令返回当前鼠标位置的上一个单元格

yjwdjfqb

请朋友们写一个：

宏命令返回当前鼠标位置的上一个单元格　代码

如当前鼠标位置在D4，那么执行宏就是将鼠标返回到D3。

最佳答案

月排行榜 / 总排行榜

hrpotter

2012-3-11 11:17

yjwdjfqb 发表于 2012-3-11 08:56
谢谢朋友的帮助，

刚发现如果鼠标位置在第一行的时候，就会提示错误，

1. Sub test()
   
2.     If ActiveCell.Row > 1 Then
   
3.         ActiveCell.Offset(-1, 0).Select
   
4.     End If
   
5. End Sub

复制代码

跳转到最佳答案楼层

hrpotter

1. Sub test()
   
2.     ActiveCell.Offset(-1, 0).Select
   
3. End Sub

复制代码

yjwdjfqb

hrpotter 发表于 2012-3-10 19:31

谢谢朋友的帮助，

刚发现如果鼠标位置在第一行的时候，就会提示错误，

能否再在代码加一个判断语句行吧，

就是当光标第一行的时候就是返回鼠标当前位置的下一个单元格，
其它的就是返回鼠标当前位置的的上一个单元格

hrpotter

yjwdjfqb 发表于 2012-3-11 08:56
谢谢朋友的帮助，

刚发现如果鼠标位置在第一行的时候，就会提示错误，

1. Sub test()
   
2.     If ActiveCell.Row > 1 Then
   
3.         ActiveCell.Offset(-1, 0).Select
   
4.     End If
   
5. End Sub

复制代码

yjwdjfqb

hrpotter 发表于 2012-3-11 11:17

非常的感谢老师！！！