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