Question

EXCEL工作簿切换到某工作表时，怎样让窗口始终显示行数相同的位置？

比如，一个EXCEL工作簿有5个工作表，当前工作表1显示的行数第200行，我要切换到表3,我想让表3也跳到显示第200行的位置，这样就省去用鼠标拉工作表到这个位置。

Answer 1

Option Explicit
Dim i&, j&

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If i <> 0 Then Cells(i, j).Select
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
i = Target.Row: j = Target.Column
End Sub

追问

请问怎样填这些代码呢？可否再具体一点，最好有个操作步骤。本人是菜鸟中的菜鸟。

追答

ALT+F1进入代码编辑窗口
双击ThisWorkBook
在右侧粘贴这些代码
回到表格输入界面就可以用了。