我有一个宏,它将一个操作应用到我的工作簿中的每个工作表;这个宏可以工作。我需要在执行此宏的每个工作表上放置一个单击按钮,然后返回到单击该按钮的工作表。
发布于 2015-01-22 09:23:39
将对活动工作表的引用存储在宏的开头(在切换工作表之前)。在宏末尾,激活引用以返回到初始工作表。
公有子ClickMacro()
Dim ws As Worksheet
Set ws = ActiveSheet 'Store reference
Worksheets("Sheet2").Activate 'Change worksheet, do work
ws.Activate 'Return to initial worksheet
结束子对象
https://stackoverflow.com/questions/28081298
复制