Excel VBA UserForm：根据ComboBox值将TextBox内容写入对应列

1. 初始化ComboBox1的预设选项 #

打开UserForm的代码窗口，添加UserForm_Initialize事件代码，给ComboBox设置可选值：

Private Sub UserForm_Initialize()
    With ComboBox1
        .AddItem "17"
        .AddItem "19"
        .AddItem "21"
        .AddItem "23"
        .AddItem "25"
        .AddItem "25+"
    End With
End Sub

2. 编写写入逻辑（以确认按钮为例） #

在UserForm上添加一个命令按钮（比如命名为CommandButton1），给按钮的点击事件添加以下代码，实现根据选中项写入对应列的功能：

Private Sub CommandButton1_Click()
    Dim targetRow As Long
    Dim targetCol As Integer
    Dim inputValue As Variant
    
    ' 获取当前活动行
    targetRow = ActiveCell.Row
    
    ' 检查输入是否为空
    If Trim(TextBox1.Value) = "" Then
        MsgBox "请输入数值！", vbExclamation
        TextBox1.SetFocus
        Exit Sub
    End If
    
    ' 转换输入为数值类型，避免文本写入
    inputValue = Val(TextBox1.Value)
    If inputValue = 0 And Trim(TextBox1.Value) <> "0" Then
        MsgBox "请输入有效的数值！", vbExclamation
        TextBox1.SetFocus
        Exit Sub
    End If
    
    ' 匹配选中值与目标列
    Select Case ComboBox1.Value
        Case "17": targetCol = 8  ' H列
        Case "19": targetCol = 9  ' I列
        Case "21": targetCol = 10 ' J列
        Case "23": targetCol = 11 ' K列
        Case "25": targetCol = 12 ' L列
        Case "25+": targetCol = 13 ' M列
        Case Else
            MsgBox "请选择有效的选项！", vbExclamation
            ComboBox1.SetFocus
            Exit Sub
    End Select
    
    ' 写入数值到目标单元格
    Cells(targetRow, targetCol).Value = inputValue
    
    ' 清空输入控件（可选）
    TextBox1.Value = ""
    ComboBox1.Value = ""
    
    Unload Me
End Sub

补充说明 #

如果不需要按钮触发，想在ComboBox选择后直接写入，可把核心逻辑移到ComboBox1_Change事件中，但建议添加判断条件，避免重复或误写入。

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