Excel VBA代码运行时无法自动更新，请求技术排查

当前代码是手动执行的宏，没有设置自动触发机制，所以当Sheet1的B10（客户选择项）变化时，不会自动运行Customer_Load更新数据。另外原代码存在潜在风险：如果Sheet2第一行的单元格地址格式无效，会直接导致赋值失败。

1. 添加自动触发的工作表事件 #

要实现B10值变化时自动更新数据，需在Sheet1的代码模块中添加Worksheet_Change事件，结合优化后的核心逻辑：

Option Explicit

' 手动执行宏（保留用于手动触发更新）
Sub Customer_Load()
    Dim CustRow As Long, CustCol As Long
    Dim targetCell As Range
    
    With Sheet1
        If .Range("B10").Value = Empty Then
            MsgBox "Please Select Customer"
            Exit Sub
        End If
        
        ' 验证B10是有效数字（对应Sheet2的行号）
        If Not IsNumeric(.Range("B10").Value) Then
            MsgBox "B10 must be a number (corresponding to row number in Sheet2)"
            Exit Sub
        End If
        
        CustRow = CLng(.Range("B10").Value)
        
        ' 检查Sheet2中是否存在目标行
        If CustRow > Sheet2.Cells(Rows.Count, 2).End(xlUp).Row Then
            MsgBox "Target row does not exist in Sheet2"
            Exit Sub
        End If
        
        ' 清空目标填充区域
        .Range("E3,E5,E7,E9,E11,H3,H5,H7,H9,H11,D13:H15").ClearContents
        
        ' 循环赋值，增加无效地址容错
        For CustCol = 2 To 11
            On Error Resume Next
            Set targetCell = .Range(Sheet2.Cells(1, CustCol).Value)
            On Error GoTo 0
            
            If Not targetCell Is Nothing Then
                targetCell.Value = Sheet2.Cells(CustRow, CustCol).Value
            Else
                MsgBox "Invalid cell address in Sheet2 Row1, Column" & CustCol & ": " & Sheet2.Cells(1, CustCol).Value
            End If
        Next CustCol
    End With
End Sub

' Sheet1单元格变化事件：B10修改时自动运行更新逻辑
Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅监听B10的修改
    If Not Intersect(Target, Me.Range("B10")) Is Nothing Then
        ' 禁用事件防止递归触发（赋值操作可能再次触发Change事件）
        Application.EnableEvents = False
        Customer_Load
        Application.EnableEvents = True
    End If
End Sub

2. 关键修改说明 #

• 自动触发逻辑：通过Worksheet_Change事件监听B10的修改动作，一旦检测到变化就自动调用核心更新函数。设置Application.EnableEvents = False避免递归触发问题。
• 有效性校验：
  • 验证B10的值为数字，避免类型转换错误
  • 检查Sheet2中目标行是否存在，防止行号越界
  • 对Sheet2第一行的单元格地址做有效性判断，避免无效地址导致代码崩溃
• 保留手动入口：原宏Customer_Load保留，方便手动触发更新操作。

3. 操作步骤 #

1. 打开Excel，按Alt + F11打开VBA编辑器
2. 在左侧工程窗口中找到Sheet1（显示为Sheet1(Sheet1)），双击打开其代码模块
3. 将上述代码粘贴到代码窗口中
4. 返回Excel，修改Sheet1的B10值，数据会自动从Sheet2提取并填充到目标单元格

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