Excel VBA中如何达到光标上下左右移动的效果选择相邻的单元格区域，sendkeys方法无效

发布网友

我来回答

共2个回答

热心网友

这个不是很困难吧，你想太多了，方法有很多种，给你列举几种。

1.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

追问亲，你测试后再说吧。offset不行，item没试，应该也是不行的

追答

怎么可能呢！

你下载附件自己测试吧！！！

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

热心网友

不明白是什么意思

热心网友

这个不是很困难吧，你想太多了，方法有很多种，给你列举几种。

1.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

追问亲，你测试后再说吧。offset不行，item没试，应该也是不行的

追答

怎么可能呢！

你下载附件自己测试吧！！！

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

热心网友

不明白是什么意思