快速操作单元格及如何计算代码运行时间 

 1 '---------------------------------------------------------------------------------------
 2 ' Procedure : VBATest005
 3 ' Author    : Administrator
 4 ' Date      : 2013-12-6
 5 ' Purpose   : ①测试如何快速对单元格进行判断并操作;
 6 ' Purpose   : ②测试如何对程序运行时间进行计时!!(以前可是不敢用的^_^)
 7 '---------------------------------------------------------------------------------------
 8 '
 9 Sub VBATest005()
10     Dim i As Integer
11     Dim StartTime As Single
12     StartTime = Timer '返回自午夜开始到现在的时间数(秒数,包含小数部分)
13     i = 1
14     Do While Cells(i, 2).Value <> ""
15         Cells(i, 2).Font.Bold = False
16         i = i + 1
17     Loop
18     
19     
20     '只要返回值是逻辑类型的就可以实现反向操作
21     For i = 1 To Range("A65536").End(xlUp).Row
22         Cells(i, 2).Font.Bold = Not Cells(i, 2).Font.Bold
23     Next i
24     
25     
26     MsgBox "程序运行时间为:" & (Timer - StartTime) & "秒"
27     
28     '为什么For循环用的时间长些呢?
29 End Sub

 

posted @ 2013-12-06 21:55  surfacetension  阅读(681)  评论(0)  编辑  收藏  举报