IE中VBA触发onchange事件失效，依赖选项列表无法显示求助

从你提供的代码和网站JS片段来看，这个页面用的是jQuery的事件绑定机制，而IE的FireEvent方法只能触发原生DOM元素上直接绑定的onchange事件，对jQuery委托的事件无效——这就是为什么你设置了下拉框值但依赖问题没显示的核心原因。

下面给你几个针对性的解决方案：

方案1：直接调用jQuery的trigger方法触发事件 #

既然页面已经引入了jQuery，最简单的方式就是在VBA里执行一段JS代码，用jQuery的trigger()方法来触发change事件，这样能完美匹配页面的事件处理逻辑：

Dim ieApp As SHDocVw.InternetExplorer
Set ieApp = IEWindowFromTitle("Profile Form Detail View")
If Not ieApp Is Nothing Then
    Set ieDoc = ieApp.document
End If

For Each cell In GMF.Sheets("BUDGET").Range("B4:B" & Cells(Rows.Count, 2).End(xlUp).Row)
    If cell.Value = "MRR" Then
        '1. 设置第一个下拉框的值
        ieDoc.getElementsByName("meetingQuestionAnswer(220674)")(0).Value = "Yes"
        
        '2. 用jQuery触发change事件（注意转义双引号）
        ieDoc.parentWindow.execScript _
            "$('select[name=""meetingQuestionAnswer(220674)""]').trigger('change');", _
            "JavaScript"
        
        '3. 等待1秒确保依赖问题加载完成（时间可根据页面响应速度调整）
        Application.Wait Now + TimeValue("00:00:01")
        
        '4. 现在可以设置依赖问题的下拉框值了
        ieDoc.getElementsByName("meetingQuestionAnswer(221010)")(0).Value = "Yes"
    End If
Next cell

方案2：构造原生DOM事件并触发 #

如果因为某些原因不能用jQuery（比如页面jQuery加载有延迟），可以尝试构造原生的change事件并分发，这也能触发jQuery绑定的事件：

'在设置下拉框值之后，替换FireEvent为这段代码：
Dim evt As Object
Set evt = ieDoc.createEvent("HTMLEvents")
evt.initEvent "change", True, False '初始化事件：事件名、是否冒泡、是否可取消
ieDoc.getElementsByName("meetingQuestionAnswer(220674)")(0).dispatchEvent evt

额外注意事项 #

• 确保页面完全加载完成后再执行代码，可以在获取ieApp后加个循环等待：Do While ieApp.Busy Or ieApp.ReadyState <> 4: DoEvents: Loop
• 如果execScript报错，检查IE的安全设置是否允许运行脚本
• 依赖问题的元素是select而不是div，你原来的代码里写的getElementsByName("meetingQuestionAnswerDiv(221010)")是错误的，应该用meetingQuestionAnswer(221010)（和第一个下拉框的name格式一致）

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