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

Question

我有一个在Excel表底部的按钮，点击它会生成另一个工作表。该函数运行良好，但我需要在单击按钮后返回到工作表顶部，而不是新工作表。

应该使用什么类型的VBA代码来实现这一点？

- Mike Barnes

Answer 1

尝试这个示例...

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

- matzone

---

@MikeBarnes .. 你应该试试这个。 - matzone

Answer 2

试试这个：

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

- silkfire

---

这假设包含按钮的工作簿中的表格是第一个表格，但这并不确定，因此这可能是一个可行的解决方案。 - Ripster

Answer 3

请使用以下代码：

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

- Andrey Gordeev

---

我想把视图返回到A1！ - Mike Barnes

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

- Ripster