VBA編程及應(yīng)用基礎(chǔ)課件第4章 過程與函數(shù)

一個(gè)問題在員工信息表中，根據(jù)身份證號(hào)填充各員工的性別？使用過程（P.75）本講內(nèi)容過程的概念Sub子過程Function函數(shù)過程過程的概念（P.75）過程是一段完成特定功能的語句集合，以一個(gè)名字來標(biāo)識(shí)，并用該名字來調(diào)用根據(jù)是否有返回值，可以將過程分成兩類：Sub子過程Function函數(shù)過程Sub子過程（P.76）Sub子過程用于運(yùn)行指定的操作，但不返回運(yùn)行結(jié)果，其結(jié)構(gòu)如下：Sub子過程過程的組成部分及其含義Public可選的。表示所有模塊的所有其它過程都可訪問這個(gè)Sub過程。Private可選的。表示只有在包含其聲明的模塊中的其它過程可以訪問該Sub過程。Static可選的。表示在調(diào)用之后保留Sub過程中各局部變量的值。name必需的。Sub過程的名字，須遵循標(biāo)準(zhǔn)的變量命名約定。arglist可選的。代表在調(diào)用時(shí)要傳遞給Sub過程的參數(shù)列表。多個(gè)參數(shù)則用逗號(hào)隔開。Sub子過程特別說明：如果沒有使用Public、Private顯式指定，則缺省表示Sub過程是公用的（Public）arglist中的具體參數(shù)的格式通常為：varname[()][Astype]不能在別的過程中定義Sub過程ExitSub語句使執(zhí)行立即從Sub過程中退出，它可以出現(xiàn)在過程中的任何位置Sub子過程添加Sub子過程Sub子過程實(shí)例1：編寫一個(gè)名稱為Example的Sub過程，該過程用于在當(dāng)前活動(dòng)工作表A1:A10區(qū)域的各單元格內(nèi)填上“VBA”文本，且字號(hào)大小依次從10等差漸變到28Sub子過程練一練：編寫一個(gè)名稱為Practice的Sub過程，該過程用于在當(dāng)前活動(dòng)工作表A1:J1區(qū)域的各單元格內(nèi)填上“SUB”文本，且隨機(jī)設(shè)置各單元格為不同的背景填充色Sub子過程帶參數(shù)的Sub子過程：Sub子過程調(diào)用Sub子過程過程名參數(shù)列表如：HouseCalc99800,43100Call過程名(參數(shù)列表)如：CallHouseCalc(380950,49500)Sub子過程Sub子過程實(shí)例2：編寫一個(gè)名為Example的Sub過程，該過程用于輸入一個(gè)文本，然后調(diào)用編寫的另外一個(gè)名為MySub的子過程，MySub子過程用于在當(dāng)前活動(dòng)工作表A1:A10區(qū)域的各單元格內(nèi)填上Example子過程輸入的文本，并設(shè)置字號(hào)大小依次從10等差漸變到28Sub子過程練一練：編寫一個(gè)名稱為Practice的Sub過程，該過程用于隨機(jī)生成一個(gè)[3,9]之間的整數(shù)x，然后調(diào)用編寫的另外一個(gè)名為MySub的子過程，MySub子過程用于在當(dāng)前活動(dòng)工作表A1單元格起輸出x行如圖所示的星號(hào)三角形Function函數(shù)過程（P.82）Function函數(shù)過程用于完成指定的功能，并通過函數(shù)名返回運(yùn)行結(jié)果，它的結(jié)構(gòu)為：Function函數(shù)過程特別說明：Function函數(shù)過程的各組成部分含義同Sub子過程函數(shù)通常要返回一個(gè)值，這個(gè)返回值的數(shù)據(jù)類型通過在定義時(shí)用AsType來指定運(yùn)行結(jié)果是通過函數(shù)名返回的，因此，過程中通常有name=expression這樣的語句Function函數(shù)過程添加Function函數(shù)過程Function函數(shù)過程調(diào)用Function函數(shù)過程自定義的Function函數(shù)過程使用像內(nèi)置函數(shù)一樣的調(diào)用方法，分兩種情況：需得到函數(shù)的返回值不在意函數(shù)的返回值Function函數(shù)過程Function函數(shù)過程的使用在VBA程序代碼中調(diào)用在Excel工作表的公式中調(diào)用Function函數(shù)過程在VBA程序代碼中調(diào)用（P.84)實(shí)例3：自定義一個(gè)名為MySum

的函數(shù)過程，其用于計(jì)算1到n各自然數(shù)的和，在當(dāng)前活動(dòng)工作表放置兩個(gè)按鈕，其中一個(gè)按鈕在單擊時(shí)先調(diào)用MySum函數(shù)求出1到100各數(shù)的和，并將此和加上100顯示在A1單元格，另一個(gè)按鈕在單擊時(shí)先調(diào)用MySum函數(shù)求出1到10各數(shù)的和，并將此乘上100顯示在B1單元格Function函數(shù)過程在VBA程序代碼中調(diào)用練一練：自定義一個(gè)名為MySum的函數(shù)過程，其用于計(jì)算m到n之間各整數(shù)的和，在當(dāng)前活動(dòng)工作表放置兩個(gè)按鈕，其中一個(gè)按鈕在單擊時(shí)先輸入兩個(gè)正整數(shù)x和y，然后調(diào)用MySum函數(shù)求出x到y(tǒng)之間各數(shù)的和并顯示在A1單元格，另一個(gè)按鈕在單擊時(shí)先輸入一個(gè)正整數(shù)b，然后隨機(jī)生成一個(gè)[1,b]之間的整數(shù)a，最后調(diào)用MySum函數(shù)求出a到b之間各數(shù)的和并顯示在B1單元格Function函數(shù)過程在Excel工作表的公式中調(diào)用（P.85）若自定義函數(shù)是用Public修飾的公用函數(shù)，則在Excel的“插入函數(shù)”對(duì)話框中能找到此函數(shù)Function函數(shù)過程在Excel工作表的公式中調(diào)用實(shí)例4：在員工信息表中，自定義一個(gè)函數(shù)Gender，該函數(shù)用于判斷某身份證持有人的性別，然后在Sheet1的D列調(diào)用此函數(shù)根據(jù)身份證號(hào)填充各員工的性別？Function函數(shù)過程在Excel工作表的公式中調(diào)用練一練：新建一個(gè)工作簿，在Sheet1工作表的A列輸入15個(gè)年份，分別從2000年到2014年。自定義一個(gè)函數(shù)IsLeap，該函數(shù)用于判斷某個(gè)年份是否為閏年，是則返回True，否則返回False，然后在Sheet1的B列調(diào)用此函數(shù)判斷A列各年份是否為閏年Function函數(shù)過程在Excel工作表的公式中調(diào)用練一練：某企業(yè)的年終獎(jiǎng)金按銷售業(yè)績(jī)來發(fā)放，標(biāo)準(zhǔn)獎(jiǎng)金率見下表，但為了激勵(lì)員工的忠誠(chéng)，實(shí)際計(jì)算時(shí)，獎(jiǎng)金率還要加上工齡一半的百分?jǐn)?shù)，試自定義一個(gè)函數(shù)Reward，然后在“員工獎(jiǎng)金”工