Excel Userform在继续子之前强制标签更新

Question

我在电子表格中有一个用于删除单个订单项的子项。因为处理需要几秒钟的时间，所以我想要一个就绪指示器。

目前我有一个名为Lab_Indic 的小标签（见上文）。

当用户点击删除时，它运行_Click sub，打开如下：

With Lab_Indic
    .BackColor = &HFF&
    .Caption = "WORKING"
End With

...并以此结束：

使用 Lab_Indic .BackColor = &H8000& .Caption = "准备好" 结束于

但最初的“工作”变化似乎只有在我逐步完成时才会发生；如果我正常运行，它似乎跳过它。

有没有办法强制它在继续其他操作之前更新标签？ DoEvents 听起来可能会起作用，但我看过的一些消息来源表明这种方法可能存在缺点。

Answer 1

它似乎工作得很好，所以我会把它作为答案发布，但我仍然对它是否是一个好解决方案的任何迹象非常感兴趣......

With Lab_Indic
    .BackColor = &HFF&  ' &H00008000&
    .Caption = "WORKING"
End With
DoEvents

我刚刚添加了一个DoEvents 来刷新标签，它似乎工作得很好。不知道有没有连锁反应。