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选项只能选择一项执行!

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

分享到: