不用按F9，EXCEL自动刷新,当行一出现9时自动停止

Question

怎么让表格自动刷新，刷新到当行一出现9时就停止刷新，就是行一有一个9就停止自动刷新

Answer 1

结合GPT给出回答如下请题主参考
要实现表格自动刷新并检测行一是否出现9需要使用VBA宏编程。以下是实现的代码：

首先，在VBA编辑器中新建一个模块，将以下代码复制进去：

Public Sub AutoRefresh()
    Dim rng As Range
    Dim cell As Range
    
    Set rng = Range("A1:Z100") ' 刷新范围，可根据实际情况修改
    
    Do While True ' 循环刷新
        rng.Calculate ' 刷新范围内的公式
        
        For Each cell In rng.Rows(1).Cells ' 检查第一行是否有9
            If cell.Value = 9 Then
                MsgBox "已经出现9了，停止刷新"
                Exit Sub ' 退出自动刷新
            End If
        Next cell
        
        Application.Wait (Now + TimeValue("0:00:01")) ' 等待1秒钟再刷新
    Loop
End Sub

然后，在工作表中按下快捷键Alt+F8打开宏窗口，选择AutoRefresh并点击运行即可自动刷新表格并检查行一是否出现9。

我们也可以将宏绑定到一个按钮上，这样便于用户手动触发自动刷新。具体步骤如下：

1. 在工作表中插入一个按钮（开发工具栏中可以找到）。
2. 右键点击按钮，选择“分配宏”。
3. 选择AutoRefresh并点击确定。
4. 点击按钮即可开始自动刷新并检查行一是否出现9。