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

让我 google 为你说:-)

frmTest.Show vb无模型

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

适合我:-)

Excel VBA 用户窗体，进度条

Excel VBA UserForm, progress bar

excel

vba

userform