久草免费在线观看-久草免费在线色站-久草免费在线视频-久草免费资源-天堂网中文在线-天堂网中文字幕

歡迎來到酷云建站平臺(tái),全網(wǎng)營銷云系統(tǒng)加盟中心!

海量企業(yè)網(wǎng)站模板 · 任您選擇

美出特色,精出品質(zhì),一切為了企業(yè)更好的營銷

隱藏側(cè)欄
Beta
轉(zhuǎn)載

提高Excel中Vba的運(yùn)行速度的例子

       辦公軟件教程     2016-02-25     eycms     254     0    

  Vba做為提高Excel工作效率的一種重要方法,被廣大的Excel Fans們廣泛使用。但Vba作為一種腳本語言,其執(zhí)行效率不會(huì)有想象的那么飛速,特別是編寫一些比較復(fù)雜的代碼時(shí),但我們可以對(duì)我們編寫的代碼進(jìn)行優(yōu)化,以便于最大限度的提高代碼的運(yùn)行效率。

  1、使用Excel原有的函數(shù)來進(jìn)行計(jì)算
假如您采用循環(huán)的方式進(jìn)行平均數(shù)的求解

 代碼如下復(fù)制代碼
For Each c In Range(″A1:A1000″)
  TotalValue = TotalValue + c.Value
Next
AverageValue = TotalValue /Range(″A1:A1000″).Rows.Count

那么上述代碼的執(zhí)行效率,將比下面的代碼低的多

 代碼如下復(fù)制代碼
AverageValue=Application.WorksheetFunction.Average(Range(″A1:A1000″))

希望同學(xué)們舉一反三,能采用Excel自帶函數(shù)、屬性解決的問題,盡量不要自行擴(kuò)展代碼解決。

 

2、盡量減少使用對(duì)象引用,尤其在循環(huán)中
每一個(gè)Excel對(duì)象的屬性、方法的調(diào)用都需要通過OLE接口的一個(gè)或多個(gè)調(diào)用,這些OLE調(diào)用都是需要時(shí)間的,減少使用對(duì)象引用能加快VBA代碼的運(yùn)行。例如

1.使用With語句

 代碼如下復(fù)制代碼
Workbooks(1).Sheets(1).Range(″A1:A1000″).Font.Name=″Pay″
Workbooks(1).Sheets(1).Range(″A1:A1000″).Font.FontStyle=″Bold″ ...

則以下語句比上面的快

 代碼如下復(fù)制代碼
With Workbooks(1).Sheets(1).Range(″A1:A1000″).Font
   .Name = ″Pay″
   .FontStyle = ″Bold″
   ...
End With

  (在With內(nèi)部執(zhí)行時(shí),VB將在內(nèi)存中維護(hù)一個(gè)臨時(shí)對(duì)象,既如下面方法中一樣相當(dāng)于使用了一個(gè)臨時(shí)變量,只是該臨時(shí)變量是由系統(tǒng)定義系統(tǒng)命名的變量)

  2.使用對(duì)象變量
  如果你發(fā)現(xiàn)一個(gè)對(duì)象引用被多次使用,則你可以將此對(duì)象用Set 設(shè)置為對(duì)象變量,以減少對(duì)對(duì)象的訪問。如:

 

 代碼如下復(fù)制代碼
  Workbooks(1).Sheets(1).Range(″A1″).Value = 100
   Workbooks(1).Sheets(1).Range(″A2″).Value = 200

  則以下代碼比上面的要快:

 

 代碼如下復(fù)制代碼
 Set MySheet = Workbooks(1).Sheets(1)
  MySheet.Range(″A1″).Value = 100
  MySheet.Range(″A2″).Value = 200

  3.在循環(huán)中要盡量減少對(duì)象的訪問

 代碼如下復(fù)制代碼
  For k = 1 To 1000
   Sheets(″Sheet1″).Select
   Cells(k,1).Value = Cells(1,1).Value
  Next k

  則以下代碼比上面的要快:

 代碼如下復(fù)制代碼
  Set TheValue = Cells(1,1).Value
  Sheets(″Sheet1″).Select
  For k = 1 To 1000
   Cells(k,1).Value = TheValue
  Next k

  3、減少對(duì)象的激活和選擇

 代碼如下復(fù)制代碼

  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)閉屏幕更新
  這應(yīng)該是大多數(shù)使用Vba的童鞋都知道的方法,也是最有效的方法,但需要注意一點(diǎn),就是關(guān)閉屏幕刷新后一定要記得,代碼運(yùn)行完畢后重新打開,特別是運(yùn)行出錯(cuò)的時(shí)候要有正確的錯(cuò)誤處理,來保障屏幕刷新可以重新被打開:

 代碼如下復(fù)制代碼
  Application.ScreenUpdate = False
    '關(guān)閉屏幕刷新
    On Error Goto ErrLab
  ErrLab:
  Application.ScreenUpdate = True

    '打開屏幕刷新


