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

Question

我在电子表格中有一个子文件，用于删除单个订单项。因为处理需要几秒钟，所以我希望有一个Ready指示灯。

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

当用户点击“移除”时，它会运行_Click子组件，该子组件将打开：

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

...并以此结束：

使用Lab_Indic     .BackColor =＆amp; H8000＆amp;     .Caption =＆＃34; READY＆＃34;

结束

但最初的＆＃34;工作＆＃34;如果我一步一步，似乎只会发生变化;如果我正常运行，它似乎跳过了它。

有没有办法强制它在继续其余部分之前更新标签？ DoEvents听起来似乎可以胜任这项工作，但我所看到的一些消息来源表明这种做法可能存在不利因素。

Answer 1

它似乎运作良好，所以我会将其作为答案发布，但我仍然对任何关于它是否是良好的解决方案或不...

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

我刚刚添加了一个DoEvents来刷新标签，它看起来效果很好。我不知道是否有任何连锁效应。