如何在Excel VBA中创建通用组合框填充例程？

Question

我想有一个通用的方法来填充Microsoft Visual Basic for Application 7.1中的组合框。

我尝试使用CType将控制参数CType为comboBox，但Excel无法识别此函数。

如何以通用方式填充comboBox？

Answer 1

最简单的方法是通过ComboBox的名称。 您不必将control comboBox为comboBox 。

Public Sub FillComboBox(UserForm As UserForm, cbName As String, column As String, startRow As Integer)
    Dim dataSheet As Worksheet
    Dim Count As Integer
    Set dataSheet = Worksheets("yourWorksheetName")

    Count = WorksheetFunction.CountA(dataSheet.Range(column & startRow & ":" & column & "10000")) - 1
    UserForm.Controls(cbName).List = dataSheet.Range(column & startRow & ":" & column & startRow + Count).value
End Sub

用户窗体中的调用或任何位置如下所示：

FillComboBox Me, Me.cbMyComboBox.name, "A", 1