Excel VBA - 在代码运行期间循环显示值

Question

我的 VBA 程序在进行时会在 for next 循环中穿梭于 200 个用户的列表中。有没有办法让消息出现在屏幕上以显示正在处理的用户？我知道这可以使用类似的东西来完成 - msgbox "User: " mUser - 但这需要单击 "ok" 才能继续执行代码。

我不是在寻找人们经常询问的进度条。

有什么想法吗？

谢谢

安德鲁

Answer 1

我用来做 Zac 描述的一些代码是：

假设：

• 用户表单称为 UserForm
• 要显示名称的用户表单标签称为Label1
• 屏幕更新已关闭
• mUser 是您要显示的信息

1. 在循环之前使表单可见

UserForm.Show vbModeless

1. 在您的循环中（接近起点）

Application.ScreenUpdating = True
UserForm.Label1.Caption = mUser
DoEvents
Application.ScreenUpdating = False

1. 循环之后

Application.ScreenUpdating = True
UserForm.Label1.Caption = "Finished - Close this box"