在线观看亚洲精品专区-在线观看亚洲免费-在线观看亚洲免费视频-在线观看亚洲欧美-欧美freexxx-欧美free嫩交video

VIP標(biāo)識 上網(wǎng)做生意,首選VIP會員| 設(shè)為首頁| 加入桌面| | 手機(jī)版| RSS訂閱
食品伙伴網(wǎng)服務(wù)號
 
當(dāng)前位置: 首頁 » 食品專題 » 辦公軟件-excel使用技巧 » 正文

第六課提高Excel中VBA的效率

放大字體  縮小字體 發(fā)布日期:2006-06-16

由于Microsoft Office辦公套件的廣泛應(yīng)用,以及該軟件版本的不斷提升,功能不斷完善,在Office辦公套件平臺上開發(fā)出的的VBA應(yīng)用程序越來越多,而VBA是一種宏語言,在運(yùn)行速度上有很大的限制。因此VBA編程的方法直接關(guān)系到VBA程序運(yùn)行的效率,本文列舉了一些提高VBA程序運(yùn)行效率的方法。

  方法1:盡量使用VBA原有的屬性、方法和Worksheet函數(shù)

  由于Excel對象多達(dá)百多個,對象的屬性、方法、事件多不勝數(shù),對于初學(xué)者來說可能對它們不全部了解,這就產(chǎn)生了編程者經(jīng)常編寫與Excel對象的屬性、方法相同功能的VBA代碼段,而這些代碼段的運(yùn)行效率顯然與Excel對象的屬性、方法完成任務(wù)的速度相差甚大。例如用Range的屬性CurrentRegion來返回Range 對象,該對象代表當(dāng)前區(qū)。(當(dāng)前區(qū)指以任意空白行及空白列的組合為邊界的區(qū)域)。同樣功能的VBA代碼需數(shù)十行。因此編程前應(yīng)盡可能多地了解Excel對象的屬性、方法。

  充分利用Worksheet函數(shù)是提高程序運(yùn)行速度的極度有效的方法。如求平均工資的例子:

      For Each c In
        Worksheet(1).Range(″A1:A1000″)
  TotalValue = TotalValue + c.Value
  Next
  AverageValue = TotalValue / Worksheet(1).Range(″A1:A1000″).Rows.Count

  而下面代碼程序比上面例子快得多:
   AverageValue=Application.WorksheetFunction.Average(Worksheets(1).Range(″A1:A1000″))
  其它函數(shù)如Count,Counta,Countif,Match,Lookup等等,都能代替相同功能的VBA程序代碼,提高程序的運(yùn)行速度。

  方法2:盡量減少使用對象引用,尤其在循環(huán)中

  每一個Excel對象的屬性、方法的調(diào)用都需要通過OLE接口的一個或多個調(diào)用,這些OLE調(diào)用都是需要時間的,減少使用對象引用能加快VBA代碼的運(yùn)行。例如

  1.使用With語句。
   Workbooks(1).Sheets(1).Range(″A1:A1000″).Font.Name=″Pay″
    Workbooks(1).Sheets(1).Range(″A1:A1000″).Font.FontStyle=″Bold″ ...

 則以下語句比上面的快
 With Workbooks(1).Sheets(1).Range(″A1:A1000″).Font
   .Name = ″Pay″
   .FontStyle = ″Bold″
   ...

  End With

  2.使用對象變量。
  如果你發(fā)現(xiàn)一個對象引用被多次使用,則你可以將此對象用Set 設(shè)置為對象變量,以減少對對象的訪問。如:
   Workbooks(1).Sheets(1).Range(″A1″).Value = 100
   Workbooks(1).Sheets(1).Range(″A2″).Value = 200

  則以下代碼比上面的要快:
  Set MySheet = Workbooks(1).Sheets(1)
  MySheet.Range(″A1″).Value = 100
  MySheet.Range(″A2″).Value = 200

  3.在循環(huán)中要盡量減少對象的訪問。
  For k = 1 To 1000
   Sheets(″Sheet1″).Select
   Cells(k,1).Value = Cells(1,1).Value
  Next k

  則以下代碼比上面的要快:
  Set TheValue = Cells(1,1).Value
  Sheets(″Sheet1″).Select
  For k = 1 To 1000
   Cells(k,1).Value = TheValue
  Next k

  方法3:減少對象的激活和選擇

  如果你的通過錄制宏來學(xué)習(xí)VBA的,則你的VBA程序里一定充滿了對象的激活和選擇,例如Workbooks(XXX).Activate、Sheets(XXX).Select、Range(XXX).Select等,但事實(shí)上大多數(shù)情況下這些操作不是必需的。例如

  Sheets(″Sheet3″).Select
  Range(″A1″).Value = 100
  Range(″A2″).Value = 200
  可改為:
  With Sheets(″Sheet3″)
   .Range(″A1″).Value = 100
   .Range(″A2″).Value = 200
  End With

  方法4:關(guān)閉屏幕更新

  如果你的VBA程序前面三條做得比較差,則關(guān)閉屏幕更新是提高VBA程序運(yùn)行速度的最有效的方法,縮短運(yùn)行時間2/3左右。關(guān)閉屏幕更新的方法:
  Application.ScreenUpdate = False
  請不要忘記VBA程序運(yùn)行結(jié)束時再將該值設(shè)回來:
  Application.ScreenUpdate = True

  以上是提高VBA運(yùn)行效率的比較有效的幾種方法。

 
[ 網(wǎng)刊訂閱 ]  [ 食品專題搜索 ]  [ ]  [ 告訴好友 ]  [ 打印本文 ]  [ 關(guān)閉窗口 ] [ 返回頂部 ]

 

 
推薦圖文
推薦食品專題
點(diǎn)擊排行
 
 
Processed in 0.508 second(s), 801 queries, Memory 2.67 M
主站蜘蛛池模板: 成人在线播放av | 午夜视频在线观看一区二区 | 欧美色图在线观看 | 看片免费黄 | 老司机午夜网站 | 色综合天天综合 | tom影院亚洲国产一区二区 | h视频国产 | 天天在线免费视频 | 天堂bt资源www在线 | 201天天爱天天做 | 久久精品亚洲精品国产欧美 | 看免费黄色大片 | 热99re久久精品2久久久 | xvideos国产 | 亚洲免费成人 | 综合免费一区二区三区 | 一本到视频在线 | 久久伊人成人 | 国产三级国产精品国产普男人 | 国模谢心2013.05.06私拍 | 久久天天躁狠狠躁夜夜爽 | 1024你懂的在线观看 | 美女被免费网站91色 | 99午夜 | 亚洲综合精品 | 三级黄页 | 久久婷婷色综合老司机 | ww欧洲ww欧洲视频 | 天天操天天干天天拍 | 色香影视 | 中文字幕首页 | 在线视频免费视频网站 | 不卡无毒免费毛片视频观看 | 日韩欧美成人乱码一在线 | 天天做天天做天天综合网 | 中文字幕一区二区三区精品 | 精品久久香蕉国产线看观看亚洲 | 被啪漫画羞羞漫画 | 天天躁狠狠躁夜躁2021 | 两性午夜欧美高清做性 |