--結(jié)束END--

本文鏈接: http://www.u0rvp.cn/resources/office/1396.html (轉(zhuǎn)載時(shí)請(qǐng)注明來源鏈接)

 
本文標(biāo)簽: 全部

下班PC閱讀不方便?

手機(jī)也可以隨時(shí)學(xué)習(xí)開發(fā)

微信關(guān)注公眾號(hào)“酷云”
"酷云平臺(tái)前端開發(fā)教學(xué)"
每日干貨技術(shù)分享
 

×

成為 酷云平臺(tái) 代理商!

關(guān)注

微信
關(guān)注

微信掃一掃
獲取最新優(yōu)惠信息

酷云平臺(tái)公眾號(hào)

客服

聯(lián)系
客服

很高興為您服務(wù)
尊敬的用戶,歡迎您咨詢,我們?yōu)樾掠脩魷?zhǔn)備了優(yōu)惠好禮。 咨詢客服

聯(lián)系客服:

在線QQ: 3206174

客服電話: 0516-83703228

售前咨詢 售后服務(wù)
在線交談 智能小云

工作時(shí)間:

周一至周五: 09:00 - 17:00

WAP

手機(jī)
訪問

移動(dòng)端訪問
手機(jī)上也能選模板

酷云平臺(tái)手機(jī)端

