Excel VBA中怎么設置Function

Excel VBA中怎么設置Function

Excel VBA中怎么設置Function，經過前面的一系列文章的示例學習，我們應該已經熟悉了Sub過程。通常我們看到的Sub過程的基本形式是：

Sub 過程名稱()

[此處放置代碼語句]

Exit Sub

End Sub

這也是我們在編寫大多數VBA程序時用到的結構。其中：

過程名稱為編程人員給過程命名的名稱，其命名規則與變量名稱的規則相同。在同一模塊中的過程名稱不能同名。

Sub和End Sub配套出現，它們之間構成一個完整的程序過程。

過程中的代碼可以放置ExitSub語句，表示提前退出過程。

通常，在VBE編輯器中，寫下sub和過程名稱，按下回車鍵后，會自動添加End Sub語句。Sub過程用來執行操作，而Function過程可以返回值，創建自定義函數。Function過程的基本語法形式為：

Function 過程名稱()

[此處放置代碼語句]

[過程名稱= 表達式或值]

[Exit Function]

[此處放置代碼語句]

[過程名稱= 表達式或值]

End Function

可以看出，其形式與Sub過程的基本形式相似，只是將關鍵詞Sub換成了Function。注意：

在Function過程的代碼語句中，應至少有一次把某個確定的值賦值給函數過程的名稱。

建議避免使用Excel內置函數名稱、單元格引用、單元格區域的名稱作為函數過程的名稱。

Function過程不能對單元格區域進行修改，不能執行與對象相關的操作。

Function過程可以應用在工作表公式中，就像Excel的內置函數一樣；Function過程也可以應用在VBA代碼中。

過程代碼中可以放置ExitFunction語句，表示提前退出過程。

按慣例，方括號表示可選。

下面的示例代碼統計當前可見工作簿的數量：

Function lWkbNum()

‘遍歷應用程序中的工作簿

For Each wkb In Application.Workbooks

‘如果為可見工作簿則增加1

If wkb.Windows(1).Visible Then

lCount = lCount + 1

End If

Next wkb

‘將結果賦值給函數名

lWkbNum = lCount

End Function

就像運用Excel內置函數一樣，在工作表中輸入“=lWkbNum()”，顯示當前已打開的可見工作簿的數量，如下圖所示。

圖：在單元格A1中輸入=lwkbnum()，顯示2，即當前打開的可見工作簿數為2個

下面的代碼在Sub過程中調用自定義的lWkbNum函數：

Sub testlWkbNum()

MsgBox “當前可見工作簿的數量為:”& lWkbNum

End Sub

運行后顯示如下圖所示的消息框：

由于之前的一系列文章中都是使用的Sub過程作為的例子，所以本文詳細介紹了Function過程的最基礎知識，給您一個初步的認識。

不管是Sub過程還是Function過程，都可以帶有參數，Function過程還可以設置返回值的類型，我們將在后續逐步深入這些知識。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。