.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