VBA实现ComboBox匹配工作簿数据返回结果到TextBox问题咨询

现有代码存在的问题 #

• 符号错误：使用了中文全角引号“”，VBA仅支持英文半角引号""，会直接触发语法报错
• 循环结构不完整：缺少Next i语句闭合For循环，无法正常运行
• 赋值逻辑错误：连续三次给同一个Me.TBdata控件赋值，最终只会保留D列的数值，C列数据会被完全覆盖
• 匹配逻辑冗余：同时匹配原始值和Val()转换后的值，反而容易因为日期格式不统一导致匹配失败
• 工作表引用不严谨：未指定工作簿，当同时打开多个工作簿时可能引用错误的工作表

修复后代码 #

场景1：使用两个TextBox分别展示C、D列数据 #

假设展示C列的TextBox名称为TB_colC，展示D列的为TB_colD，请根据实际控件名修改：

Private Sub CBsupplier2_Change()
    Dim i As Long
    Dim LastRow As Long
    Dim wsLog As Worksheet
    
    ' 明确绑定当前代码所在工作簿的Log工作表
    Set wsLog = ThisWorkbook.Sheets("Log")
    ' 计算Log表A列最后一行行号
    LastRow = wsLog.Range("A" & wsLog.Rows.Count).End(xlUp).Row
    
    ' 先清空文本框旧值
    Me.TB_colC = ""
    Me.TB_colD = ""
    
    For i = 2 To LastRow
        ' 先判断两边都是日期格式再比较，避免类型报错
        If IsDate(wsLog.Cells(i, "A").Value) And IsDate(Me.CBsupplier2.Value) Then
            If CDate(wsLog.Cells(i, "A").Value) = CDate(Me.CBsupplier2.Value) Then
                Me.TB_colC = wsLog.Cells(i, "C").Value
                Me.TB_colD = wsLog.Cells(i, "D").Value
                ' 匹配到目标行直接退出循环，无需继续遍历
                Exit For
            End If
        End If
    Next i
End Sub

将上述代码放到UserForm的代码编辑界面即可，会在ComboBox选项变化时自动触发。

场景2：仅用一个TextBox拼接展示C、D列数据 #

如果只有一个TBdata控件，将匹配成功后的赋值逻辑替换为以下代码即可：

' 普通拼接，可自定义分隔符
Me.TBdata = "C列：" & wsLog.Cells(i, "C").Value & "  D列：" & wsLog.Cells(i, "D").Value

' 如需换行展示，先把TextBox的MultiLine属性设为True，再用下方代码
' Me.TBdata = wsLog.Cells(i, "C").Value & vbCrLf & wsLog.Cells(i, "D").Value

额外注意事项 #

• 给ComboBox填充选项时建议直接读取A列的日期值，不要转成文本，避免匹配时格式不一致
• 如果Log表A列存在重复日期，代码会返回最靠上的匹配行数据，如需返回所有匹配行可以删除Exit For语句，调整赋值逻辑为累加即可

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