學(xué)習(xí)VBA基礎(chǔ)知識(shí)講課教案

VBA基礎(chǔ)(jīchǔ)（31-Oct-21）第一頁(yè)，共108頁(yè)。數(shù)組VBA程序流程控制(kòngzhì)VBA常用(chánɡyònɡ)語(yǔ)句VBA編程基礎(chǔ)(jīchǔ)VBA概念VBA概念第二頁(yè)，共108頁(yè)。1-1VBA簡(jiǎn)介(jiǎnjiè)VBA(VisualBasicforApplication)是MicrosoftOffice系列軟件的內(nèi)置編程語(yǔ)言，其語(yǔ)法結(jié)構(gòu)與VisualBasic編程語(yǔ)言互相兼容，采用的是面向?qū)ο蟮木幊虣C(jī)制(jīzhì)和可視化的編程環(huán)境。第三頁(yè)，共108頁(yè)。1-2面向?qū)ο蟪绦蛟O(shè)計(jì)(chénɡxùshèjì)的基本概念1.集合和對(duì)象VBA中的應(yīng)用程序是由許多對(duì)象組成的，如表、窗體、查詢等。對(duì)象是幫助構(gòu)造應(yīng)用程序的元素，以特定的方式組織這些(zhèxiē)對(duì)象，就形成了應(yīng)用程序。2.對(duì)象的屬性、事件和方法屬性屬性描述了對(duì)象的自身(zìshēn)性質(zhì)其格式為：對(duì)象名.屬性=屬性值第四頁(yè)，共108頁(yè)。1-2面向?qū)ο蟪绦蛟O(shè)計(jì)(chénɡxùshèjì)的基本概念事件事件是指可以發(fā)生在一個(gè)(yīɡè)對(duì)象上且能夠被該對(duì)象所識(shí)別的動(dòng)作。如：?jiǎn)螕裟硞€(gè)命令按鈕就產(chǎn)生該按鈕的“單擊”事件當(dāng)某個(gè)對(duì)象發(fā)生某一事件后，就會(huì)驅(qū)動(dòng)系統(tǒng)去執(zhí)行預(yù)先編好的、與這一事件相對(duì)應(yīng)的一段程序。方法方法是系統(tǒng)事先設(shè)計(jì)好的，可以完成一定操作的特殊過(guò)程，是附屬(fùshǔ)于對(duì)象的行為和動(dòng)作。在需要使用的時(shí)候可以直接調(diào)用。其格式為： 對(duì)象名.方法名第五頁(yè)，共108頁(yè)。常見(jiàn)(chánɡjiàn)對(duì)象及其含義對(duì)象名含義Application代表整個(gè)Excel應(yīng)用程序Window代表窗口Worksheet代表一個(gè)工作表Sheets指定的或活動(dòng)工作薄中所有工作表的集合ShapeRange代表形狀區(qū)域，它是文檔中的一組形狀PivotTable代表工作表上的數(shù)據(jù)透視圖Workbook代表一個(gè)Excel工作薄Shape代表繪圖層中的對(duì)象，例如自選圖形Range代表某一單元格、某一行、某一列、某一區(qū)域Name代表單元格區(qū)域的自定義名Chart代表工作薄中的圖表FileDialog提示文件對(duì)話框，功能和應(yīng)用程序中標(biāo)準(zhǔn)“打開(kāi)”和“保存”對(duì)話框類似CommandBarPopup代表命令欄上的一個(gè)彈出式控件CommandBar代表容器應(yīng)用程序中的一個(gè)命令欄第六頁(yè)，共108頁(yè)。1-3VBA編程環(huán)境(huánjìng)VBA中的程序與函數(shù)共有４種：一般程序（Sub）、事件(shìjiàn)程序（Event）、屬性程序（Property）和函數(shù)（Function）VBA程序窗口共６種：代碼窗口、立即窗口、本地窗口、監(jiān)視窗口、工程資源管理器和屬性窗口在VBE環(huán)境中編寫VBA代碼第七頁(yè)，共108頁(yè)。工程(gōngchéng)窗口－選擇對(duì)象屬性(shǔxìng)窗口－選擇對(duì)象的屬性(shǔxìng)代碼(dàimǎ)窗口選擇事件VBE編程環(huán)境第八頁(yè)，共108頁(yè)。標(biāo)準(zhǔn)(biāozhǔn)工具條視圖MicrosoftExcel按鈕：切換Excel窗口(chuāngkǒu)插入按鈕：插入模塊或過(guò)程運(yùn)行子過(guò)程/用戶窗體按鈕：運(yùn)行模塊中的程序中斷按鈕：中斷正在運(yùn)行的程序重新設(shè)置按鈕：結(jié)束正在運(yùn)行的程序設(shè)置模式按鈕：在設(shè)計(jì)模式和非設(shè)計(jì)模式之間切換工程資源管理器按鈕：用于打開(kāi)工程資源管理器屬性窗口(chuāngkǒu)按鈕：用于打開(kāi)屬性窗口(chuāngkǒu)對(duì)象瀏覽器按鈕：用于打開(kāi)對(duì)象瀏覽器Microsoft

