Microsoft Forms 2.0 Object Library：ユーザーフォームとインターフェースの作成

Sub CreateUserForm()
    ' UserFormを作成
    Dim uf As Object
    Set uf = VBA.UserForms.Add()

    ' Labelを追加
    Dim lbl As Object
    Set lbl = uf.Controls.Add("Forms.Label.1", "lblName")
    lbl.Caption = "Enter your name:"
    lbl.Top = 10
    lbl.Left = 10

    ' TextBoxを追加
    Dim txt As Object
    Set txt = uf.Controls.Add("Forms.TextBox.1", "txtName")
    txt.Top = 30
    txt.Left = 10
    txt.Width = 150

    ' CommandButtonを追加
    Dim btn As Object
    Set btn = uf.Controls.Add("Forms.CommandButton.1", "btnSubmit")
    btn.Caption = "Submit"
    btn.Top = 60
    btn.Left = 10

    ' ボタンクリックイベントの処理
    btn.OnClick = "BtnSubmit_Click"

    ' UserFormを表示
    uf.Show
End Sub

Sub BtnSubmit_Click()
    ' UserForm上のTextBoxから値を取得してメッセージボックスに表示
    Dim userName As String
    userName = VBA.UserForms(0).Controls("txtName").Text
    MsgBox "Hello, " & userName & "!", vbInformation, "Greeting"

    ' UserFormを閉じる
    VBA.UserForms(0).Hide
End Sub

Sub CreateAdvancedUserForm()
    ' UserFormを作成
    Dim uf As Object
    Set uf = VBA.UserForms.Add()

    ' Labelを追加
    Dim lblName As Object
    Set lblName = uf.Controls.Add("Forms.Label.1", "lblName")
    lblName.Caption = "Name:"
    lblName.Top = 10
    lblName.Left = 10

    ' TextBoxを追加
    Dim txtName As Object
    Set txtName = uf.Controls.Add("Forms.TextBox.1", "txtName")
    txtName.Top = 10
    txtName.Left = 80
    txtName.Width = 150

    ' ComboBoxを追加
    Dim cboCity As Object
    Set cboCity = uf.Controls.Add("Forms.ComboBox.1", "cboCity")
    cboCity.Top = 40
    cboCity.Left = 80
    cboCity.Width = 150
    cboCity.AddItem "New York"
    cboCity.AddItem "Los Angeles"
    cboCity.AddItem "Chicago"

    ' ListBoxを追加
    Dim lstHobbies As Object
    Set lstHobbies = uf.Controls.Add("Forms.ListBox.1", "lstHobbies")
    lstHobbies.Top = 70
    lstHobbies.Left = 80
    lstHobbies.Width = 150
    lstHobbies.Height = 60
    lstHobbies.AddItem "Reading"
    lstHobbies.AddItem "Traveling"
    lstHobbies.AddItem "Cooking"

    ' CommandButtonを追加
    Dim btnSubmit As Object
    Set btnSubmit = uf.Controls.Add("Forms.CommandButton.1", "btnSubmit")
    btnSubmit.Caption = "Submit"
    btnSubmit.Top = 140
    btnSubmit.Left = 80

    ' ボタンクリックイベントの処理
    btnSubmit.OnClick = "BtnAdvancedSubmit_Click"

    ' UserFormを表示
    uf.Show
End Sub

Sub BtnAdvancedSubmit_Click()
    ' UserForm上のTextBox, ComboBox, ListBoxから値を取得してメッセージボックスに表示
    Dim userName As String
    Dim city As String
    Dim hobbies As String

    userName = VBA.UserForms(0).Controls("txtName").Text
    city = VBA.UserForms(0).Controls("cboCity").Text
    hobbies = VBA.UserForms(0).Controls("lstHobbies").Text

    MsgBox "Name: " & userName & vbCrLf & _
           "City: " & city & vbCrLf & _
           "Hobbies: " & hobbies, vbInformation, "User Information"

    ' UserFormを閉じる
    VBA.UserForms(0).Hide
End Sub

Sub CreateBoundUserForm()
    ' UserFormを作成
    Dim uf As Object
    Set uf = VBA.UserForms.Add()

    ' ListBoxを追加
    Dim lstData As Object
    Set lstData = uf.Controls.Add("Forms.ListBox.1", "lstData")
    lstData.Top = 10
    lstData.Left = 10
    lstData.Width = 200
    lstData.Height = 100

    ' シートデータのバインディング
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Dim i As Integer
    For i = 1 To ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
        lstData.AddItem ws.Cells(i, "A").Value
    Next i

    ' UserFormを表示
    uf.Show
End Sub