새 시트를 만들 때 매크로를 삽입하는 방법

Question

새 시트를 만들 때 매크로를 삽입 할 수 있습니까? 예를 들어, 모든 데이터가있는 기본 워크 시트가 있고 명령 단추를 클릭하면 필요한 행과 열을 필터링하여 유럽이라는 새 워크 시트에 붙여 넣습니다. "유럽"워크 시트를 만들 때 명령 단추를 준비 상태로 설정할 수 있습니까?

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