娱乐而已——excel进度条

roych

进度条这玩意儿，常常是一种娱乐。就拿我们比较熟悉的access来说吧，使用了进度条，只是在打开文件的等待时间中，给大家展示一个进度条变化的界面而已，而并不会因此而加快文件的加载速度什么的。
在access里实现进度条，论坛里有很多例子，这里就不赘述了。而在excel里实现……好吧，一个叫雷神的群友提出，能不能在excel的单元格里实现。当时觉得可能性不大，后来想想，貌似有个rept函数可以试试，于是就有了这个例子。

1. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
   
2. Sub test()
   
3.     Dim i As Long
   
4.     For i = 0 To 100
   
5.         If i < 99 Then
   
6.             Sheet2.Range("A2") = Application.WorksheetFunction.Rept("|", i) & i & "%"
   
7.             Sleep 50
   
8.         Else
   
9.             Sheet2.Range("A2") = "完成"
   
10.             Exit For
    
11.         End If
    
12.     Next
    
13.                
    
14. End Sub
    

复制代码

说明：sleep函数用于延时执行。这样的话，中间略有停顿，比较容易看到进度条的变化。

liwen

用条件格式里的数据条表示好象更好看一点