Excel VBA问题：工作表下拉菜单联动失效排查求助

核心问题：事件代码存放位置错误 #

你的Worksheet_Change是工作表级事件，必须存放在DASH工作表的代码模块中，而不是普通的标准模块（比如Module1）。这是新手最容易踩的坑——普通模块里的工作表事件不会自动触发。

修正步骤： #

1. 打开VBA编辑器（按Alt+F11）
2. 在左侧「工程资源管理器」里找到DASH工作表，双击打开它的代码窗口
3. 将你的代码粘贴到这个窗口中（替换原来可能放错位置的代码）

其他排查点 #

如果调整存放位置后还是不行，检查以下几点：

• 确认事件未被禁用：在VBA编辑器的「立即窗口」输入Application.EnableEvents = True并回车，然后重新测试。（如果之前代码出错导致EnableEvents没恢复为True，会导致所有事件都不触发）
• 检查下拉菜单类型：
  • 如果Scenario Manager的H28是数据验证下拉菜单：确保D8选择的值在H28的下拉选项列表中，否则赋值会失败（可以临时添加On Error Resume Next跳过错误测试）
  • 如果是表单控件下拉菜单：直接赋值.Value无效，需要修改控件的LinkedCell或者ListIndex。比如假设控件名为DropDown1，可以用ws1.Shapes("DropDown1").ControlFormat.Value = Target.Value

修正后的代码（放在DASH工作表模块中） #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws1 As Worksheet
    
    Set ws1 = ThisWorkbook.Sheets("Scenario Manager")
    
    ' 只处理D8单元格的更改
    If Not Intersect(Target, Me.Range("D8")) Is Nothing Then
        Application.EnableEvents = False
        ' 确保赋值时出错也能恢复事件
        On Error Resume Next
        ws1.Range("H28").Value = Target.Value
        On Error GoTo 0
        Application.EnableEvents = True
    End If
End Sub

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