VBA立即窗口刷新后输出过快无法查看，需保留输出至下次运行

需求 #

• 运行代码前清空立即窗口旧内容
• 执行单元格边框检测逻辑
• 输出调试结果到立即窗口
• 当前运行的输出内容保留至下一次代码运行时再清空

现有代码 #

Sub Test2()
    Dim ws As Worksheet
    Dim rCell As Range
    Dim i As Long
    Dim resultArray() As String
    Dim resultIndex As Long
    'ClearImmediateWindow
    'Application.VBE.Windows("Immediate").Visible = True
    'Debug.Print vbLf & Format(Now(), "dd-mmm-yyyy HH:mm:ss")
    Application.VBE.Windows("Immediate").Close
    Application.VBE.Windows("Immediate").Visible = True
    Set ws = ThisWorkbook.ActiveSheet ' Adjust this to get the sheet you need
    resultIndex = 0 ' Initialize the result index
    For i = 1 To 12
        Set rCell = Cells(i, "C")
        If HasAnyBorder(rCell) Then
            ' Store the result in the array
            ReDim Preserve resultArray(resultIndex)
            resultArray(resultIndex) = "Cell C" & i & "   True"
        Else
            ReDim Preserve resultArray(resultIndex)
            resultArray(resultIndex) = "Cell C" & i & "   False"
        End If
        resultIndex = resultIndex + 1
    Next i
    ' Print the accumulated results to the Immediate Window
    For i = LBound(resultArray) To UBound(resultArray)
        Debug.Print resultArray(i)
    Next i
End Sub

Sub ClearImmediateWindow()
    ' Simulate pressing Ctrl+G (to activate the Immediate Window)
     Application.SendKeys "^g"
     ' Simulate pressing Ctrl+A (to select all content)
     Application.SendKeys "^a"
     ' Simulate pressing the Delete key (to clear the selected content)
     Application.SendKeys "{DEL}"
     Application.SendKeys "{f7}"    ' Go back to VBE Project Window
End Sub

Function HasAnyBorder(rngCell As Range) As Boolean
    HasAnyBorder = rngCell.Value <> "" Or _
    rngCell.Borders(xlEdgeTop).LineStyle <> xlNone Or _
    rngCell.Borders(xlEdgeBottom).LineStyle <> xlNone Or _
    rngCell.Borders(xlEdgeLeft).LineStyle <> xlNone Or _
    rngCell.Borders(xlEdgeRight).LineStyle <> xlNone
End Function

遇到的问题 #

运行代码时，立即窗口清空后内容填充速度过快，导致无法正常查看输出；尝试定时逐条输出信息，但最终窗口仍会被清空；测试过关闭/重新显示立即窗口、添加空行输出等方法，均未解决问题。

测试方法与预期输出 #

在工作表C列的部分单元格添加上下左右任意边框，运行代码后预期输出如下格式：

Cell C1   True
Cell C2   True
Cell C3   True
Cell C4   False
Cell C5   False
Cell C6   False
Cell C7   False
Cell C8   False
Cell C9   False
Cell C10   False
Cell C11   False
Cell C12   False

修正后的代码 #

Sub Test2()
    Dim ws As Worksheet
    Dim rCell As Range
    Dim i As Long
    Dim resultArray() As String
    Dim resultIndex As Long
    
    ' 清空立即窗口（确保操作生效）
    ClearImmediateWindow
    ' 添加短延时，避免清空操作与输出重叠
    Application.Wait Now() + TimeValue("00:00:01")
    
    ' 确保立即窗口可见
    Application.VBE.Windows("Immediate").Visible = True
    ' 添加运行时间戳，区分每次运行的输出批次
    Debug.Print "===== 运行时间：" & Format(Now(), "yyyy-mm-dd HH:mm:ss") & " ====="
    
    Set ws = ThisWorkbook.ActiveSheet ' 可替换为指定工作表，如Sheets("Sheet1")
    resultIndex = 0 ' 初始化结果数组索引
    
    For i = 1 To 12
        ' 明确引用指定工作表的单元格，避免ActiveSheet切换导致错误
        Set rCell = ws.Cells(i, "C")
        If HasAnyBorder(rCell) Then
            ReDim Preserve resultArray(resultIndex)
            resultArray(resultIndex) = "Cell C" & i & "   True"
        Else
            ReDim Preserve resultArray(resultIndex)
            resultArray(resultIndex) = "Cell C" & i & "   False"
        End If
        resultIndex = resultIndex + 1
    Next i
    
    ' 批量输出结果到立即窗口
    For i = LBound(resultArray) To UBound(resultArray)
        Debug.Print resultArray(i)
    Next i
End Sub

Sub ClearImmediateWindow()
    ' 直接激活立即窗口
    Application.VBE.Windows("Immediate").SetFocus
    ' 全选并删除内容，True参数确保按键操作完成后再继续
    Application.SendKeys "^a{DEL}", True
    ' 返回代码编辑窗口
    Application.VBE.ActiveCodePane.SetFocus
End Function

Function HasAnyBorder(rngCell As Range) As Boolean
    HasAnyBorder = rngCell.Value <> "" Or _
    rngCell.Borders(xlEdgeTop).LineStyle <> xlNone Or _
    rngCell.Borders(xlEdgeBottom).LineStyle <> xlNone Or _
    rngCell.Borders(xlEdgeLeft).LineStyle <> xlNone Or _
    rngCell.Borders(xlEdgeRight).LineStyle <> xlNone
End Function

关键修正说明 #

1. 可靠清空立即窗口：替换原关闭窗口的方式，改用SetFocus直接激活立即窗口，配合SendKeys "^a{DEL}"全选删除内容，添加True参数确保按键操作执行完毕后再继续代码，避免清空不彻底。
2. 避免输出重叠：在清空后添加1秒延时，确保窗口清空完成后再输出内容，解决填充过快无法查看的问题。
3. 区分运行批次：添加时间戳标记每次运行的起始，方便查看不同批次的输出结果。
4. 规范单元格引用：将Cells(i, "C")改为ws.Cells(i, "C")，避免因ActiveSheet切换导致的引用错误。
5. 保留输出至下次运行：仅在代码运行开头执行清空操作，当前输出会一直保留，直到下一次运行代码时被清空。

内容的提问来源于stack exchange，提问作者G6SGA