WEB开发网
开发学院WEB开发ASP.NET 实例:Excel Vba程序中制作进度条,能显示实时进度... 阅读

实例: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)
    ……

Tags:Excel Vb 程序 进度条

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接