如何在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