如何单击工作表上的按钮以执行逐步执行工作表的宏，然后使用单击按钮返回到工作表？

Question

我有一个宏，它将操作应用于我的工作簿中的每个工作表;这个宏有效。我需要在每个执行此宏的工作表上放置一个单击按钮，然后返回到单击该按钮的工作表。

Answer 1

在宏的开头（切换工作表之前）存储对活动工作表的引用。在宏的末尾激活引用以返回到初始工作表。

Public Sub ClickMacro（）

Dim ws As Worksheet
Set ws = ActiveSheet          'Store reference
Worksheets("Sheet2").Activate 'Change worksheet, do work
ws.Activate                   'Return to initial worksheet

End Sub