vba - 单击按钮后如何返回单元格 A1？

Question

我的 Excel 工作表底部有一个按钮，可以单击生成另一个工作表盎司。该功能工作正常，但我需要在单击按钮后返回工作表顶部，而不是返回新工作表。

将使用哪种 VBA 代码来执行此操作？

Answer 1

Try this sample ..

Application.GoTo ActiveSheet.Range("A1"),True

Answer 2

尝试这个：

Sheets(1).Select
ActiveSheet.Range("A1").Select

Answer 3

使用此代码：

MsgBox ThisWorkbook.Sheets("New_sheet_name").Range("A1")

Answer 4

将此添加到按钮单击子。当您单击该按钮时，这将检查您当前在哪个工作表上，运行您的代码，完成后返回上一个工作表并在视图中选择 A1。

Sub Example()
   Dim PrevSheet as Worksheet

   PrevSheet = ActiveSheet

   'Your code that does stuff, creates a new sheet etc..

   PrevSheet.Select
   Range("A1").Select
End Sub