Vba 创建新图纸时如何插入宏

创建新图纸时是否可以插入宏。例如，我有一个包含所有数据的主工作表，当我单击命令按钮时，它会过滤掉我需要的行和列，并将其粘贴到名为Europe的新工作表上。创建“Europe”工作表时，是否可以在此处设置命令按钮？

以下宏将创建一个新工作表，设置其名称，在工作表上创建一个新按钮，更改标签，并为按钮指定一个现有宏

Sub AddWorksheetWithMacroButton()
    Dim btn As Button
    Dim wks As Worksheet

    'Create new worksheet
    Set wks = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))

    'Set worksheet Name
    wks.Name = "MyNewSheet"

    'Add new button to worksheet (left pos, top pos, width, height)
    Set btn = wks.Buttons.Add(390, 61.5, 94.5, 31.5)

    'Lable button
    btn.Characters.Text = "Button Label"

    'Assign existing macro (Macro1) to button
    btn.OnAction = "Macro1"
End Sub

---

对你的问题是什么？那我怎么做？目前，我有代码来运行我需要的功能。我现在需要的是在创建新工作表（在本例中为Europe）时获得commandbutton的帮助。因此，您希望将绑定到宏的commandbutton插入到新工作表中吗？我想您需要的是挂在

工作簿.VBProject

上的某个东西，所以对于“Macro1”，我将其更改为这个？btn.OnAction=ArrangeColumn？很抱歉，我刚开始学习vba，我需要很多帮助。假设您已经在单独的模块（不在特定的工作表上）中有了这样的宏

Sub ArrangeColumn…

，则可以设置按钮触发此宏：

btn.OnAction=“ArrangeColumn”

。