Excel 2010 VBA 入门 134 创建具有窗体交互的函数

本文链接：https://blog.csdn.net/ngbshzhn/article/details/121228312

本文介绍了如何使用Excel VBA创建一个具有窗体交互的函数，允许用户从列表中选择多个值，然后返回选定的值。通过详细步骤解释了如何设置窗体、添加控件和编写代码，特别强调了ListBox控件Selected属性的应用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

题

在许多程序中，经常需要调用一个窗体，让用户选取列表中的若干个值，然后根据这些选中的值进行下一步操作。可以编写一个函数以便其他程序调用，该函数允许传递自定义的列表，并返回从用户列表中选择的值。

码

首先声明一个全局变量用以记录用户选择的值。然后创建一个带有列表框和确定按钮的窗体，为按钮添加Click事件，将列表框中选中的项目作为赋值给全局变量。接着编写一个函数，可以接收数组作为窗体列表的选项。在函数运行过程中打开窗体，并将数组的元素作为项目添加至列表框。然后将全局变量作为函数的返回值。
步骤1 按组合键【Alt+F11】打开VBE。
步骤2 选择菜单“插入”→“用户窗体”，并在窗体中插入一个Label控件、一个ListBox控件和一个CommandButton控件。
步骤3 在“工程资源管理器”中用鼠标右键单击之前插入的窗体，选择“查看代码”，并输入以下代码。

Option Explicit

Private Sub CommandButton1_Click()
    With Me.ListBox1
        If IsNull(.Value) Then
            sitem = ""
        Else
            sitem = .Value
        End If
    End With
    
    Unload Me
End Sub

Private Sub UserForm_Initialize()
    sitem = ""
    With Me.Label1
        .Top = 5
        .Left = 5
        .Heig