Excel插入(chārù)模塊運(yùn)行子過(guò)程/用戶窗體設(shè)計(jì)模式中斷重新設(shè)計(jì)工程資源管理器對(duì)象瀏覽器屬性窗口第九頁(yè)，共108頁(yè)。新建一個(gè)窗體并添加兩個(gè)命令(mìnglìng)按鈕，運(yùn)行窗體后，單擊第一個(gè)按鈕，顯示一個(gè)消息框；單擊第二個(gè)按鈕，退出當(dāng)前窗體通過(guò)此例，體會(huì)可視化編程、面向?qū)ο蟆⑹录?shìjiàn)過(guò)程、應(yīng)用方法等基本概念。第十頁(yè)，共108頁(yè)。數(shù)組VBA程序流程控制(kòngzhì)VBA常用(chánɡyònɡ)語(yǔ)句VBA編程基礎(chǔ)(jīchǔ)VBA概念VBA編程基礎(chǔ)第十一頁(yè)，共108頁(yè)。2-1常量(chángliàng)、變量VBA使用常量(chángliàng)、變量來(lái)存儲(chǔ)值。用來(lái)保存在程序運(yùn)行期間數(shù)據(jù)。常量(chángliàng)：在程序運(yùn)行中其存儲(chǔ)的值不會(huì)改變。變量：在程序運(yùn)行中其值可以改變。第十二頁(yè)，共108頁(yè)。2-1-1常量(chángliàng)在程序運(yùn)行過(guò)程中，其值不會(huì)被改變的量稱為常量。在VBA中有三類(sānlèi)常量：1.直接常量如：10，20%，123.0，“AB”，“VBA程序設(shè)計(jì)”等2.符號(hào)常量3.系統(tǒng)常量指VBA系統(tǒng)預(yù)先定義好的，用戶可以直接引用的量。如：acForm，acQuery，vbOk，vbRed第十三頁(yè)，共108頁(yè)。符號(hào)(fúhào)常量在程序中，某個(gè)常量多次被使用，則可以使用一個(gè)符號(hào)來(lái)代替該常量，這樣不僅在書寫上方便，而且有效地改進(jìn)(gǎijìn)了程序的可讀性和可維護(hù)性。VBA中使用關(guān)鍵字Const聲明符號(hào)常量。其格式如下：Const常量名[類型符號(hào)]=常數(shù)表達(dá)式如：ConstPI#=3.1415926第十四頁(yè)，共108頁(yè)。2-1-2變量(biànliàng)變量(biànliàng)是內(nèi)存中的臨時(shí)單元，存放在程序執(zhí)行過(guò)程中產(chǎn)生的中間結(jié)果和最后輸出結(jié)果。在程序中使用變量(biànliàng)，就要給變量(biànliàng)定義名稱及類型，即對(duì)變量(biànliàng)進(jìn)行聲明。第十五頁(yè)，共108頁(yè)。變量(biànliàng)命名規(guī)則1.變量名必須以字母或漢字開(kāi)頭，后可跟字母、漢字、數(shù)字或下劃線組成（不能含有(hányǒu)小數(shù)點(diǎn)和空格），長(zhǎng)度不超過(guò)255個(gè)字符的字符串；2.不能使用VBA中的關(guān)鍵字；3.VBA中不區(qū)分變量名的大小寫；4.變量名的最后一個(gè)字符可以是%、&、！、#、$等表示數(shù)據(jù)類型的聲明符。說(shuō)明：常量名的命名規(guī)則與變量名的命名規(guī)則相同第十六頁(yè)，共108頁(yè)。2-2數(shù)據(jù)類型與變量(biànliàng)的聲明在VBA中，數(shù)據(jù)類型用來(lái)決定變量可以保存何種數(shù)據(jù)。VBA支持多種數(shù)據(jù)類型，為用戶編程提供(tígōng)了方便。第十七頁(yè)，共108頁(yè)。2-2-1VBA的數(shù)據(jù)類型數(shù)據(jù)類型類型聲明符存儲(chǔ)空間取值范圍整型（Integer）%2-32768～32767長(zhǎng)整型（Long）&4-2147483648～2147483647單精度浮點(diǎn)型（Single）！4負(fù)數(shù)：-3.402823E38～-1.401298E-45正數(shù)：1.401298E-45～3.402823E38雙精度浮點(diǎn)型（Double）#8負(fù)數(shù)：-1.79769313486232E308～-4.94065645841247E-324正數(shù)：4.94065645841247E-324～1.79769313486232E308貨幣型(Currency)@8-922337203685477.5808～922337203685477.5807日期型(Date)8100年1月1日～9999年12月31日字符型(String)$0字符～65400個(gè)字符字節(jié)型(Byte)10～255邏輯型(Boolean)2True或False對(duì)象型(Object)4任何引用的對(duì)象變體型(Variant)第十八頁(yè)，共108頁(yè)。2-2-2變量(biànliàng)聲明用Dim或Static語(yǔ)句顯式聲明局部變量格式：Dim變量名[AS類型]或Dim變量名類型符語(yǔ)句中的“As類型”子句是可選的。如果使用該子句，就可以定義變量的數(shù)據(jù)類型。未使用，默認(rèn)變量的類型為變體型（Variant）。例如：DimiAsinteger,s表示(biǎoshì)聲明了一個(gè)名為i的整型變量和一個(gè)名為s的變體型變量。第十九頁(yè)，共108頁(yè)。關(guān)鍵字Dim或Static的區(qū)別(qūbié)Dim聲明：隨過(guò)程的調(diào)用而分配存貯單元(dānyuán)，每次調(diào)用都對(duì)變量初始化；過(guò)程體結(jié)束，變量的內(nèi)容自動(dòng)消失，存儲(chǔ)單元(dānyuán)釋放。Static聲明：Static聲明的變量，也稱為靜態(tài)變量。靜態(tài)變量在程序運(yùn)行過(guò)程中一直保留其值，即每次調(diào)用過(guò)程，變量保持原來(lái)的值。第二十頁(yè)，共108頁(yè)。數(shù)據(jù)類型的轉(zhuǎn)換(zhuǎnhuàn)函數(shù)列表函數(shù)返回類型CByteByteCBoolBooleanCIntIntegerCLngLong(長(zhǎng)整型)CSngSingle(單精度浮點(diǎn)型)CDblDouble(雙精度浮點(diǎn)型)CCurCurrency(變比整數(shù))CDecDecimalCDateDateCStrStringCvarVariant第二十一頁(yè)，共108頁(yè)。識(shí)別(shíbié)數(shù)據(jù)類型的函數(shù)TypeNameSubabc()DimiAsIntegerDimstrAsStringi=10MsgBoxTypeName(i)str=CStr(i)MsgBoxTypeName(str)EndSub第二十二頁(yè)，共108頁(yè)。隱式聲明(shēngmíng)變量未進(jìn)行上述的聲明而直接使用變量(biànliàng)，稱變量(biànliàng)的隱式聲明，采用隱式聲明的變量(biànliàng)都是變體型（Variant）。

