如何使用UserForm从所选工作簿中选择工作表

UserForm 是 Visual Basic for Applications (VBA) 中的一个对象，用于创建自定义的用户界面。通过 UserForm，可以方便地从所选工作簿中选择工作表。下面是一个完善且全面的答案：

UserForm 是 VBA 中的一个对象，用于创建自定义的用户界面。通过 UserForm，可以方便地从所选工作簿中选择工作表。下面是一个示例代码，演示如何使用 UserForm 实现这个功能：

首先，在 VBA 编辑器中，通过按下 Alt + F11 快捷键打开 VBA 编辑器。
在 VBA 编辑器中，选择所需的工作簿，然后插入一个新的模块。
在新的模块中，编写以下代码：

Sub SelectWorksheet()
    Dim ws As Worksheet
    Dim frm As UserForm
    
    ' 创建 UserForm
    Set frm = New UserForm
    
    ' 设置 UserForm 的属性
    With frm
        .Caption = "选择工作表"
        .Width = 300
        .Height = 200
    End With
    
    ' 添加一个列表框控件到 UserForm
    With frm.Controls.Add("Forms.ListBox.1")
        .Left = 10
        .Top = 10
        .Width = 280
        .Height = 150
        
        ' 填充列表框控件的选项
        For Each ws In ThisWorkbook.Worksheets
            .AddItem ws.Name
        Next ws
    End With
    
    ' 添加一个确定按钮到 UserForm
    With frm.Controls.Add("Forms.CommandButton.1")
        .Caption = "确定"
        .Left = 110
        .Top = 170
        .Width = 80
        .Height = 20
        
        ' 设置按钮的点击事件
        With frm.CodeModule
            .InsertLines .CountOfLines + 1, "Private Sub CommandButton1_Click()"
            .InsertLines .CountOfLines + 1, "    Dim selectedSheet As String"
            .InsertLines .CountOfLines + 1, "    selectedSheet = ListBox1.Value"
            .InsertLines .CountOfLines + 1, "    MsgBox ""您选择了 "" & selectedSheet & "" 工作表。"""
            .InsertLines .CountOfLines + 1, "    Unload Me"
            .InsertLines .CountOfLines + 1, "End Sub"
        End With
    End With
    
    ' 显示 UserForm
    frm.Show
End Sub