Дважды щелкните, чтобы перейти между верхом и низом столбца таблицы.

Question

Как я могу изменить эту подпрограмму, чтобы двойной щелчок по той же ячейке переместился между верхом и низом столбца таблицы?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If ActiveCell.Value = "Jump" Then
        Cancel = True
        Cells(Rows.Count, 1).End(xlUp).Offset(0, 1).Select
    End If
End Sub

Answer 1

Вы можете сделать что-то вроде этого:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Value = "Jump" Then
        Cancel = True
        If Target.Row < 10 Then
            Cells(Rows.Count, 1).End(xlUp).Offset(0, 1).Select
        Else
            Cells(1, 1).Select
        End If
    End If
End Sub

Редактировать: если вы просто хотите переключить направление, то:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Static GoUp As Boolean
    If Target.Value = "Jump" Then
        Cancel = True
        If GoUp  Then
            Cells(Rows.Count, 1).End(xlUp).Offset(0, 1).Select
        Else
            Cells(3, 1).Select 'first cell below any frozen rows at the top
        End If
        GoUp = Not GoUp
    End If
End Sub