Excel VBA UserForm，进度条

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

工作对我来说:-)