Excel VBA UserForm，进度条

我创build了一个应该像进度工具栏一样的用户表单，并以百分比forms显示我的实际进度。

我想在for循环中显示我的工具栏。 但是，只有当我点击了用户窗体，for循环才会继续。 我做错了什么？

For k = 1 To 300 pctcompl = k * 100 / 300 UserForm1.Text.Caption = pctcompl & "% Completed" UserForm1.Bar.Width = pctcompl * 2 DoEvents UserForm1.Show Next k 

Answer 1

让我谷歌为你:-)

frmTest.Show vbModeless

http://www.mrexcel.com/forum/excel-questions/41673-userform-stops-macro-how-continue-w-still-visible.html

为我工作:-)