VBA实现单元格位移

• 宏代码 • 暂无评论 • •4,339 次查阅

VBA使单元格位移

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

代码如下：

 
  1. sub my_offset   
  2. on error  resume next
  3. ActiveCell.Offset(0, 1).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必须和评论者名相匹配(大小写一致)。

昵称▼

沙发空缺中，还不快抢~