Excel VBA 合并两个逻辑相同的UserForm初始化模块需求咨询

核心思路是将重复逻辑封装为通用子过程，把可变的「读取列标识」、「绑定目标控件」作为入参传入，无需重复编写逻辑代码。

步骤1：新增通用复用子过程 #

将两段代码的公共逻辑抽取为独立子过程，放在用户窗体的代码模块中：

' 通用功能：读取DBTemp指定列的非空去重值，写入支持AddItem方法的目标控件
Private Sub CarregarDadosControle(coluna As String, ByRef controle As Object)
    Dim ultimaLin As Long, area As New Collection
    Dim valor As Variant, temp() As Variant
    
    On Error Resume Next
    
    ultimaLin = Sheets("DBTemp").Range(coluna & Rows.Count).End(xlUp).Row
    temp = Sheets("DBTemp").Range(coluna & "2:" & coluna & ultimaLin).Value
    
    For Each valor In temp
        If Len(valor) > 0 Then area.Add valor, CStr(valor)
    Next valor
    
    For Each valor In area
        controle.AddItem valor
    Next valor
    
    Set area = Nothing
End Sub

步骤2：合并后的初始化事件代码 #

仅保留1个UserForm_Initialize事件，分别调用通用子过程传入对应参数即可：

Private Sub UserForm_Initialize()
    ' 读取A列数据绑定到书名控件
    Call CarregarDadosControle("A", Me.titulo_livro)
    ' 读取B列数据绑定到作者控件
    Call CarregarDadosControle("B", Me.autor_livro)
End Sub

方案优势 #

• 后续新增其他列与控件的绑定需求，仅需新增一行调用语句即可，无需重复编码
• 逻辑迭代仅需修改通用子过程一处，全场景同步生效，维护成本低
• 适配任意支持AddItem方法的控件（组合框、列表框等）和任意数据列，灵活性高

内容的提问来源于stack exchange，提问作者Sebie8