娛樂而已——excel進度條

roych

進度條這玩意兒，常常是一種娛樂。就拿我們比較熟悉的access來說吧，使用了進度條，只是在打開文件的等待時間中，給大家展示一個進度條變化的界面而已，而并不會因此而加快文件的加載速度什么的。
在access里實現(xiàn)進度條，論壇里有很多例子，這里就不贅述了。而在excel里實現(xiàn)……好吧，一個叫雷神的群友提出，能不能在excel的單元格里實現(xiàn)。當時覺得可能性不大，后來想想，貌似有個rept函數(shù)可以試試，于是就有了這個例子。

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函數(shù)用于延時執(zhí)行。這樣的話，中間略有停頓，比較容易看到進度條的變化。

liwen

用條件格式里的數(shù)據(jù)條表示好象更好看一點