Excel下拉列表单元格值变更触发宏失效问题求助

问题根源 #

你遇到的核心问题有两个：

1. 自定义名称的RunMacroForDropdown不是Excel内置的工作表变更事件，Excel不会自动触发它；工作表变更事件必须固定命名为Worksheet_Change
2. 事件代码放错了位置：工作表事件必须放在对应工作表的代码模块中，而不是标准模块（从你的截图看代码放在了Module1里，这是错误的）

修正步骤 #

1. 迁移并修正变更事件代码

右键点击Synthèse_Globale工作表标签 → 选择「查看代码」，在弹出的工作表代码模块中粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 检查变更的单元格是否是B1
    If Not Intersect(Target, Me.Range("B1")) Is Nothing Then
        ' 调用自定义宏
        MyMacro
    End If
End Sub

2. 确保自定义宏在标准模块中

在标准模块（如Module1）中保留MyMacro代码：

Sub MyMacro()
    MsgBox "单元格B1的值已变更！"
End Sub

3. 优化下拉列表生成代码（可选）

原代码存在空行处理风险，修正后避免A列无数据时出错：

Sub GenerateDropdown()
    Dim Synthese_Global As Worksheet
    Dim str As String
    Dim i As Long
    Dim lastRow As Long
    
    Set Synthese_Global = ThisWorkbook.Worksheets("Synthèse_Globale")
    
    ' 清除原有验证和内容
    Synthese_Global.Range("B1").Validation.Delete
    Synthese_Global.Range("B1").Value = Empty
    
    ' 获取A列最后一行，避免空行干扰
    lastRow = Synthese_Global.Cells(Synthese_Global.Rows.Count, "A").End(xlUp).Row
    If lastRow < 2 Then Exit Sub ' 若A2及以下无数据，直接退出
    
    ' 构建下拉选项字符串
    For i = 2 To lastRow
        If Synthese_Global.Cells(i, 1).Value = "N/A" Then
            str = IIf(str = "", Synthese_Global.Cells(i, 1).Value, str & "," & Synthese_Global.Cells(i, 1).Value)
        End If
    Next i
    
    ' 仅当有选项时添加下拉验证
    If str <> "" Then
        Synthese_Global.Range("B1").Validation.Add _
            Type:=xlValidateList, _
            AlertStyle:=xlValidAlertStop, _
            Formula1:=str
    End If
End Sub

关键注意事项 #

• Excel的工作表事件必须使用固定命名（如Worksheet_Change），且必须放在对应工作表的代码模块中，才能在单元格变更时自动触发
• 标准模块中的自定义过程需要手动调用或通过事件触发，不会自动执行

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