VBA Userform开发需求：根据批次号在对应行添加沉浸时长

我们给你的Userform新增一个独立的可选功能模块，专门处理「按批次号添加沉浸时长」的需求，完全不会影响原有信息录入流程：

步骤1：在Userform上添加控件 #

• 添加1个标签（Label），把Caption属性设为「批次号」
• 添加1个文本框（TextBox），命名为LoteTEXT
• 添加1个命令按钮（CommandButton），Caption设为「添加沉浸时长」，命名为AddImmersionTime_Click

步骤2：编写功能按钮的VBA代码 #

把以下代码粘贴到Userform的代码窗口中：

Private Sub AddImmersionTime_Click()
    Dim sh As Worksheet
    Dim targetRow As Range
    Dim batchNum As Variant
    Dim immersionHours As Double
    
    ' 指定目标工作表
    Set sh = ThisWorkbook.Sheets("SVPA")
    
    ' 校验批次号输入
    If Trim(LoteTEXT.Value) = "" Then
        MsgBox "请输入批次号", vbExclamation, "提示"
        LoteTEXT.SetFocus
        Exit Sub
    End If
    If Not IsNumeric(LoteTEXT.Value) Then
        MsgBox "批次号必须是数字", vbExclamation, "提示"
        LoteTEXT.SetFocus
        Exit Sub
    End If
    batchNum = CLng(LoteTEXT.Value)
    
    ' 查找对应批次号的行
    On Error Resume Next
    Set targetRow = sh.Range("K:K").Find(What:=batchNum, LookIn:=xlValues, LookAt:=xlWhole)
    On Error GoTo 0
    
    ' 判断是否找到目标批次
    If targetRow Is Nothing Then
        MsgBox "未找到批次号为 " & batchNum & " 的记录", vbExclamation, "提示"
        LoteTEXT.SetFocus
        Exit Sub
    End If
    
    ' 输入沉浸时长（以小时为单位，比如输入2代表2小时）
    immersionHours = Application.InputBox("请输入沉浸时长（小时）：", "沉浸时长输入", Type:=1)
    If immersionHours = False Then Exit Sub ' 用户取消输入
    
    ' 写入H列并设置HH:MM格式
    With sh.Range("H" & targetRow.Row)
        .Value = TimeSerial(immersionHours, 0, 0) ' 存储为可计算的时间值
        .NumberFormat = "HH:MM" ' 设置显示格式
    End With
    
    ' 自动更新F列结束时间（如果你的业务逻辑需要）
    sh.Range("F" & targetRow.Row).Value = sh.Range("E" & targetRow.Row).Value + sh.Range("H" & targetRow.Row).Value
    
    MsgBox "已成功为批次号 " & batchNum & " 添加 " & Format(TimeSerial(immersionHours, 0, 0), "HH:MM") & " 的沉浸时长", vbInformation, "操作完成"
    LoteTEXT.Value = "" ' 清空批次号输入框
End Sub

对原有Apply_Click代码的小优化 #

原代码中F列的赋值语句缺少工作表前缀，容易引发错误，建议修改：
把原代码里的：

sh.Range("F" & lastrow).Value = Range("E" & lastrow).Value + Range("H" & lastrow).Value

改成：

sh.Range("F" & lastrow).Value = sh.Range("E" & lastrow).Value + sh.Range("H" & lastrow).Value

功能说明 #

• 这个按钮是独立的可选操作，和原有信息录入流程互不干扰
• 自带错误校验：空批次号、非数字批次号、未找到批次的情况都会给出明确提示
• 支持任意批次号的定位，沉浸时长以小时为单位输入，自动转换为HH:MM格式存储和显示
• 可选自动更新F列的结束时间（匹配你原有业务逻辑）

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