VBA excel - 模塊與用戶表單中的類似控件和連接功能？

Question

我正在使用組合框使用 VBA excel 制作問卷。 我有 36 個組合框（cmb1、cmb2、cmb3... cmb36），我使用 For 循環從我的 excel 表“選項”中填充我的組合框，使用以下代碼：

Private Sub UserForm_Initialize()
For i = 1 To 36
   Controls("cmb" & i).RowSource = "Options!A1:A5"
Next i 
End sub

這可行，但我想使用模塊做類似的事情（即使用從模塊調用 function 的數組填充組合框，而不是在 UserForm 中初始化它們），但我無法在模塊中使用控件 function我不知道如何連接“cmb”和“i”並做類似的事情

任何幫助將不勝感激，謝謝！

Answer 1

這是完成任務的一種方法：

用戶表單代碼

Option Explicit

Private Sub UserForm_Initialize()
   InitControls Me
End Sub

模塊代碼

Option Explicit

Public Sub InitControls(ByVal MyForm As UserForm)
   Dim i As Integer

   For i = 1 To 36
      MyForm.Controls("cmb" & i).RowSource = "Options!A1:A5"
   Next i
End Sub