text 进度条应用2018年2月8日

Posted 2021-05-03

Sub 进度条应用()

'--可插入过程
k = 1000 '设置循环终值（即进度条控件最大值）
UserForm1.Show 0 '以无模式调出窗体，为的是能显示进度变代
UserForm1.ProgressBar1.Max = k '设置最大值，为的是进度条和程序同时完成时填满框子
For h = 1 To k

Cells(1, 1) = h + k '加入过程

f = Format(h / k, "0.00%") '计算完成工作的百分数，2位小数，为了看到快速变化
UserForm1.Caption = "工作已经完成了" & f  '在窗体上边动态显示
UserForm1.ProgressBar1.Value = h '进度条动态显示
Next
'--可插入过程
UserForm1.Caption = "工作已经全部完成": Beep '让计算机发出声音(咚)
Unload UserForm1

End Sub