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

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

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