Excel--使用VBA Code 动态创建、修改和删除自定义窗体代码摘抄

Sub CreateUserform()

'PURPOSE: Create & Modify a Userform with VBA Code
'AUTHOR: John Walkenbach (www.SpreadsheetPage.com)
'SOURCE: www.TheSpreadsheetGuru.com

'******************************************************************
'NOTE: You need to set a reference to the extensibility add-in.
'To do this, go to Tools -> References and find the add-in
'Microsoft Visual Basic for Applications Extensibility 5.3
'******************************************************************

Dim myUserform As Object
Dim FormName As String
Dim NewButton As MSForms.CommandButton
Dim TextLocation As Integer
Dim x As Integer

    'Locks Excel Spreadsheet and Speeds Up Form Processing
        Application.VBE.MainWindow.Visible = False
        Application.ScreenUpdating = False
    
    'Create a New UserForm
        Set myUserform = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm)
    
    'Set Properties for Userform (aka: myUserform)
        With myUserform
            .Properties("Caption") = "Temporary Form"
            .Properties("Width") = 200
            .Properties("Height") = 100
        End With
    
    FormName = myUserform.Name

    'Add a CommandButton and Modify it's Properties
        Set NewButton = myUserform.Designer.Controls.Add("forms.CommandButton.1")
            With NewButton
                .Caption = "Click Me"
                .Left = 60
                .Top = 40
            End With

    'Add an event-hander Sub for your CommandButton
        With myUserform.CodeModule
            x = .CountOfLines
            .InsertLines x + 1, "Sub CommandButton1_Click()"
            .InsertLines x + 2, "MsgBox ""Hello!"""
            .InsertLines x + 3, "Unload Me"
            .InsertLines x + 4, "End Sub"
        End With

    'Show This Form
        VBA.UserForms.Add(FormName).Show

    'Delete This Form
        ThisWorkbook.VBProject.VBComponents.Remove VBComponent:=myUserform

End Sub