999精品在线视频,手机成人午夜在线视频,久久不卡国产精品无码,中日无码在线观看,成人av手机在线观看,日韩精品亚洲一区中文字幕,亚洲av无码人妻,四虎国产在线观看 ?

VBA在Excel中的應用一例

2017-04-10 03:57:59杜玉紅
山東工業技術 2017年7期

摘 要:VBA是建立在微軟Office中的一種應用程序開發工具,為使用者提供了一種可編程的文字、表格處理手段,避免了因人工編輯出現錯誤和內容過多帶來大量重復勞動,可以提高辦公效率。在Excel中,自身已經帶有很多實用的公式,除滿足日常計算應用外,還可以用VBA提供更高級的處理辦法。

關鍵詞:VBA;Excel;程序開發

DOI:10.16640/j.cnki.37-1222/t.2017.07.124

如果深入了解過Excel,會發現其原有的公式非常強大,處理重復工作時還可以采用制作宏來解決,如果使用過宏命令,就相當于用到了一次簡單的VBA代碼。事實上,VBA編輯器在菜單中也是包含在“宏”的分類下的。

1 For-next語句的示例

本文中,我們就以一個簡單的“計算1到1000中各類數字和”的例子,來探索一下其應用。

在此,我們用到的是For-next語句。即從開始執行語句后,反復執行For和Next之間的代碼,直到執行完畢或遇到Exit for后終止,標準句式如下:

For 循環變量=初始 to 終值 step 步長

循環語句1

[exit for]

循環語句2

Next 循環變量

其中,步長、exit for和next后的變量均可省略,步長省略后的默認值為1,exit for是強制退出循環命令,執行后將直接跳到next后面。

在此,我們分別給出計算1-10000中整數和、偶數和以及奇數和這幾個代碼。

整數和:

Sub naturesum()

Dim i&,j&

For i=1 to 10000

j=j+i

Next

MsgBox “1到10000的自然數和為:” &j

End Sub

偶數和:

Sub 求1到10000之間偶數和()

Dim i&, j&

For i = 0 To 10000 Step 2

j = j+ i

Next

MsgBox "1到10000之間偶數和為" & j

End Sub

奇數和

Sub 求1到10000之間奇數和()

Dim i&, j&

For i = 1 To 10000 Step 2

j = j + i

Next

MsgBox "1到10000之間奇數和為" & j

End Sub

可以看到,和其他語言如C語言中一樣,變量的定義、循環語句的使用和中斷是基本類似的。可以用到的是多行選條件統計,做成VBA按鈕后省略常規方式的選中、篩選、使用vlookup或類似語句進行條件判斷再復制結果的步驟。

2 VBA中的對象特殊性

其他還有for-each,do-while等語句,使用原理和其他編程語言一致,不再一一列舉,但要注意的是,VBA的對象類型是為了控制Excel而存在,因此和其他語言是有區別的。Excel程序(Application對象)、工作薄(Workbook對象)、工作表(Worksheet對象)、單元格(Range對象)還是操作圖表(Chart對象)、窗體(Userfrom對象)等等,都是在操作對象。每個對象都是其他對象的一部分,也可以由其他對象組成。最頂端的對象為Application即Excel程序本身,加上worksheet即標簽頁,都可以通過VBA直接操作,對于某個單元格更不在話下,VBA的工作原理至此應該可以十分透徹的理解了。

其他VBA獨有的代碼命令如針對單元格的選中、復制和粘貼等,如下列復制粘貼代碼:

Sub Macro1()

Range("A1").Copy Range("B1")

End Sub

其中“Range”是規定操作區域的命令,也可以加上“select”即Range("A1").Select,即選中A1單元格,但與鼠標操作不同,VBA操作可以在不選取的情況下進行。如果跨工作表則增加Workbooks和Steets標簽,如 Workbooks("book1").Sheets(1).[a1:a10]即文件book1中sheet1表格的a1到a10單元格。

VBA的應用十分靈活多變,綜合了各種程序語言的特征,能極大地提高Excel的功能性和實用性,再熟悉環境后加強運用,會獲得意想不到的便利,甚至遠大于某些低廉的專用辦公系統。

參考文獻:

[1]賈志先.基于邏輯推理的計算機試題評卷算法研究[J].智能計算機與應用,2014(04).

[2]賈志先.計算機文化基礎考試系統的開發與應用[J].計算機應用,2001(07)中國圖書全文數據庫共3條.

[1]馬維峰.ExcelVBA應用開發從基礎到實踐[M].電子工業出版社,2006.

[2]王鴻儒.ExcelVBA程序設計[M].中國鐵道出版社,2005.

[3](美)[B.扎拉琴]BeckZaratian.MicrosoftVisualJ++6.0programmersguide程序員指南[M].北京希望電子出版社,1999.

作者簡介:杜玉紅(1979-),女,河南安陽人,本科,講師,主要研究方向:計算機應用。

主站蜘蛛池模板: aⅴ免费在线观看| 免费无码AV片在线观看国产| 波多野结衣视频一区二区| 国产综合网站| 日韩AV无码一区| 国产女人18水真多毛片18精品| 国产成人精品亚洲77美色| 久久男人视频| 99热最新网址| 爱色欧美亚洲综合图区| 亚洲Va中文字幕久久一区| 91一级片| 99精品在线看| 伊人色综合久久天天| 亚洲色图在线观看| 色成人亚洲| 亚洲精品综合一二三区在线| 青青草原偷拍视频| 最新国产精品第1页| 精品福利视频网| 国产香蕉国产精品偷在线观看| 尤物成AV人片在线观看| 成年人久久黄色网站| 亚洲无码精彩视频在线观看| 日韩精品少妇无码受不了| 黄色福利在线| 天天色天天操综合网| 色九九视频| 中文字幕无码制服中字| 亚洲二三区| 日韩乱码免费一区二区三区| 乱人伦中文视频在线观看免费| 亚洲视频无码| 蜜芽国产尤物av尤物在线看| 国产精品无码久久久久久| 成年人午夜免费视频| 色婷婷电影网| 六月婷婷综合| 欧美成人手机在线观看网址| 成人午夜亚洲影视在线观看| 国产AV无码专区亚洲精品网站| 激情综合网激情综合| 久久综合结合久久狠狠狠97色| 久久精品人人做人人综合试看| 国产成人高清在线精品| 国产正在播放| 欧美午夜视频在线| 亚洲视频a| 欧美午夜视频| 久久中文字幕2021精品| 在线播放精品一区二区啪视频| 亚洲免费福利视频| 四虎影视国产精品| 国产Av无码精品色午夜| 91成人在线免费观看| 波多野结衣中文字幕一区| 免费一级毛片不卡在线播放| 99久久国产自偷自偷免费一区| 国产成人综合日韩精品无码首页| 91久久国产热精品免费| 91无码人妻精品一区| 国产乱人伦AV在线A| 她的性爱视频| 日本黄色不卡视频| 亚洲天堂视频在线免费观看| 爽爽影院十八禁在线观看| 国产免费高清无需播放器| 伊在人亞洲香蕉精品區| 日韩午夜片| 91探花国产综合在线精品| 国产真实乱人视频| 呦视频在线一区二区三区| 欧亚日韩Av| 日韩欧美国产三级| 国产日韩精品一区在线不卡| 1级黄色毛片| 久久国产乱子伦视频无卡顿| 亚洲欧美色中文字幕| 欧美午夜在线播放| 日韩精品欧美国产在线| 国产成人精品无码一区二| 免费xxxxx在线观看网站|