如何解决单元格公式结果改变时msgbox出现两次的问题？

解决单元格公式结果改变时MsgBox出现两次的问题，可以通过以下几种方法进行处理：

使用Application.EnableEvents属性：在触发公式结果改变事件之前，将Application.EnableEvents属性设置为False，然后在事件处理完毕后再将其设置为True。这样可以防止事件的重复触发。

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    
    ' 处理公式结果改变的逻辑代码
    
    Application.EnableEvents = True
End Sub

使用标志位：在触发公式结果改变事件时，可以设置一个标志位来控制MsgBox的出现次数。初始时标志位为0，当事件触发时，如果标志位为0，则显示MsgBox并将标志位设置为1；如果标志位为1，则不显示MsgBox。在事件处理完成后，将标志位重新设为0，以便下一次事件的触发。

Private Sub Worksheet_Change(ByVal Target As Range)
    Static flag As Integer
    
    If flag = 0 Then
        ' 处理公式结果改变的逻辑代码
        MsgBox "单元格公式结果已改变"
        
        flag = 1
    Else
        flag = 0
    End If
End Sub

使用Application.OnTime方法：在公式结果改变时，使用Application.OnTime方法在稍后的时间点执行一个特定的过程，这个过程中可以包含MsgBox的显示。通过设置合适的时间延迟，可以避免重复触发事件导致MsgBox的多次出现。

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.OnTime Now + TimeValue("00:00:01"), "ShowMessageBox"
End Sub

Private Sub ShowMessageBox()
    MsgBox "单元格公式结果已改变"
End Sub

无论采用哪种方法，都可以有效解决单元格公式结果改变时MsgBox出现两次的问题。根据具体的需求和情况，选择适合的方法进行处理。