VBA用户表单Update功能异常：数据错误写入Sheet1而非Sheet2

问题根源 #

你遇到的跨工作表写入问题，本质是未明确指定单元格所属的工作表对象：仅靠Sheet2.Activate切换活动表，但后续Cells(selectedRow, ...)操作会默认使用当前激活的工作表——如果代码执行过程中活动表意外切换为Sheet1（比如表单控件所在工作表是Sheet1、或控件触发时焦点变化），就会导致数据写入错误的工作表。

修正后的代码 #

将所有单元格操作明确绑定到目标工作表（Sheet2），彻底避免依赖激活状态：

Private Sub Update_Click()
    Dim selectedRow As Long
    Dim targetWS As Worksheet
    Dim lookupWS As Worksheet
    Dim matchResult As Variant
    
    ' 明确指定目标工作表（要更新的Sheet2）和SN查找表
    Set targetWS = ThisWorkbook.Sheets("Sheet2")
    Set lookupWS = ThisWorkbook.Sheets("Data") ' 若SN存储在Sheet2，改为Set lookupWS = targetWS
    
    ' 安全匹配SN行号，避免找不到时报错
    matchResult = Application.Match(CLng(Me.SN.Value), lookupWS.Range("A:A"), 0)
    If IsError(matchResult) Then
        MsgBox "SN未找到，请检查输入！", vbExclamation
        Exit Sub
    End If
    selectedRow = matchResult
    
    ' 批量写入数据，通过With语句绑定targetWS
    With targetWS
        .Cells(selectedRow, 3).Value = hour.Value & ":" & minute.Value & " " & ampm.Value
        .Cells(selectedRow, 4).Value = PTID.Value
        .Cells(selectedRow, 2).Value = cmbdate.Value & "/" & cmbmonth.Value & "/" & cmbyear.Value
        .Cells(selectedRow, 5).Value = UNIT.Value
        .Cells(selectedRow, 6).Value = PCBOX.Value
        .Cells(selectedRow, 7).Value = WASTE.Value
        .Cells(selectedRow, 8).Value = REPORTED.Value
        .Cells(selectedRow, 9).Value = DETBOX.Value
        .Cells(selectedRow, 10).Value = FOLBOX.Value
        .Cells(selectedRow, 11).Value = SUMBOX.Value
        .Cells(selectedRow, 12).Value = CAPBOX.Value
        .Cells(selectedRow, 13).Value = EHOR.Value
        .Cells(selectedRow, 14).Value = TECHS.Value & "," & TECHS2.Value & "," & TECHS3.Value & "," & TECHS4.Value
        .Cells(selectedRow, 15).Value = ERRORBOX.Value
        .Cells(selectedRow, 16).Value = PREVBOX.Value
        .Cells(selectedRow, 17).Value = SOP.Value
        .Cells(selectedRow, 18).Value = AUDIFILE.Value
        .Cells(selectedRow, 19).Value = INTERFILE.Value
        .Cells(selectedRow, 20).Value = cmbdate2.Value & "/" & cmbmonth2.Value & "/" & cmbyear2.Value
        .Cells(selectedRow, 23).Value = Phase.Value
        .Cells(selectedRow, 24).Value = QIM.Value
    End With
    
    MsgBox "条目已更新，请核对内容。", vbInformation, "更新完成"
End Sub

关键修改点 #

1. 移除Activate操作：激活工作表不是操作单元格的必要步骤，反而容易引发焦点切换问题。
2. 绑定工作表对象：用targetWS明确指向Sheet2，所有Cells操作前加.前缀，确保数据写入目标表。
3. 添加错误处理：用Application.Match替代WorksheetFunction.Match，避免SN不存在时代码崩溃。
4. 统一写入逻辑：通过With语句简化代码，确保所有列的写入逻辑一致，不会出现部分列漏绑定工作表的情况。

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