注意:VBA中允許不事先聲明而直接使用變量(biànliàng)，可以通過(guò)語(yǔ)句OptionExplicit，來(lái)要求所使用的變量(biànliàng)必須事先聲明，否則VBA會(huì)發(fā)出警告信息。第二十三頁(yè)，共108頁(yè)。變量a,b,Sum都沒(méi)有(méiyǒu)事先定義PrivateSubForm_Click()Sum=0a=10b=20Sum=a+bDebug.Print"Sum="&SumEndSub良好的編程習(xí)慣應(yīng)該是“先聲明變量，后使用(shǐyòng)變量”，這樣做可以提高程序的效率，同時(shí)也使程序易于調(diào)試。VBA中可以強(qiáng)制顯式聲明，可以在窗體模塊、標(biāo)準(zhǔn)模塊和類模塊的通用聲明段中加入語(yǔ)句：OptionExplicit第二十四頁(yè)，共108頁(yè)。變量(biànliàng)的初始化聲明(shēngmíng)而未賦值的變量的值為：數(shù)值型變量初始化為0；字符型變量為零長(zhǎng)度字符串；變體型變量初始化為Empty；第二十五頁(yè)，共108頁(yè)。2-3-1算術(shù)(suànshù)運(yùn)算符第二十六頁(yè)，共108頁(yè)。2-3-2連接(liánjiē)運(yùn)算符連接(liánjiē)運(yùn)算符：＆、+（字符串連接(liánjiē)）例如："123"+"456"結(jié)果"123456""123"&"456"結(jié)果"123456"使用上＆與+的區(qū)別：例如："abcdef"&12345結(jié)果為"abcdef12345" "123"&456結(jié)果為"123456" "abcdef"+12345結(jié)果為出錯(cuò)"123"+456結(jié)果為579

第二十七頁(yè)，共108頁(yè)。2-3-3關(guān)系(guānxì)運(yùn)算符將兩個(gè)操作數(shù)進(jìn)行大小比較，結(jié)果(jiēguǒ)為邏輯值。注意：字符串比較,則按字符的ASCII碼值從左到右一一比較，直到出現(xiàn)不同的字符為止。第二十八頁(yè)，共108頁(yè)。2-3-4邏輯(luójí)運(yùn)算符將操作數(shù)進(jìn)行(jìnxíng)邏輯運(yùn)算，結(jié)果是邏輯值第二十九頁(yè)，共108頁(yè)。舉例(jǔlì)例1：用人單位招聘秘書：年齡小于40歲的女性，學(xué)歷(xuélì)專科或本科正確(zhèngquè)的VBA表達(dá)式：3〈=xAndx<=7錯(cuò)誤的VBA表達(dá)式：3<=x<=7或3<=xOrx<=7

年齡<40，性別=“女”，(學(xué)歷=“?？啤保瑢W(xué)歷=“本科”)

