Visual Basic/Excel: 如何select 一个相对单元格?
Visual Basic/Excel: How to select a relative cell?
在我正在录制的宏中,我希望它 select 一行中的第二个单元格(B 列)。
所以如果 A7 被 selected,宏将 select A2,
如果 H4 是 selected,宏将 select H2.
您需要一个工作表事件。未经测试,但应该朝着正确的方向前进
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column < 2 Then
Range(Target.Column.Offset(0,1)).Select
Elseif Target.Column > 2 Then
Range(Target.Offset(0,2-Target.Column)).Select
End If
End Sub
考虑:
Sub dural()
Cells(2, ActiveCell.Column).Select
End Sub
或select列2
Sub qwerty()
Cells(ActiveCell.Row, 2).Select
End Sub
在我正在录制的宏中,我希望它 select 一行中的第二个单元格(B 列)。
所以如果 A7 被 selected,宏将 select A2,
如果 H4 是 selected,宏将 select H2.
您需要一个工作表事件。未经测试,但应该朝着正确的方向前进
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column < 2 Then
Range(Target.Column.Offset(0,1)).Select
Elseif Target.Column > 2 Then
Range(Target.Offset(0,2-Target.Column)).Select
End If
End Sub
考虑:
Sub dural()
Cells(2, ActiveCell.Column).Select
End Sub
或select列2
Sub qwerty()
Cells(ActiveCell.Row, 2).Select
End Sub