Question

excel vba进度条的问题

如何做一个根据宏的运行情况，显示进度条的功能？请附上详细说明和代码！

Answer 1

vba中没有专门的进度条控件，但是可以用其他方式实现。

首先用一个Frame控件(frameProgress)和一个label控件（lblProgress）形成进度条的形状。frameProgress控件用来形成边框，其caption属性用来显示百分比进度；lblProgress控件背景色选择一个较深的颜色，用其width属性控制进度。

先写一个过程用于更新显示进度条：

Private Sub UpdateProgress(ByVal percent As Double)   

    frameProgress.Caption = Format(percent, "0%")

    lblProgress.Width = percent * (frameProgress.Width)

    'Me.Repaint

    DoEvents  

End Sub

参数percent在0至1之间，调用前先计算。

相关详细的资料和例子可以参阅《中文版Excel 2007高级VBA编程宝典》一书。