.Offset用法:(如果是多选单元格,偏移后选定的依然是区域)
Selection.Offset(-1).select 'upSelection.Offset(1).select 'downSelection.Offset(,-1).select 'LeftSelection.Offset(,1).select 'RIght2.Item用法:(如果选定单元格越界,也会产生错误)Selection.Item(0,1).select 'upSelection.Item(2,1).select 'downSelection.Item(1,0).select 'LeftSelection.Item(1,2).select 'RIght3.Item省略用法:(如果选定单元格越界,也会产生错误)Selection(0,1).select 'upSelection(2,1).select 'downSelection(1,0).select 'LeftSelection(1,2).select 'RIghtPrivate Sub CommandButton1_Click() Range("F6").SelectEnd SubPrivate Sub CommandButton2_Click() Selection.Offset(-1).Select 'UpEnd SubPrivate Sub CommandButton3_Click() Selection.Offset(1).Select 'Down
End SubPrivate Sub CommandButton4_Click() Selection.Offset(, -1).Select 'LeftEnd SubPrivate Sub CommandButton5_Click() Selection.Offset(, 1).Select 'RightEnd SubPrivate Sub CommandButton6_Click() Selection.Item(0, 1).Select 'UpEnd SubPrivate Sub CommandButton7_Click() Selection(2, 1).Select 'DownEnd SubPrivate Sub CommandButton8_Click() Selection(1, 0).Select 'LeftEnd SubPrivate Sub CommandButton9_Click() Selection.Item(1, 2).Select 'RightEnd Sub