Substitute a default value if an optional parameter is not provided : Function Parameter « Language Basics « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Language Basics
  3. Function Parameter

Substitute a default value if an optional parameter is not provided

 
Function fullName3(strName As String, Optional strMName As String = "java2s", Optional strLName As String)
  msgBox strName
  msgBox strMName
  msgBox strLName
End Function

Sub getName3()
    Dim strFirstName As String
    Dim strLastName As String
    Dim strFullName As String

    strFirstName = "First"
    strLastName = "Last"

    strFullName = fullName3(strFirstName, , strLastName)
    msgBox strFullName, , "Full Name"
End Sub








Related examples in the same category

1.Parameters
2.Writing a Function Procedure with Arguments
3.Pass string value through Parameters
4.Optional Parameters
5.Default value parameters
6.Named parameters
7.Using the Select Case Statement to check the function parameter
8.Passing Arrays as Parameters
9.Passing by Reference Versus Passing by Value
10.Pass by value
11.Illustrate a reason why you might want to pass a parameter by reference
12.Optional Parameters: Building Flexibility into Functions
13.Inserting Default Values When Parameters Are Missing
14.Accommodating for Missing Parameters in Your Code
15.Named Parameters: Eliminate the Need to Count Commas
16.Pass array parameter to a function
17.Double type parameter
18.Object parameter