VBA实现单元格位移

VBA使单元格位移

前面讲了OFFSET函数位移,当然函数是要人一次次敲的。能不能简便点呢?有!宏或VBA实现!

代码如下:

 
  1. sub my_offset   
  2. on error  resume next
  3. ActiveCell.Offset(01).Select’当前单元格向左移动一格   
  4. ActiveCell.Offset(0, –1).Select’当前单元格向右移动一格   
  5. ActiveCell.Offset(1 ,   0).Select’当前单元格向下移动一格   
  6. ActiveCell.Offset(-1  , 0).Select’当前单元格向上移动一格   
  7. end sub   

上面代码为宏代码,当然还可以指定为事件如change等,3~6选项只能选择一项执行!

备注:我只不过把位移代码全写上了!自己选择!

分享到:

0 条评论

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如, ABC是本文的评论者之一,则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all ',将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称

沙发空缺中,还不快抢~