Excel VBA用户窗体，进度条

Question

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

我想在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

适合我： - ）