Question

我有一个包含1250个订单项的Excel工作表。在标题处，我做了一个单元格（I4），以输入要查找的值。单击回车后，工作表中匹配值的行将突出显示。

由于我必须向下滚动才能到达它并在突出显示的行的第一个单元格中输入一个值，所以我需要一些东西，一旦我在单元格（I4）中输入了值，就选择了突出显示的行的第一个单元格并按Enter。

Answer 1

请在此处插入行号：

ActiveWindow.ScrollRow = YourRow

如果您想回滚到Range（“ A1”），即使您的窗口平铺在窗格中，也可以使用以下方法：

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

Answer 2

您需要使用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

滚动到第一个突出显示的单元格

2 个答案: