替自定義函數設置可選參數

替自定義函數設置可選參數

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

Function JoinText(Rng As Range, Optional Txt As String = "，") As String Dim c As Range For Each c In Rng JoinText = JoinText & c.Value & Txt Next c JoinText = Left(JoinText, Len(JoinText) - 1)End Function

或者

Function JoinText(Rng As Range, Optional Txt As Variant) As String Dim c As Range If IsMissing(Txt) Then Txt = "，" For Each c In Rng JoinText = JoinText & c.Value & Txt Next c JoinText = Left(JoinText, Len(JoinText) - 1)End Function

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

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