VBA用户窗体：ComboBox选择合并文本框并保存至工作表问题

核心问题分析 #

你的代码已经解决了运行时错误，但缺少将窗体文本框内容写入工作表命名区域的逻辑，同时数组中直接引用控件对象而非其值的问题也会导致潜在异常。以下是针对性的修复方案：

修正后的标准模块代码 #

Sub EmailSL()
    Dim i As Long
    Dim b As Variant
    Dim c As Variant
    Dim strCon As String
    Dim ws As Worksheet
    
    ' 明确指定目标工作表
    Set ws = Sheets("Master")
    
    ' 存储窗体控件引用
    b = Array(frmMaster.txtSO, frmMaster.txtPO, frmMaster.txtPOAmt, _
              frmMaster.txtProposal, frmMaster.txtNickname, frmMaster.txtEUNickname, _
              frmMaster.txtSys)
    c = Array(frmMaster.txtSO, frmMaster.txtPO, frmMaster.txtPOAmt, _
              frmMaster.txtProposal, frmMaster.txtNickname, frmMaster.txtEUNickname, _
              frmMaster.cboOrderType)
     
    ' 初始化合并字符串为工单编号
    strCon = frmMaster.txtShopOrdNum.Value
   
    Select Case frmMaster.cboOrderType.Value
        Case "System", "System IC"
                For i = 0 To 6
                    ' 检查控件值非空（含去除空格判断）
                    If Trim(b(i).Value) <> vbNullString Then
                        strCon = strCon & ", " & b(i).Value
                    End If
                Next
        Case "Service", "Repair"
                For i = 0 To 6
                    If Trim(c(i).Value) <> vbNullString Then
                        strCon = strCon & ", " & c(i).Value
                    End If
                Next
    End Select
    
    ' 更新窗体文本框
    frmMaster.txtEmailSubLine.Value = strCon
    
    ' 将合并结果写入工作表命名区域
    ws.Range("EMAILSUBLINE").Value = strCon
End Sub

窗体触发逻辑（添加到用户窗体代码模块） #

在窗体中添加触发事件，比如下拉框变更时自动执行合并：

Private Sub cboOrderType_Change()
    Call EmailSL
End Sub

或者添加按钮点击触发：

Private Sub cmdGenerateSubject_Click()
    Call EmailSL
End Sub

关键修复点说明 #

1. 控件值正确引用：原代码中直接对比控件对象（b(i)）与空字符串，需改为b(i).Value获取控件文本内容。
2. 写入工作表逻辑：新增ws.Range("EMAILSUBLINE").Value = strCon，直接将合并结果写入目标命名区域。
3. 空值判断优化：使用Trim()避免因空格导致的无效逗号添加。
4. 移除反向触发事件：原Worksheet_Change事件是监听工作表变更后更新窗体，与需求相反，可直接删除。

额外验证步骤 #

1. 确认EMAILSUBLINE命名区域存在且指向Master工作表的正确单元格（通过「公式→名称管理器」检查）。
2. 确保用户窗体名称为frmMaster，与代码中的引用一致。

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