显示电子表格左上角的选择-Displayselectionatupperleftcornerofspreadsheet

Here is how you get the spreadsheet to roll to the cell you want:

以下是将电子表格滚动到所需单元格的方法:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False            
        ActiveWindow.ScrollColumn = Target.Column
        ActiveWindow.ScrollRow = Target.Row
    Application.EnableEvents = True
End Sub

I think you will find that this will drive the users crazy, but you can probably modify it to get a friendlier effect.

我想你会发现这会让用户疯狂,但你可以修改它以获得更好的效果。

ALT + F11
Double click on ThisWorkbook in the treeview on left (inside VBA).
Paste this code into WorkBook class

ALT + F11在左侧的树视图中双击ThisWorkbook(在VBA内)。将此代码粘贴到WorkBook类中

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Cells(1, 1).Value = Selection.Cells(1).Address
End Sub

Change Selection.Cells(1).Address to Selection.Cells(1).Value

Change Selection.Cells(1).Address toCells(1).Value

Note: This will occurr for all sheets inside the workbook. You could change it make it work for a specific sheet by adding a check using the Sh instance in the code.

注意:这将出现在工作簿中的所有工作表。您可以通过在代码中使用Sh实例添加检查来更改它使其适用于特定工作表。