如何在Excel VBA中创build一个通用combobox填充例程？

我想有一个通用的方法来填充应用程序7.1的Microsoft Visual Basic中的combobox。

我试图用CType将控件参数CType为comboBox，但是Excel不能识别这个函数。

我怎样才能以通用的方式填充combobox？

Answer 1

最简单的方法是通过combobox的名称。 您不必将control投射到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 

在您的UserForm或任何地方看起来像这样的调用：

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