VBA用户窗体：选择组合框Other时用文本框值写入工作表可行吗？

没问题，这完全可行！而且这是VBA用户窗体里非常常见的交互场景，我给你一步步拆解实现方法：

1. 先准备用户窗体控件 #

• 在你的用户窗体上添加一个文本框，建议命名为txtOther（方便代码识别）
• 选中这个文本框，在属性窗口里把Visible属性设置为False，这样窗体初始化时它是隐藏的

2. 编写组合框的Change事件代码 #

当用户切换组合框选项时，我们要根据选中的内容显示/隐藏文本框。双击你的cmbLocation组合框，进入它的Change事件，写入以下代码：

Private Sub cmbLocation_Change()
    ' 判断选中的是否是"Other"
    If cmbLocation.Value = "Other" Then
        txtOther.Visible = True
        txtOther.SetFocus ' 自动聚焦到文本框，提升用户体验
    Else
        txtOther.Visible = False
        txtOther.Text = "" ' 清空之前输入的内容，避免残留
    End If
End Sub

3. 实现写入工作表表格的逻辑 #

假设你有一个提交按钮（比如命名为btnSubmit），点击时把数据写入工作表的表格。这里分两种情况处理：

• 如果选中的是"Other"，就取文本框的值
• 否则取组合框的选中值

示例代码如下：

Private Sub btnSubmit_Click()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim newRow As ListRow
    
    ' 替换成你的工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 替换成你的表格名称（ListObject的名字）
    Set tbl = ws.ListObjects("Table1")
    
    ' 添加新行到表格
    Set newRow = tbl.ListRows.Add(AlwaysInsert:=True)
    
    ' 根据选择写入对应值
    If cmbLocation.Value = "Other" Then
        newRow.Range(1) = txtOther.Text ' 这里的1代表表格的第一列，根据你的需求调整列号
    Else
        newRow.Range(1) = cmbLocation.Value
    End If
    
    ' 提交后可以重置控件状态
    cmbLocation.Value = ""
    txtOther.Visible = False
    txtOther.Text = ""
End Sub

一些小提示 #

• 记得给用户窗体添加提交按钮，不然没有触发写入的入口
• 如果你的表格不是ListObject（而是普通单元格区域），可以直接用ws.Cells(lastRow, 1).Value = 对应值的方式写入，其中lastRow是工作表最后一行的行号
• 可以添加简单的验证，比如选中"Other"时文本框不能为空，避免写入空值：

  If cmbLocation.Value = "Other" And txtOther.Text = "" Then
      MsgBox "请输入自定义位置信息！", vbExclamation
      txtOther.SetFocus
      Exit Sub
  End If
  

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