AndAndOr例2：算術(shù)表達(dá)式：第三十頁(yè)，共108頁(yè)。2-3-5簡(jiǎn)單(jiǎndān)的字符處理函數(shù)作用關(guān)鍵字OptionCompare設(shè)置字符串比較規(guī)則StrComp比較兩個(gè)字符串StrConv字符串類型轉(zhuǎn)換Lcase、Ucase大小寫變換Space、String重復(fù)字符串Len計(jì)算字符串長(zhǎng)度Format設(shè)置字符格式Lset、Rset重排字符串InStr、Left、Ltrim、Mid、RightRtrim、Trim處理字符串Split、Join拆分與連接字符串第三十一頁(yè)，共108頁(yè)。OptionCompare設(shè)置(shèzhì)字符串比較規(guī)則OptionCompare{Binary|Text|Database}OptionCompareBinary:是根據(jù)字符的內(nèi)部二進(jìn)制表示導(dǎo)出的一種排序(páixù)A-Z<a-z<漢字OptionCompareText:是根據(jù)系統(tǒng)區(qū)域確定的一種不區(qū)分大小寫的一種排序(páixù)（A=a）<(B=b)<(Z=z)結(jié)果(jiēguǒ)：True結(jié)果：False第三十二頁(yè)，共108頁(yè)。StrComp比較(bǐjiào)兩個(gè)字符串第三十三頁(yè)，共108頁(yè)。StrConv字符串類型轉(zhuǎn)換常量說(shuō)明vbUpperCase將字符串文字轉(zhuǎn)成大寫vbLowerCase將字符串文字轉(zhuǎn)成小寫vbProperCase將字符串中每個(gè)字的開(kāi)頭字母轉(zhuǎn)成大寫vbWide將字符串中單字節(jié)字符轉(zhuǎn)成雙字節(jié)字符vbNarro將字符串中雙字節(jié)字符轉(zhuǎn)成單字節(jié)字符vbKatakana將字符串中平假名字符轉(zhuǎn)成片假名字符vbHiragana將字符串中片假名字符轉(zhuǎn)成平假名字符vbUnicode根據(jù)系統(tǒng)的默認(rèn)碼頁(yè)將字符串轉(zhuǎn)成UnicodevbFromUnicode將字符串由Unicode轉(zhuǎn)成系統(tǒng)的默認(rèn)碼頁(yè)第三十四頁(yè)，共108頁(yè)。StrConv字符串類型轉(zhuǎn)換(例)MsgBoxstrConv("English",vbUpperCase)&Chr(10)&strConv("English",vbLowerCase)&Chr(10)&strConv("english",vbProperCase)&Chr(10)&strConv("English",vbWide)第三十五頁(yè)，共108頁(yè)。Format格式化字符串MsgBoxFORMAT(Date,"yyyy年m月d日")&Chr(10)&FORMAT(Date,"aaaa"),vbaOKOnly,"現(xiàn)在(xiànzài)是"第三十六頁(yè)，共108頁(yè)。LCase/UCase大小寫轉(zhuǎn)換(zhuǎnhuàn)Sub大小寫轉(zhuǎn)換(zhuǎnhuàn)()MsgBoxLCase("HELLOWORLD")&Chr(10)&UCase("helloworld")EndSub第三十七頁(yè)，共108頁(yè)。String/Space重復(fù)(chóngfù)字符Sub重復(fù)(chóngfù)字符()MsgBoxString(5,"$")&Space(3)&String(5,"*")EndSub第三十八頁(yè)，共108頁(yè)。Lset/Rset字符串往左/右對(duì)齊(duìqí)Sub字符左右對(duì)齊(duìqí)()Dimstr1,str2AsStringstr1="大連華信計(jì)算機(jī)技術(shù)股份有限公司"LSetstr1="華信培訓(xùn)"str2="大連華信計(jì)算機(jī)技術(shù)股份有限公司"RSetstr2="華信培訓(xùn)"MsgBox"["&str1&"]"&Chr(10)&"["&str2&"]"EndSub第三十九頁(yè)，共108頁(yè)。Instr返回字符(zìfú)出現(xiàn)位置Sub查找位置(wèizhi)()MsgBoxInStr("大連華信計(jì)算機(jī)技術(shù)股份有限公司","信")EndSub第四十頁(yè)，共108頁(yè)。Left/Mid/Right從左、中、右取值Sub取值()DimstrAsStringstr="大連華信計(jì)算機(jī)技術(shù)股份(gǔfèn)有限公司"MsgBoxLeft(str,2)&Mid(str,3,2)&Right(str,2)EndSub第四十一頁(yè)，共108頁(yè)。LTrim/RTrim/Trim去除(qùchú)空格Subabc()Dimstr1,str2AsStringstr1="大連"str2="華信"'MsgBoxTrim(str1&str2)&"666"MsgBoxLTrim(str1)&RTrim(str2)&"666"EndSub第四十二頁(yè)，共108頁(yè)。Like字符串相似(xiānɡsì)度比較Subabc()'result=stringlikpattern'?任何單一字符'*零個(gè)或多個(gè)(duōɡè)字符'#任何一個(gè)數(shù)字(0-9)Dimstr1AsStringstr1="abda"Ifstr1Like"*"ThenMsgBox"*相似"Ifstr1Like"a???"ThenMsgBox"?相似"If1234Like"####"ThenMsgBox"#相似"EndSub第四十三頁(yè)，共108頁(yè)。2-4表達(dá)式組成由變量、常量、函數(shù)(hánshù)等運(yùn)算對(duì)象加上運(yùn)算符、圓括號(hào)組成的式子。書寫規(guī)則(1)運(yùn)算符不能相鄰。例a+-b是錯(cuò)誤的。(2)乘號(hào)不能省略。例x乘以y應(yīng)寫成：x*y。(3)括號(hào)必須成對(duì)出現(xiàn)，均使用圓括號(hào)。(4)表達(dá)式從左到右在同一基準(zhǔn)上書寫，無(wú)高低。運(yùn)算優(yōu)先級(jí)算術(shù)運(yùn)算符>連接運(yùn)算符>關(guān)系運(yùn)算符>邏輯運(yùn)算第四十四頁(yè)，共108頁(yè)。2-5常用(chánɡyònɡ)函數(shù)函數(shù)實(shí)際上是系統(tǒng)事先定義好的內(nèi)部程序，用來(lái)(yònɡlái)完成特定的功能。VBA提供了大量的內(nèi)部函數(shù)，供用戶在編程時(shí)使用。函數(shù)的調(diào)用形式為：函數(shù)名(參數(shù)表)常用內(nèi)部函數(shù) 常用內(nèi)部函數(shù)，在立即窗口練習(xí)，體會(huì)函數(shù)的功能。[請(qǐng)參照：VBA函數(shù)參考手冊(cè)]第四十五頁(yè)，共108頁(yè)。2-6模塊(mókuài)、函數(shù)和過(guò)程模塊是自定義的過(guò)程、函數(shù)保存的地方(dìfāng)，也是錄制的宏保存的場(chǎng)所。有兩種基本類型的模塊：類模塊和標(biāo)準(zhǔn)模塊。模塊可以通過(guò)右鍵單擊工程資源管理器的工程名，選擇“插入－模塊”來(lái)新建。新建的模塊缺省的名稱為“模塊1”，“模塊2”,建議在屬性窗口內(nèi)更改為有意義的名稱。模塊任務(wù)：（1）保存(bǎocún)過(guò)程和函數(shù)；（2）定義模塊內(nèi)的私有變量或整個(gè)工程的公有變量。第四十六頁(yè)，共108頁(yè)。2-7過(guò)程(guòchéng)過(guò)程是最基本的運(yùn)行單位語(yǔ)法(yǔfǎ)[Private|Public|Friend][Static]Subname[(arglist)]

[statements]

[ExitSub]

