Excel VBA 从一系列单元格中填充用户窗体上的组合框 - VBA

在 Excel VBA 编程中，用户窗体是非常常见的部分。而组合框是窗体中常用的元素之一，可以方便地向用户提供下拉列表，帮助用户选择需要的数据。本文将介绍如何使用 VBA 从一系列单元格中填充用户窗体上的组合框。

步骤

1. 首先，需要在 VBA 编辑器中打开窗体设计器。在菜单栏中选择“工具”->“窗体设计器”即可打开。

2. 在窗体设计器中选择需要添加组合框的区域，并在工具箱中选择“组合框”工具。将组合框拖拽到窗体中。

3. 在组合框的属性中，找到“样式”属性，并将其设置为“1-下拉列表框”。

4. 在 VBA 编辑器中打开窗体代码模块，在代码模块中声明组合框变量，并添加窗体“加载”事件代码。

Private Sub UserForm_Initialize()

    '声明变量
    Dim rngData As Range
    Dim strData() As String
    Dim i As Integer
    
    '选定数据范围
    Set rngData = Range("A2:A10")
    
    '将数据添加到字符串数组中
    For Each cell In rngData
        ReDim Preserve strData(i)
        strData(i) = cell.Value
        i = i + 1
    Next cell
    
    '将字符串数组中的数据填充到组合框中
    With Me.ComboBox1
        .List = strData
        .Value = strData(0)
    End With

End Sub

5. 在以上代码中，首先声明了需要使用的变量。其中 rngData 变量用于选定数据范围；strData() 变量则用于存储从数据范围中取得的数据。变量 i 则用于计数。

6. 然后，在代码中用 Set 命令将数据范围指定为 A2:A10 单元格。然后，使用 For Each 循环，将每个单元格的值添加到字符串数组 strData() 中。

7. 最后，使用 With 命令将数据填充到组合框中。.List 属性用于设置组合框的内容，.Value 属性则用于设置组合框的默认值。

8. 在完成上述步骤后，点击窗体设计器中的“运行”按钮即可预览填充后的组合框效果。

总结

上述就是使用 Excel VBA 从一系列单元格中填充用户窗体上的组合框的步骤。通过以上步骤，可以在 Excel VBA 编程中方便地使用组合框提供下拉列表，提高用户体验。