Прокрутите до первой выделенной ячейки

Question

У меня есть лист Excel из 1250 позиций.В заголовке я сделал одну ячейку (I4) для ввода искомого значения.После нажатия кнопки ввода строка соответствующего значения на листе будет подсвечена.

Поскольку мне нужно прокрутить вниз, чтобы добраться до нее и ввести значение в первой ячейке выделенной строки, мне нужно что-то, что выбираетпервая ячейка выделенной строки, когда я ввел значение в ячейку (I4) и нажал клавишу ввода.

Answer 1

Вам необходимо установить Событие в своем коде SHEET, а не в коде MODULE.Это должно быть событие Worksheet_Change.Этот код должен работать.Я включил пару защит на случай, если пользователь входит, очищает и т. Д.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count = 1 And Not Intersect(Target, Me.Range("i4")) Is Nothing Then

    If IsNumeric(Target.Value) Then
        If Target.Value > 0 Then

            Me.Rows(Target.Value).Select

        End If
    End If
End If

End Sub

Answer 2

Пожалуйста, введите свой номер строки здесь:

ActiveWindow.ScrollRow = YourRow

И если вы хотите вернуться к диапазону («А1»), даже если ваши окна выложены на панели, вы можете использовать это:

Private Sub ScrollHome()
    Dim i As Integer
    ActiveWindow.ScrollRow = 1
    ActiveWindow.ScrollColumn = 1
    For i = 1 To ActiveWindow.Panes.Count
        ActiveWindow.Panes(i).ScrollRow = 1
        ActiveWindow.Panes(i).ScrollColumn = 1
    Next i
End Sub