[statements]EndSub在以上程序中，Sub代表過(guò)程種類，表示運(yùn)行指定的操作，但不返回運(yùn)行結(jié)果；第四十七頁(yè)，共108頁(yè)。部分(bùfen) 描述Public可選的。表示所有模塊的所有其它過(guò)程都可訪問(wèn)這個(gè)Sub過(guò)程。如果在包含OptionPrivate的模塊中使用，則這個(gè)過(guò)程在該工程外是不可使用的。Private可選的。表示只有在包含其聲明的模塊中的其它過(guò)程可以訪問(wèn)該Sub過(guò)程。Friend可選的。只能在類模塊中使用。表示該Sub過(guò)程在整個(gè)工程中都是可見(jiàn)的，但對(duì)對(duì)象實(shí)例的控制者是不可見(jiàn)的。Static可選的。表示在調(diào)用之間保留Sub過(guò)程的局部變量的值。Static屬性對(duì)在Sub外聲明的變量不會(huì)產(chǎn)生影響，即使過(guò)程中也使用了這些變量。name必需的。Sub的名稱；遵循標(biāo)準(zhǔn)的變量命名約定。arglist可選的。代表在調(diào)用時(shí)要傳遞給Sub過(guò)程的參數(shù)的變量列表。多個(gè)變量則用逗號(hào)隔開(kāi)。statements可選的。Sub過(guò)程中所執(zhí)行的任何語(yǔ)句組。第四十八頁(yè)，共108頁(yè)。2-8函數(shù)(hánshù)函數(shù)是具有(jùyǒu)返回值的過(guò)程語(yǔ)法[Public|Private|Friend][Static]Functionname[(arglist)][Astype][statements][name=expression][ExitFunction][statements][name=expression]EndFunction第四十九頁(yè)，共108頁(yè)。部分(bùfen) 描述Public可選的。表示所有模塊的所有其它過(guò)程都可訪問(wèn)這個(gè)Function過(guò)程。如果是在包含OptionPrivate的模塊中使用，則這個(gè)過(guò)程在該工程外是不可使用。Private可選的。表示只有包含其聲明的模塊的其它過(guò)程可以訪問(wèn)該Function過(guò)程。Friend可選的。只能在類模塊中使用。表示該Function過(guò)程在整個(gè)工程中都是可見(jiàn)的，但對(duì)于對(duì)象實(shí)例的控制者是不可見(jiàn)的。Static可選的。表示在調(diào)用之間將保留Function過(guò)程的局部變量值。Static屬性對(duì)在該Function外聲明的變量不會(huì)產(chǎn)生影響，即使過(guò)程中也使用了這些變量。name必需的。Function的名稱；遵循標(biāo)準(zhǔn)的變量命名約定。arglist可選的。代表在調(diào)用時(shí)要傳遞給Function過(guò)程的參數(shù)變量列表。多個(gè)變量應(yīng)用逗號(hào)隔開(kāi)。type可選的。Function過(guò)程的返回值的數(shù)據(jù)類型，可以是Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（目前尚不支持）、Date、String（除定長(zhǎng)）、Object、Variant或任何用戶定義類型。statements可選的。在Function過(guò)程中執(zhí)行的任何語(yǔ)句組。expression可選的。Function的返回值。第五十頁(yè)，共108頁(yè)。函數(shù)和過(guò)程(guòchéng)區(qū)別調(diào)用一個(gè)過(guò)程（Sub）時(shí)，必須鍵入過(guò)程名稱以及任何需要的參數(shù)值。Call語(yǔ)句可有可無(wú)，如果使用它，則參數(shù)必須以括號(hào)括起來(lái)。調(diào)用函數(shù)（Function）時(shí)，為了使用函數(shù)的返回值，必須指定函數(shù)給變量，并且(bìngqiě)用括號(hào)將參數(shù)封閉起來(lái)。第五十一頁(yè)，共108頁(yè)。數(shù)組VBA程序流程控制(kòngzhì)VBA常用(chánɡyònɡ)語(yǔ)句VBA編程基礎(chǔ)(jīchǔ)VBA概念VBA常用語(yǔ)句第五十二頁(yè)，共108頁(yè)。3-1VBA語(yǔ)句(yǔjù)書寫規(guī)則VBA代碼不區(qū)分字母的大小寫系統(tǒng)保留字自動(dòng)轉(zhuǎn)換每個(gè)單詞的首字母大寫；語(yǔ)句書寫自由一行(yīxíng)可書寫幾句語(yǔ)句，之間用冒號(hào)(:)分隔；一句語(yǔ)句可分若干行書寫，用續(xù)行符（_）將語(yǔ)句分開(kāi)。第五十三頁(yè)，共108頁(yè)。3-2VBA常用(chánɡyònɡ)語(yǔ)句賦值語(yǔ)句：給變量、常量或?qū)ο蟮膶傩灾付ㄒ粋€(gè)值或表達(dá)式。格式：變量名＝表達(dá)式作用：將表達(dá)式的值賦值給變量名。一般用于給變量賦值或?qū)丶O(shè)定屬性值。例如：s=10Text1.Text＝"歡迎使用VBA"注意：雖然賦值號(hào)與關(guān)系運(yùn)算符等于號(hào)都用“=”表示，VBA會(huì)根據(jù)(gēnjù)所處的位置自動(dòng)判斷是何種意義的符號(hào)第五十四頁(yè)，共108頁(yè)。聲明語(yǔ)句：命名和定義常量、變量、數(shù)組以及過(guò)程(guòchéng)。注釋語(yǔ)句在程序中的適當(dāng)位置加上注釋語(yǔ)句有利于程序的維護(hù)和閱讀。格式：Rem注釋內(nèi)容 或用單引號(hào)’注釋內(nèi)容第五十五頁(yè)，共108頁(yè)。數(shù)組VBA程序流程控制(kòngzhì)VBA常用(chánɡyònɡ)語(yǔ)句VBA編程基礎(chǔ)(jīchǔ)VBA概念VBA程序流程控制第五十六頁(yè)，共108頁(yè)。順序、分支(fēnzhī)、循環(huán)結(jié)構(gòu)(jiégòu)化程序設(shè)計(jì)由順序、分支、循環(huán)這3種基本結(jié)構(gòu)(jiégòu)所組成。語(yǔ)句組2語(yǔ)句組1TF語(yǔ)句組2條件語(yǔ)句組1FT條件語(yǔ)句組TF條件語(yǔ)句組第五十七頁(yè)，共108頁(yè)。4-1分支(fēnzhī)結(jié)構(gòu)單行If語(yǔ)句格式：If表達(dá)式Then語(yǔ)句1[Else語(yǔ)句2]功能：If測(cè)試指定的條件，如果條件表達(dá)式為真（True），則執(zhí)行Then后面的語(yǔ)句1，否則(fǒuzé)執(zhí)行語(yǔ)句2（若Else子句未省略）。TF語(yǔ)句2條件語(yǔ)句1TF條件語(yǔ)句1第五十八頁(yè)，共108頁(yè)。PrivateSubp1()DimxAsInteger,yAsIntegerx=InputBox(“請(qǐng)輸入(shūrù)x值”)Ifx>=0Theny=2*x+1Elsey=1MsgBox"y:"&yEndSub根據(jù)輸入x的值，觀察y的輸出(shūchū)結(jié)果單行If語(yǔ)句(yǔjù)舉例第五十九頁(yè)，共108頁(yè)。

