实例:Excel Vba程序中制作进度条,能显示实时进度信息
2010-10-16 15:11:50 来源:WEB开发网核心提示:工作中常常使用Excel + Vba进行一些数据的操作,在读取成千上万行数据时就非常需要一个进度显示,实例:Excel Vba程序中制作进度条,能显示实时进度信息,虽然vba自带有Active控件的进度条,但使用后发现效果并不理想,于是自制了一个,在状态栏显示
工作中常常使用Excel + Vba进行一些数据的操作,在读取成千上万行数据时就非常需要一个进度显示。虽然vba自带有Active控件的进度条,但使用后发现效果并不理想。
于是自制了一个,在状态栏显示,效果如图:
'自定义的进度条,在状态栏显示 Function GetProgress(curValue, maxValue) Dim i As Single, j As Integer, s As String i = maxValue / 20 j = curValue / i For m = 1 To j s = s & "■" Next m For n = 1 To 20 - j s = s & "□" Next n GetProgress = s & FormatNumber(curValue / maxValue * 100, 2) & "%" End Function
调用方式示例:
rs.Open sql, connXls, 1 Dim p As Integer: p = 0 Do While Not rs.EOF p = p + 1 '在状态栏显示 Application.StatusBar = GetProgress(p, rs.RecordCount) ……
[]
- ››Excel 2010:用数据透视表对数据立体化分析
- ››Excel 2010:数据分析透视图的用法
- ››Excel 2010:简洁实用的迷你图
- ››Excel 2010:快速分析数据之数据条
- ››Excel 2010:快速创建丰富的数据图表
- ››Excel 2010:动态洞察数据的切片器
- ››Excel 2010:使用数据透视表对数据进行立体化分析...
- ››Excel 2010:将数据分析结果分页显示
- ››Excel 2010:数据分析透视图
- ››Excel 2010:快速分析数据之图标集
- ››Excel 2010:快速标注数据表中的前3名数据
- ››Excel 2010:便捷的打印工作表选项
更多精彩
赞助商链接