Worksheet_Calculate在多個範圍

Question

我有當前的代碼計算單個單元格的值，然後調用一個模塊，如果它的值超過另一個值。

如何讓它檢查單元格的多個範圍，例如B5：E5，B8：M8，並在該範圍內的任何單元格超出該值時調用該模塊。

Private Sub Worksheet_Calculate() 
If Range("B5") > 4 Then 
Application.EnableEvents = False 
Application.Run "Mail_small_Text_Outlook" 
Application.EnableEvents = True 
End If 
End Sub 

Answer 1

這是你正在嘗試？

Private Sub Worksheet_Calculate() 
    Dim aRng As Range, bRng As Range 
    Dim aCell As Range 

    Set aRng = Range("B5:E5") 
    Set bRng = Range("B8:M8") 

    For Each aCell In aRng 
     If aCell.Value > 4 Then 
      ' 
      Application.Run "Mail_small_Text_Outlook" 
      ' 
      Exit Sub 
     End If 
    Next 

    For Each aCell In bRng 
     If aCell.Value > 4 Then 
      ' 
      Application.Run "Mail_small_Text_Outlook" 
      ' 
      Exit Sub 
     End If 
    Next 
End Sub 

或類似的東西？

Private Sub Worksheet_Calculate() 
    Dim aRng As Range, bRng As Range 
    Dim aCell As Range, uRng As Range 

    Set aRng = Range("B5:E5") 
    Set bRng = Range("B8:M8") 
    Set uRng = Union(aRng, bRng) 

    For Each aCell In uRng 
     If aCell.Value > 4 Then 
      ' 
      Application.Run "Mail_small_Text_Outlook" 
      ' 
      Exit Sub 
     End If 
    Next 
End Sub