多行If語(yǔ)句(yǔjù)語(yǔ)句組可以由一條(yītiáo)或多條語(yǔ)句組成，語(yǔ)句組不能與Then書寫在同一行，否則VBA認(rèn)為是一個(gè)單行If語(yǔ)句，會(huì)導(dǎo)致Else沒(méi)有匹配的If。語(yǔ)句“EndIf”是多行If語(yǔ)句的結(jié)束標(biāo)志。在多行If語(yǔ)句中，即使省略Else子句，也要寫該結(jié)束標(biāo)志。省略Else子句時(shí)的多行If語(yǔ)句形式為：If表達(dá)式Then語(yǔ)句組 EndIf第六十頁(yè)，共108頁(yè)。例：計(jì)算分段(fēnduàn)函數(shù)單行(dānxínɡ)If語(yǔ)句實(shí)現(xiàn)：Ifx=0Theny=cos(x)－x^3+3*xIfx<>0Theny=sin(x)+sqr(x*x+1)多行If語(yǔ)句(yǔjù)實(shí)現(xiàn)：Ifx<>0Theny=sin(x)+sqr(x*x+1)Elsey=cos(x)－x^3+3*xEndIf第六十一頁(yè)，共108頁(yè)。If語(yǔ)句(yǔjù)的嵌套If語(yǔ)句的嵌套是指If或Else后面(hòumian)的語(yǔ)句塊中又包含If語(yǔ)句。If<表達(dá)式1>ThenIf<表達(dá)式11>Then…EndIf…EndIf第六十二頁(yè)，共108頁(yè)。例：已知x，y，z三個(gè)數(shù)，使得(shǐde)x>y>z用一個(gè)IF語(yǔ)句和一個(gè)嵌套的IF語(yǔ)句實(shí)現(xiàn)Ifx<yThent=x:x=y:y=t

Ify<zThent=y:y=z:z=t

Ifx<yThent=x:x=y:y=tEndIf

