替自定義函數設置不定個數的參數

替自定義函數設置不定個數的參數

本文為《別怕，Excel VBA其實很簡單（第3版）》隨書問題參-

以下過程供參考：

Function JoinText(Txt As String, ParamArray list() As Variant) As String Dim c As Variant, v As Variant For Each c In list If TypeName(c) = "Range" Or TypeName(c) = "Variant()" Then For Each v In c JoinText = JoinText & v & Txt Next v Else JoinText = JoinText & c & Txt End If Next c JoinText = Left(JoinText, Len(JoinText) - 1)End Function

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

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