• 博客园logo
  • 会员
  • 众包
  • 新闻
  • 博问
  • 闪存
  • 赞助商
  • HarmonyOS
  • Chat2DB
    • 搜索
      所有博客
    • 搜索
      当前博客
  • 写随笔 我的博客 短消息 简洁模式
    用户头像
    我的博客 我的园子 账号设置 会员中心 简洁模式 ... 退出登录
    注册 登录

gisoracle

  • 博客园
  • 联系
  • 订阅
  • 管理

公告

View Post

excel 鼠标上下左右移动

.Offset用法:(如果是多选单元格,偏移后选定的依然是区域)
Selection.Offset(-1).select  'up
Selection.Offset(1).select   'down
Selection.Offset(,-1).select  'Left
Selection.Offset(,1).select   'RIght
 
2.Item用法:(如果选定单元格越界,也会产生错误)
Selection.Item(0,1).select  'up
Selection.Item(2,1).select   'down
Selection.Item(1,0).select  'Left
Selection.Item(1,2).select   'RIght
 
3.Item省略用法:(如果选定单元格越界,也会产生错误)
Selection(0,1).select  'up
Selection(2,1).select   'down
Selection(1,0).select  'Left
Selection(1,2).select   'RIght
Private Sub CommandButton1_Click()
    Range("F6").Select
End Sub
 
Private Sub CommandButton2_Click()
    Selection.Offset(-1).Select    'Up
End Sub
 
Private Sub CommandButton3_Click()
    Selection.Offset(1).Select   'Down搜索
End Sub
 
 
Private Sub CommandButton4_Click()
    Selection.Offset(, -1).Select   'Left
End Sub
 
Private Sub CommandButton5_Click()
    Selection.Offset(, 1).Select  'Right
End Sub
 
Private Sub CommandButton6_Click()
    Selection.Item(0, 1).Select   'Up
End Sub
 
Private Sub CommandButton7_Click()
    Selection(2, 1).Select  'Down
End Sub
 
Private Sub CommandButton8_Click()
    Selection(1, 0).Select   'Left
End Sub
 
Private Sub CommandButton9_Click()
    Selection.Item(1, 2).Select  'Right
End Sub

posted on 2018-03-11 20:09  gisai  阅读(2119)  评论(0)    收藏  举报

刷新页面返回顶部
 
博客园  ©  2004-2025
浙公网安备 33010602011771号 浙ICP备2021040463号-3