|
Function程序又被稱為函數(shù)，需要返回計(jì)算的結(jié)果。制作出Function程序之后，可以在ACCESS的查詢或者窗體中使用該程序，將其當(dāng)做自定義函數(shù)使用。 與SUB過程相比，F(xiàn)UNCTION程序過程中必須含有“程序名=返回值”這樣的代碼。 創(chuàng)建FUNCTION，有兩種方法可供選擇，一種是在VBA編輯器代碼窗口打開的情況下，使用“插入/過程”命令打開“添加過程”對話框，選中“函數(shù)”單選按紐，設(shè)置名稱即可創(chuàng)建FUNCTION程序，如下圖所示： 另一種方法是直接在VBA編輯器中輸入“FUNCTION 程序名”來創(chuàng)建FUNCTION程序。 本例通過上述的第二種方法來創(chuàng)建一個(gè)FUNCTION程序，該過程通過兩個(gè)輸入對話框得到兩個(gè)參數(shù)，并使用消息對話框返回兩個(gè)數(shù)的求積。 1、在代碼窗口創(chuàng)建FUNCTION函數(shù)，并輸入求積代碼 2、創(chuàng)建SUB過程，并調(diào)用FUNCTION函數(shù)中的“求積' 3、按F5鍵運(yùn)行SUB過程，查看代碼運(yùn)行的效果 ======================================= 其具體VBA代碼如下： Option Compare Database Option Explicit '創(chuàng)建一個(gè)求兩數(shù)之積的函數(shù) Function 求積(m As Double, n As Double) 求積 = m * n End Function '創(chuàng)建一個(gè)sub過程，在該過程中調(diào)用“求積”程序 Sub 調(diào)用求積() Dim x As Double Dim y As Double '獲取兩個(gè)因數(shù) x = InputBox('第一個(gè)因數(shù)') y = InputBox('第二個(gè)因數(shù)') '調(diào)用“求積”程序計(jì)算兩個(gè)因數(shù)的積 MsgBox x & '×' & y & '=' & 求積(x, y) End Sub 按F5鍵，運(yùn)行SUB 加過程的調(diào)用求積，其結(jié)果如下所示： 輸入兩個(gè)參數(shù) 最后輸入結(jié)果 本節(jié)完，謝謝對小才子的支持！ 微信：accessvba |
|
|
