跨工作表操作时Sheet2的Worksheet_Calculate事件无法触发的解决咨询

方案一：改用工作簿级SheetCalculate事件 #

工作表级的Worksheet_Calculate仅在当前工作表触发计算时运行，改用工作簿级事件可以监控所有工作表的计算动作，确保Sheet1操作触发相关计算时能执行警告逻辑。

1. 打开VBA编辑器，双击左侧的ThisWorkbook模块
2. 粘贴以下代码：

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    Dim picPath As String
    ' 引用背景图片路径的命名区域
    picPath = ThisWorkbook.Names("BackgroundPicture").RefersToRange.Value
    Dim targetWs As Worksheet
    Set targetWs = ThisWorkbook.Worksheets(2)
    
    ' 检查当日发票数量的命名区域值
    If ThisWorkbook.Names("NumberOfInvoicesToday").RefersToRange.Value > 0 Then
        targetWs.SetBackgroundPicture Filename:=picPath
    Else
        targetWs.SetBackgroundPicture Filename:=""
    End If
End Sub

方案二：监控Sheet1的客户选择操作 #

如果Sheet1的客户选择是通过单元格输入/下拉框触发，可以直接在Sheet1的变更事件里强制检查并更新背景，无需依赖Sheet2的计算触发。

1. 双击左侧的Sheet1模块，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 假设客户选择在A列，根据实际使用的单元格范围修改
    If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
        ' 调用通用更新子程序
        UpdateInvoiceWarningBackground
    End If
End Sub

2. 插入一个标准模块（右键VBA项目→插入→模块），粘贴通用子程序：

Sub UpdateInvoiceWarningBackground()
    Dim picPath As String
    picPath = ThisWorkbook.Names("BackgroundPicture").RefersToRange.Value
    Dim targetWs As Worksheet
    Set targetWs = ThisWorkbook.Worksheets(2)
    
    If ThisWorkbook.Names("NumberOfInvoicesToday").RefersToRange.Value > 0 Then
        targetWs.SetBackgroundPicture Filename:=picPath
    Else
        targetWs.SetBackgroundPicture Filename:=""
    End If
End Sub

注意事项 #

• 确保BackgroundPicture和NumberOfInvoicesToday是工作簿级命名区域，或在代码中明确指定所属工作表（比如Worksheets("Sheet2").Range("BackgroundPicture")），避免跨表引用错误。
• 若Excel设置为手动重算，需在代码中添加Calculate语句强制刷新计算结果。

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