VBA技术咨询：如何关联两个If条件与两个消息框？

看起来你正在给Excel工作表做交互逻辑，想让B10和B12单元格设为"Yes"时，分别触发对应的输入框（你提到的“消息框”我默认是指收集信息的InputBox，如果是纯提示用的MsgBox我也会补充说明），并把输入内容写入对应单元格。我帮你完善代码并梳理关键细节：

1. 完整的修正代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim myValue As Variant
    Dim myValue2 As Variant
    Dim myValue3 As Variant
    Dim myValue4 As Variant
    
    ' 先禁用事件，防止写入单元格时重复触发Change事件导致循环
    Application.EnableEvents = False
    
    On Error GoTo ErrorOccured
    
    ' 第一个触发条件：B10单元格被设为Yes
    If Target.Address = "$B$10" And UCase(Target.Value) = "YES" Then
        myValue = InputBox("Insert initialDate1", "请输入日期")
        myValue2 = InputBox("Insert initialDate2", "请输入日期")
        ' 加个日期验证，避免无效内容写入
        If IsDate(myValue) Then Range("C10").Value = CDate(myValue)
        If IsDate(myValue2) Then Range("D10").Value = CDate(myValue2)
    End If
    
    ' 第二个触发条件：B12单元格被设为Yes
    If Target.Address = "$B$12" And UCase(Target.Value) = "YES" Then
        myValue3 = InputBox("Insert initialDate3", "请输入日期")
        myValue4 = InputBox("Insert initialDate4", "请输入日期")
        ' 同样做日期有效性检查
        If IsDate(myValue3) Then Range("C12").Value = CDate(myValue3)
        If IsDate(myValue4) Then Range("D12").Value = CDate(myValue4)
    End If

ExitSub:
    ' 不管有没有错误，都要恢复事件触发，不然后续单元格修改不会触发事件
    Application.EnableEvents = True
    Exit Sub
    
ErrorOccured:
    MsgBox "操作出错：" & Err.Description, vbCritical, "错误提示"
    Resume ExitSub
End Sub

2. 必须注意的几个关键点 #

• 代码存放位置：这段代码一定要放在对应工作表的代码模块里（右键工作表标签→查看代码，粘贴进去），因为它用的是Worksheet_Change事件，只有工作表单元格内容变化时才会触发。
• 大小写兼容：用UCase(Target.Value) = "YES"代替直接判断，用户输入"yes"、"Yes"甚至"YES"都能触发，更灵活。
• 输入验证：添加IsDate()检查是为了确保用户输入的是有效的日期格式，避免把乱七八糟的内容写到单元格里。
• 事件开关：修改单元格内容时会再次触发Worksheet_Change，所以开头关事件、结尾开，避免无限循环卡死Excel。
• 错误处理：出错时会弹出提示，而且会确保事件功能恢复，不会影响后续的工作表操作。

3. 如果是纯提示用的MsgBox（而非输入） #

如果你说的“消息框”是指仅弹出提示信息，不需要用户输入，那可以把对应条件块改成这样：

If Target.Address = "$B$10" And UCase(Target.Value) = "YES" Then
    MsgBox "B10已设置为Yes，相关日期记录已准备就绪", vbInformation, "操作提示"
    ' 原有写入逻辑可以保留或根据需求调整
End If

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