EndIfIf語(yǔ)句(yǔjù)的嵌套注意事項(xiàng)：書寫鋸齒型；If與EndIf配對(duì)第六十三頁(yè)，共108頁(yè)。If<表達(dá)式1>Then <語(yǔ)句(yǔjù)塊1>ElseIf<表達(dá)式2>Then <語(yǔ)句(yǔjù)塊2> … [Else語(yǔ)句(yǔjù)塊n+1]EndIfIf…Then…ElseIf語(yǔ)句(多分支(fēnzhī)結(jié)構(gòu))第六十四頁(yè)，共108頁(yè)。說(shuō)明(shuōmíng)不管有幾個(gè)分支，依次判斷，當(dāng)某條件滿足，執(zhí)行相應(yīng)(xiāngyīng)的語(yǔ)句，其余分支不再執(zhí)行；若條件都不滿足，且有Else子句，則執(zhí)行該語(yǔ)句塊，否則什么也不執(zhí)行。ElseIf不能寫成ElseIf。第六十五頁(yè)，共108頁(yè)。例：已知百分制成績(jī)mark，顯示對(duì)應(yīng)的五級(jí)制成績(jī)下列三種方法(fāngfǎ)哪些正確，哪些錯(cuò)誤？方法一Ifmark>=90ThenPrint"優(yōu)"ElseIfmark>=80ThenPrint"良"ElseIfmark>=70ThenPrint"中"ElseIfmark>=60ThenPrint"及格"ElsePrint"不及格"EndIf方法二Ifmark<60ThenPrint"不及格"ElseIfmark<70ThenPrint"及格"ElseIfmark<80ThenPrint"中"ElseIfmark<90ThenPrint"良"ElsePrint"優(yōu)"EndIf方法三Ifmark>=60ThenPrint"及格"ElseIfmark>=70ThenPrint"中"ElseIfmark>=80ThenPrint"良"ElseIfmark>=90ThenPrint"優(yōu)"ElsePrint"不及格"EndIf第六十六頁(yè)，共108頁(yè)。<表達(dá)式列表>：與<變量或表達(dá)式>同類型的下面四種(sìzhǒnɡ)形式之一：表達(dá)式例："A"一組枚舉表達(dá)式(用逗號(hào)分隔)2,4,6,8表達(dá)式1To表達(dá)式2 60To100 Is關(guān)系運(yùn)算符表達(dá)式 Is<60語(yǔ)句(yǔjù)格式： SelectCase變量或表達(dá)式 Case表達(dá)式列表1 語(yǔ)句(yǔjù)塊1 Case表達(dá)式列表2 語(yǔ)句(yǔjù)塊2 … [CaseElse 語(yǔ)句(yǔjù)塊n+1] EndSelect數(shù)值(shùzí)型或字符串表達(dá)式SelectCase語(yǔ)句(情況語(yǔ)句)第六十七頁(yè)，共108頁(yè)。程序(chéngxù)流程圖語(yǔ)句塊n+1語(yǔ)句塊1語(yǔ)句塊2語(yǔ)句塊n條件2TF…...條件nTF條件1TF第六十八頁(yè)，共108頁(yè)。變量strC中存放一個(gè)字符，判斷(pànduàn)該字符類型第六十九頁(yè)，共108頁(yè)。例如：在輸入成績(jī)文本框中輸入一個(gè)分?jǐn)?shù)，單擊“判斷(pànduàn)”命令按鈕后，在成績(jī)等級(jí)文本框中顯示對(duì)應(yīng)的成績(jī)等級(jí)。輸入的成績(jī)?cè)?0~100分為A，80~89分為B，70~79分為C，60~69分為D，0~59分為E，否則顯示出錯(cuò)信息。注意：根據(jù)題意，當(dāng)輸入的成績(jī)不在[0，100]內(nèi)時(shí)，應(yīng)顯示出錯(cuò)信息，在該范圍內(nèi)時(shí)，應(yīng)進(jìn)行分等級(jí)。判斷是否(shìfǒu)為合法成績(jī)可用If語(yǔ)句，而分等級(jí)最好使用SelectCase語(yǔ)句。第七十頁(yè)，共108頁(yè)。條件(tiáojiàn)函數(shù)IIf函數(shù)形式為：IIf（表達(dá)式，當(dāng)表達(dá)式為True時(shí)的值，當(dāng)表達(dá)式為False時(shí)的值）例如：求x，y中大(zhōnɡdà)的數(shù)，放入max變量中。 max=IIf（x>y，x，y）第七十一頁(yè)，共108頁(yè)。循環(huán)(xúnhuán)結(jié)構(gòu)For…Next循環(huán)(xúnhuán)Do…Loop循環(huán)(xúnhuán)第七十二頁(yè)，共108頁(yè)。For…Next循環(huán)(xúnhuán)語(yǔ)句For…Next循環(huán)結(jié)構(gòu)：將一段程序重復(fù)(chóngfù)執(zhí)行指定的次數(shù)，其中使用一個(gè)計(jì)數(shù)變量，統(tǒng)計(jì)執(zhí)行的次數(shù)。格式：For循環(huán)變量＝初值to終值[Step步長(zhǎng)]語(yǔ)句塊 [ExitFor] 語(yǔ)句塊Next[循環(huán)變量]循環(huán)體第七十三頁(yè)，共108頁(yè)。循環(huán)變量得初值循環(huán)變量<=終值ExitFor語(yǔ)句塊循環(huán)變量加步長(zhǎng)結(jié)束False語(yǔ)句塊True第七十四頁(yè)，共108頁(yè)。注意(zhùyì)功能：執(zhí)行For語(yǔ)句(yǔjù)時(shí)，“循環(huán)變量”設(shè)為“初值”；執(zhí)行到Next語(yǔ)句(yǔjù)時(shí)，步長(zhǎng)加（減）到循環(huán)變量上；再執(zhí)行For語(yǔ)句時(shí)，若“循環(huán)變量”超過(guò)“終值”則循環(huán)結(jié)束。步長(zhǎng)：未指定值時(shí)默認(rèn)為1。若“步長(zhǎng)”是正數(shù)或0，則“初值”應(yīng)大于等于“終值”，否則，“初值”應(yīng)小于等于“終值”。第七十五頁(yè)，共108頁(yè)。例：計(jì)算累加程序(chéngxù)S=1+2+3+4….+x,并輸出結(jié)果方法：接收一個(gè)累加的終值，確定一個(gè)循環(huán)變量，循環(huán)變量有2個(gè)作用（加數(shù)和循環(huán)變量），確定一個(gè)存儲(chǔ)(cúnchǔ)累加和的變量。使用循環(huán)計(jì)算，最后輸出顯示結(jié)果。DimsAsinteger,xAsintegerx=InputBox("請(qǐng)輸入累加的終值")Fori=lToxs=s+iNext思考：計(jì)算=1+3+5+7…X或2+4+6+8…X如何編寫？第七十六頁(yè)，共108頁(yè)。例：計(jì)算(jìsuàn)累乘程序S=1*2*3*4…X方法：接收一個(gè)累乘的終值，確定一個(gè)循環(huán)變量，循環(huán)變量有2個(gè)作用（乘數(shù)和循環(huán)變量），確定一個(gè)存儲(chǔ)累乘積的變量。使用(shǐyòng)循環(huán)計(jì)算，最后輸出顯示結(jié)果。DimSAsinteger,iAsintegerx=InputBox("請(qǐng)輸入累加的終值")S=1Fori=lToxS=S*iNext注意：累乘的乘數(shù)和乘積變量的初值為1。第七十七頁(yè)，共108頁(yè)。注意：出了循環(huán)，循環(huán)控制變量值的問(wèn)題。例程序段：Fori=2To13Step3循環(huán)執(zhí)行(zhíxíng)次數(shù)debug.Printi 輸出i的值分別為:25811Nextidebug.Printi出了循環(huán)輸出為:i=14第七十八頁(yè)，共108頁(yè)。例:改變循環(huán)(xúnhuán)控制變量對(duì)循環(huán)(xúnhuán)的影響PrivateSubCommand1_Click()j=0Fori=1To20Step2i=i+3j=j+1Print"第";j;"次循環(huán)i=";iNextiPrint"退出(tuìchū)循環(huán)后i=";iEndSub正常情況：i=1,3,5,7,9,11,13,15,17,19現(xiàn)在：i=4,9,14,19第七十九頁(yè)，共108頁(yè)。Do…Loop循環(huán)(xúnhuán)語(yǔ)句形式1：Do{While|Until}<條件(tiáojiàn)>語(yǔ)句塊[ExitDo語(yǔ)句塊]Loop第八十頁(yè)，共108頁(yè)。形式2：Do語(yǔ)句(yǔjù)塊[ExitDo語(yǔ)句(yǔjù)塊]Loop{While|Until}<條件>Do…Loop循環(huán)(xúnhuán)語(yǔ)句第八十一頁(yè)，共108頁(yè)。Do…Loop語(yǔ)句(循環(huán)(xúnhuán)結(jié)構(gòu))DoWhile…Loop語(yǔ)句(yǔjù)DoUntil…Loop語(yǔ)句(yǔjù)Do…LoopWhile語(yǔ)句(yǔjù)Do…LoopUntil語(yǔ)句(yǔjù)第八十二頁(yè)，共108頁(yè)。DoWhile…Loop語(yǔ)句(yǔjù)i=1DoWhilei<=10s=s+ii=i+1Loop當(dāng)i<=10成立(chénglì)時(shí)，執(zhí)行循環(huán)體循環(huán)變量i必須有初值防止產(chǎn)生死循環(huán)有可能一次也不執(zhí)行循環(huán)體修改循環(huán)(xúnhuán)控制變量，改變加數(shù)值第八十三頁(yè)，共108頁(yè)。

