vba - Excel VBA - 一段时间后删除文本

Question

我正在尝试在单元格中将一些提示显示为文本几秒钟，如下所示。

    Dim text As String
    text = "Hello World"

    If Range("A1") = 1 Then 
        Range("B1") = text 
        Application.Wait (Now + TimeValue("0:00:05"))
        Range("B1") = ""
    End If

如果 vba 只有上述代码，代码运行完美，但对于我的情况，在这个“提示”函数之前有一大段代码。每当 IF 语句变为 TRUE 时，我的鼠标光标将变成窗口的加载符号，而单元格 B1 不显示任何内容。

5 秒后，“Hello World”会非常短暂地出现，然后单元格 B1 再次变空，就像它打算做的那样，但时间安排全乱了。

我知道这里的硬件可能有问题，但有没有其他方法可以解决这个问题？

Answer 1

如果没有看到上述代码，很难诊断出您的具体问题，但您可以按照以下方式尝试:

Sub Test()

    Dim text As String, iLoop As Integer
    text = "Hello World"

    If Range("A1") = 1 Then
        For iLoop = 1 To 5  '5 is the number of seconds to wait
            Range("B1") = text
            DoEvents
            Application.Wait (Now + TimeValue("0:00:01"))
        Loop
        Range("B1") = ""
    End If

End Sub