Worksheet_Calculate Repeating

Question

Я новичок в VBA, и мой сценарий продолжает повторяться, я не знаю, почему.Кто-нибудь может мне помочь с этим?Я просто хочу запустить скрипт «mail_small_text_outlook», когда любое из значений J3: K4 рассчитывается как больше 10. J3: K4 автоматически пересчитывается каждые 30 минут.

Заранее спасибо.

Private Sub Worksheet_Calculate()
  Dim target As Range
  Set target = Range("J3:K4")
  If target Is Nothing Then Exit Sub
  If IsNumeric(target) And target > 10 Then
    Call Mail_small_Text_Outlook
  End If
End Sub

Answer 1

Вы должны перебрать ячейки в диапазоне

  Sub Worksheet_Calculate()
    Dim target As Range
    Set target = Range("J3:K4")
    Dim cel As Range
    For Each cel In target.Cells
        If IsNumeric(cell) And cell > 10 Then
            Call Mail_small_Text_Outlook
        End If
    Next cel
  End Sub