Do…LoopWhilei=1Dos=s+ii=i+1LoopWhilei<=10當(dāng)i<=10成立(chénglì)時(shí)，執(zhí)行循環(huán)體循環(huán)變量i必須有初值防止產(chǎn)生死循環(huán)至少執(zhí)行一次循環(huán)體修改循環(huán)控制變量，改變(gǎibiàn)加數(shù)值第八十四頁(yè)，共108頁(yè)。DoUntil…Loopi=1DoUntili>10s=s+ii=i+1Loop當(dāng)i>10成立時(shí)，結(jié)束執(zhí)行循環(huán)(xúnhuán)體循環(huán)(xúnhuán)變量i必須有初值防止產(chǎn)生死循環(huán)(xúnhuán)有可能一次也不執(zhí)行循環(huán)(xúnhuán)體修改(xiūgǎi)循環(huán)控制變量，改變加數(shù)值第八十五頁(yè)，共108頁(yè)。Do…LoopUntili=1Dos=s+ii=i+1LoopUntili>10當(dāng)i>10成立時(shí)，結(jié)束執(zhí)行循環(huán)體循環(huán)變量i必須有初值防止(fángzhǐ)產(chǎn)生死循環(huán)至少執(zhí)行一次循環(huán)體修改(xiūgǎi)循環(huán)控制變量，改變加數(shù)值第八十六頁(yè)，共108頁(yè)。補(bǔ)充(bǔchōng)：While…Wend語(yǔ)句格式如下： While<條件> <循環(huán)塊> Wend說(shuō)明：該語(yǔ)句(yǔjù)的功能與DoWhile<條件>….Loop實(shí)現(xiàn)的循環(huán)完全相同。第八十七頁(yè)，共108頁(yè)。注意(zhùyì)三種循環(huán)(xúnhuán)語(yǔ)句：即For、Do—Loop，共同的特點(diǎn)是重復(fù)執(zhí)行一個(gè)語(yǔ)句系列(循環(huán)(xúnhuán)體)，不同點(diǎn)是控制重復(fù)次數(shù)的時(shí)機(jī)和方法不一樣。第八十八頁(yè)，共108頁(yè)。數(shù)組VBA程序流程控制(kòngzhì)VBA常用(chánɡyònɡ)語(yǔ)句VBA編程基礎(chǔ)(jīchǔ)VBA概念數(shù)組第八十九頁(yè)，共108頁(yè)。5-1數(shù)組的概念(gàiniàn)數(shù)組：數(shù)組不是一種數(shù)據(jù)類型，而是一組相同(xiānɡtónɡ)類型的變量的集合?？梢韵袷褂闷胀ㄗ兞恳粯邮褂脭?shù)組中的每一個(gè)元素。使用數(shù)組的好處是用一個(gè)數(shù)組名代表邏輯上相關(guān)的一批數(shù)據(jù)，用下標(biāo)表示該數(shù)組中的各個(gè)元素，可以提高處理數(shù)據(jù)的效率，縮短和簡(jiǎn)化程序。第九十頁(yè)，共108頁(yè)。5-2數(shù)組的定義(dìngyì)數(shù)組不是一種數(shù)據(jù)類型，而是一組相同類型的變量的集合(jíhé)，數(shù)組必須先聲明后使用。兩類數(shù)組：靜態(tài)(定長(zhǎng))數(shù)組、動(dòng)態(tài)(可變長(zhǎng))數(shù)組1.一維數(shù)組定義一維數(shù)組的形式：Dim數(shù)組名([下界To]上界)[As類型]聲明了數(shù)組的名、維數(shù)、大小、類型第九十一頁(yè)，共108頁(yè)。說(shuō)明(shuōmíng)：數(shù)組名的命名規(guī)則與變量的命名相同。數(shù)組的元素個(gè)數(shù)：上界-下界+1。缺省<下界>為0，若希望下標(biāo)從1開(kāi)始，可在模塊的通用部分使用(shǐyòng)OptionBase語(yǔ)句將設(shè)為1。其使用(shǐyòng)格式是：OptionBase0|1'后面的參數(shù)只能取0或1例如：OptionBase1'將數(shù)組聲明中缺省<下界>下標(biāo)設(shè)為1<下界>和<上界>不能使用(shǐyòng)變量，必須是常量，常量可以是直接常量、符號(hào)常量，一般是整型常量。第九十二頁(yè)，共108頁(yè)。例：Dimmark(1to100)AsInteger例：Dima(-1to3)AsInteger聲明(shēngmíng)一維數(shù)組a，包含了5個(gè)整型元素a(-1)、a(0)、a(1)、a(2)、a(3)；如果省略As子句，則數(shù)組的類型為變體類型。數(shù)組中各元素在內(nèi)存占一片連續(xù)的存儲(chǔ)空間，一維數(shù)組在內(nèi)存中存放的順序是按下標(biāo)(xiàbiāo)大小的順序。第九十三頁(yè)，共108頁(yè)。注意(zhùyì)：在定義靜態(tài)數(shù)組時(shí)，每一維的元素個(gè)數(shù)必須是常數(shù)，不能是變量或表達(dá)式。如：錯(cuò)誤的聲明，下標(biāo)(xiàbiāo)是變量Dimx(n)或：n=Inputbox(“輸入n”）Dimx(n)AsSingle第九十四頁(yè)，共108頁(yè)。在數(shù)組聲明(shēngmíng)中的下標(biāo)說(shuō)明了數(shù)組的整體，即每維的大??；而在程序其他地方出現(xiàn)的下標(biāo)表示數(shù)組中的一個(gè)元素。兩者寫法形式相同，但意義不同。例如：Dimx(10)AsInteger

x(10)=100

表示(biǎoshì)聲明了數(shù)組x，有11個(gè)數(shù)組元素對(duì)x(10)這個(gè)(zhège)數(shù)組元素賦值第九十五頁(yè)，共108頁(yè)。5-3

二維數(shù)組定義二維數(shù)組的形式：Dim數(shù)組名([下界1To]上界1，下界2To]上界2)As類型例如(lìrú)：Dima(2,3)AsSingle二維數(shù)組在內(nèi)存的存放順序是“先行后列”。數(shù)組a的各元素在內(nèi)存中的存放順序是： a(0,0)→a(0,1)→a(0,2)→a(0,3) a(1,0)→a(1,1)→a(1,2)→a(1,3) a(2,0)→a(2,1)→a(2,2)→a(2,3)第九十六頁(yè)，共108頁(yè)。例：DimlArray(0To3，0To4)AsLong

共有4×5個(gè)元素(yuánsù)等價(jià)于:DimlArray(3，4)AsLong第九十七頁(yè)，共108頁(yè)。5-4動(dòng)態(tài)(dòngtài)數(shù)組動(dòng)態(tài)數(shù)組指在聲明數(shù)組時(shí)未給出數(shù)組的大小(省略括號(hào)中的下標(biāo))，當(dāng)要使用它時(shí)，隨時(shí)用ReDim語(yǔ)句重新指出數(shù)組大小。形式(xíngshì)如下： ReDim數(shù)組名(下標(biāo)[，下標(biāo)2…])[As類型]例：PrivateSubS1()Dimx()AsSingle …n=Inputbox(“輸入n”）ReDim