excel 将宏应用于同一工作簿中的任何工作表

rn0zuynd  于 2023-03-24  发布在  其他
关注(0)|答案(1)|浏览(158)

我有一堆工作表在同一工作簿,我希望能够点击一个按钮,并运行在工作表中的宏,我点击了宏按钮。
这是我的代码之一:

Sub PromoCC()  
PromoCC Macro  
    Sheets("Tipos de Proyecto").Select  
    Rows("3:69").Select  
    Range("Promoción_Nuevo_SKU_Compra_Item").Activate  
    Selection.Copy

我想更改下一行,以便能够将复制的数据粘贴到宏调用者工作表

**Sheets("General").Select**  
    Range("A4").Select  
    Selection.End(xlDown).Select  
    Selection.Insert  
    Shift:=xlDown  
    Range("C5").Select  
End Sub

我需要一个解决方案的活动表代码,造成“活动表”后的数据被复制是不同的宏调用表。

6ojccjat

6ojccjat1#

在代码中,当通过单击按钮调用宏时,可以记录所处的工作表并将工作表名称存储在变量中。
它可以稍后在代码中使用。
创建变量

Public CurrentWorkbook As String
Public CurrentSheet As String

在变量中存储值

CurrentWorkbook = ActiveWorkbook.Name
CurrentSheet = ActiveWorkbook.ActiveSheet.Name

然后,当你想引用存储的值时,使用如下代码:

Windows(CurrentWorkbook).Activate
ActiveWorkbook.Sheets(CurrentSheet).Select

相关问题