如何使用另一个宏停止自动刷新单元格的宏？答案

【问题标题】：How to stop a macro, that refreshes a cell automatically, with another macro?如何使用另一个宏停止自动刷新单元格的宏？
【发布时间】：2021-07-18 20:42:29
【问题描述】：

我键入了一个每秒自动刷新/计算工作表的宏。

Sub Calculate_Range()
    Range("A1:A5").Calculate
    Application.OnTime DateAdd("s", 1, Now), "Calculate_Range"
End Sub

来源：https://www.exceltip.com/tips/auto-refresh-excel-every-1-second-using-vba-in-excel.html

每当我启用时，它都会无限循环。我想用另一个宏来阻止它。我尝试了几个宏。

是否可以在不使用 ESC 或介入等蛮力方法的情况下阻止它？

【问题讨论】：

标签： excel vba

【解决方案1】：

试试这个代码：

Option Explicit

Public stopIt As Boolean

Sub Calculate_Range()
    If Not stopIt Then
        Range("A1:A5").Calculate
        Application.OnTime DateAdd("s", 1, Now), "Calculate_Range"
    Else
        stopIt = False
    End If
End Sub

Sub Stop_Calculate_Range()
    stopIt = True
End Sub

【讨论】：