免费一级生活片| 国产伦理精品| 人人干人人草| 久久精品大片| 夜夜操网| 999精品影视在线观看| 欧美1区| 国产伦精品一区三区视频| 国产成a人片在线观看视频| 日本在线www| 亚洲女人国产香蕉久久精品| 欧美大片a一级毛片视频| 日本伦理黄色大片在线观看网站| 欧美一级视频免费观看| 成人免费观看网欧美片| 欧美爱爱动态| 午夜久久网| 国产视频网站在线观看| 国产不卡福利| 九九国产| 欧美激情一区二区三区在线| 国产一区二区高清视频| 尤物视频网站在线观看| 久久久久久久男人的天堂| 二级片在线观看| 久久国产一久久高清| 天天色成人| 国产美女在线观看| 欧美激情一区二区三区在线| 成人免费一级纶理片| 亚洲天堂在线播放| 九九精品影院| 好男人天堂网 久久精品国产这里是免费 国产精品成人一区二区 男人天堂网2021 男人的天堂在线观看 丁香六月综合激情 | 色综合久久久久综合体桃花网| 成人免费网站久久久| 日韩一级黄色| 麻豆网站在线看| 日本特黄特黄aaaaa大片| 九九精品久久久久久久久| 久久国产精品自由自在| 国产精品自拍在线观看| 黄视频网站在线观看| 午夜久久网| 国产亚洲免费观看| 999久久66久6只有精品| 国产高清在线精品一区a| 日韩专区一区| 欧美激情一区二区三区在线| 国产一区二区精品久久91| 国产网站免费视频| 美女被草网站| 日韩avdvd| 欧美夜夜骑 青草视频在线观看完整版 久久精品99无色码中文字幕 欧美日韩一区二区在线观看视频 欧美中文字幕在线视频 www.99精品 香蕉视频久久 | 日日夜夜婷婷| 999久久狠狠免费精品| 亚洲 国产精品 日韩| 沈樵在线观看福利| 国产伦精品一区二区三区在线观看| 成人高清视频在线观看| 99热精品在线| 欧美a级大片| 日本免费看视频| 青草国产在线观看| 一级毛片视频免费| 午夜家庭影院| 国产视频一区二区三区四区| 欧美激情中文字幕一区二区| 日韩一级黄色片| 国产a免费观看| 国产91精品一区二区| 成人免费高清视频| 91麻豆爱豆果冻天美星空| 日本在线不卡免费视频一区| 精品国产三级a| 国产极品精频在线观看| 日本在线不卡免费视频一区| 国产亚洲免费观看| 九九精品久久久久久久久| 国产一区精品| 亚洲精品影院| 亚洲第一视频在线播放| 成人高清护士在线播放| 国产极品精频在线观看| 亚洲女人国产香蕉久久精品 | 九九干| 国产91丝袜在线播放0| 国产精品免费久久| 欧美夜夜骑 青草视频在线观看完整版 久久精品99无色码中文字幕 欧美日韩一区二区在线观看视频 欧美中文字幕在线视频 www.99精品 香蕉视频久久 | 亚欧视频在线| 亚欧视频在线| 美女免费精品视频在线观看| 色综合久久天天综合| 国产a网| 国产一区二区精品在线观看| 高清一级做a爱过程不卡视频| 99久久精品国产片| 999久久久免费精品国产牛牛| 91麻豆tv| 亚洲wwwwww| 精品视频一区二区| 日本久久久久久久 97久久精品一区二区三区 狠狠色噜噜狠狠狠狠97 日日干综合 五月天婷婷在线观看高清 九色福利视频 | 日本伦理片网站| 国产一区免费观看| a级毛片免费观看网站| 天天做日日爱| 久久久久久久网| 精品久久久久久影院免费| 日本伦理黄色大片在线观看网站| 欧美a免费| 亚洲精品影院一区二区| 麻豆网站在线看| 91麻豆精品国产片在线观看| 精品国产一区二区三区国产馆| 国产麻豆精品免费密入口| 九九免费高清在线观看视频| a级精品九九九大片免费看| 精品视频在线观看视频免费视频| 欧美夜夜骑 青草视频在线观看完整版 久久精品99无色码中文字幕 欧美日韩一区二区在线观看视频 欧美中文字幕在线视频 www.99精品 香蕉视频久久 | 日本在线不卡免费视频一区| 国产视频一区二区三区四区| 精品国产亚一区二区三区| 999久久66久6只有精品| 国产视频一区二区在线播放| 国产国语对白一级毛片| 日韩女人做爰大片| 日日日夜夜操| 亚欧成人毛片一区二区三区四区| 国产一区二区精品久久| 亚飞与亚基在线观看| 欧美1区| 成人免费网站久久久| 精品久久久久久免费影院| 韩国毛片| 欧美a级大片| 国产一级强片在线观看| 成人免费一级纶理片| 四虎久久精品国产| 99久久精品国产高清一区二区 | 色综合久久天天综线观看| 91麻豆精品国产综合久久久| 四虎影视久久久免费| 国产一区二区福利久久| 亚洲精品久久玖玖玖玖| 欧美日本免费| a级毛片免费观看网站| 91麻豆精品国产片在线观看| 国产一区二区高清视频| 国产成人啪精品| 日韩av东京社区男人的天堂| 国产精品123| 久久精品欧美一区二区| 高清一级片| 欧美爱爱动态| 日本伦理片网站| 国产高清视频免费| 国产伦精品一区二区三区无广告| 成人高清视频在线观看| 国产伦精品一区三区视频| 999精品在线| 久久久久久久男人的天堂| 韩国三级香港三级日本三级| 国产成人精品综合| 精品视频免费在线| 精品久久久久久免费影院| 欧美激情一区二区三区视频高清| 久久国产精品自由自在| 天天做人人爱夜夜爽2020毛片| 国产成人精品综合| 国产一级生活片| 欧美日本国产| 精品国产三级a| 国产极品精频在线观看| 九九免费高清在线观看视频| 日本特黄特色aa大片免费| 久久国产精品永久免费网站| 欧美激情一区二区三区视频 | 亚洲精品中文字幕久久久久久| 国产亚洲精品aaa大片| a级精品九九九大片免费看| 日韩一级黄色片| 久草免费在线色站| 欧美国产日韩在线| 国产精品自拍在线观看| 国产原创中文字幕| 久久国产精品自线拍免费| 国产高清在线精品一区二区| 欧美一级视频免费观看| 精品国产三级a| 欧美国产日韩在线| 99久久网站| 韩国三级香港三级日本三级| 国产一区二区精品久| 欧美激情中文字幕一区二区| 国产伦精品一区二区三区在线观看| 久久国产精品只做精品| a级精品九九九大片免费看| 麻豆系列国产剧在线观看| 午夜久久网| 精品久久久久久免费影院| 日本伦理黄色大片在线观看网站|