返回按下按钮的工作表

Question

我有以下宏在每张表中选择单元格A3：

Sub test ()
Sheet1.Select
Range("A3").Select
Sheet2.Select
Range("A3").Select
Sheet3.Select
Range("A3").Select
End Sub

在每张纸上我都有一个链接到这个宏的按钮。 如果您在sheet2中，则单击每个工作表中的按钮 将选择单元格A3，最后您将在sheet3中 你按下了sheet2中的按钮，因为宏以sheet3结束。

但是，我想要一旦宏运行，你就在你按下按钮的工作表中。你知道如何解决这个问题吗？

Answer 1

检查

Sub test()
Dim sht_name As String
sht_name = ActiveSheet.Name
Sheet1.Select
Range("A3").Select
Sheet2.Select
Range("A3").Select
Sheet3.Select
Range("A3").Select
Sheets(sht_name).Activate
End Sub

Answer 2

Sub test()
strME = Application.ActiveSheet.Name

Sheet1.Select
Range("A3").Select
Sheet2.Select
Range("A3").Select
Sheet3.Select
Range("A3").Select

Application.Sheets(strME).Select

End Sub