Question

我正在尝试使用配方单元格“F42”在每次满足条件时返回值1以触发事件。当条件满足时，它开始循环。我需要能够在一天之内将此事件触发3-4次。我猜我需要创建某种存储值。但不知道该如何去做。这就是我所拥有的：

Private Sub Worksheet_Calculate()
    On Error GoTo skipallthis
    If Range("F42").Value > 0 Then
       Application.EnableEvents = False
       Call BuyConditions
       Application.EnableEvents = True
    End If
 skipallthis:
 End Sub

Answer 1

Private Sub Worksheet_Calculate（）错误GoTo跳过这个如果范围（“F42”）。值＆gt; 0然后 Application.EnableEvents = False 致电BuyConditions

   'changing this value will prevent the buy conditions from being met
   Sheet6.Range("L32").Value = 1

   Application.EnableEvents = True
End If

skipallthis：结束子

worksheet_calculate陷入循环

1 个答案: