Question

是否可以在创建新工作表时插入宏。例如，我有一个包含所有数据的主工作表，当我点击命令按钮时，它会过滤掉我需要的行和列，并将其粘贴到名为Europe的新工作表上。当＆＃34; Europe＆＃34;是否可以在那里设置一个命令按钮。工作表是否已创建？

Answer 1

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

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

如何在创建新工作表时插入宏

1 个答案: