打开工作簿时如何始终在单元格A1上？

众所周知，当您打开工作簿时，它将显示您上次保存和关闭它的位置。 您如何始终保持在特定单元格A1上打开每个工作表的工作簿？ 本文将讨论一些解决方法。

始终使用VBA代码打开单元格A1处的每个工作表的工作簿

始终使用VBA代码在特定工作表和单元格A1上打开工作簿

始终使用VBA代码打开单元格A1处的每个工作表的工作簿

例如，您总是希望工作簿在每个工作表的单元格A1处打开，而不管上次关闭它时您在工作簿中的位置。 请执行以下操作：

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。 在左边 项目-VBA项目 窗格，双击 的ThisWorkbook 打开一个空白模块，然后将以下代码复制并粘贴到该模块中，请参见屏幕截图：

VBA代码：始终在单元格A1处打开每个工作表的工作簿：

Private Sub Workbook_SheetActivate(ByVal Wsh As Object)
'Updateby Extendoffice
On Error Resume Next
Wsh.Range("A1").Select
End Sub

2。 然后关闭此代码，然后单击 文件 > 另存为 将工作簿另存为 Excel启用宏的工作簿 格式，请参见屏幕截图：

3。 从现在开始，下次打开此工作簿时，请单击 启用内容 要激活代码并在工作表之间切换，您可以看到每个工作表自动位于单元格A1处。

始终使用VBA代码在特定工作表和单元格A1上打开工作簿

如果每次启动工作簿时只需要在单元格A1处打开特定工作表，则以下VBA代码可能会为您提供帮助。

例如，打开工作簿时，我总是要转到单元格A1处的Sheet1。

1. 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。 在左边 项目-VBA项目 窗格，双击 的ThisWorkbook 打开一个空白模块，然后将以下代码复制并粘贴到该模块中，请参见屏幕截图：

VBA代码：始终在单元格A1处打开带有特定工作表的工作簿：

Private Sub Workbook_Open()
'Updateby Extendoffice
Application.Goto ThisWorkbook.Sheets("Sheet1").Range("A1"), True
End Sub

备注：在上面的代码中， Sheet1 和 A1 是打开工作簿时要转到的工作表和单元格引用。 您可以根据需要更改它们。

2。 然后关闭此代码，然后单击 文件 > 另存为 将工作簿另存为 Excel启用宏的工作簿 格式，从现在开始，当您下次打开此工作簿时，请单击 启用内容 激活代码，它将自动转到单元格A1处的Sheet1。