Input Parameters


Calling the Same Macro

You might want to include a button that can be used as a toggle.
For example the following button can be used to toggle between sorting ascending and descending.

objbutton = objcommandbar.controls.Add (Type:=msoControlType.msoControlButton, _ 
                                        Parameter="Asc")
objbutton.OnAction = "SortList"
objbutton.Caption = "Sort Ascending"

objbutton = objcommandbar.controls.Add (Type:=msoControlType.msoControlButton, _
                                        Parameter="Dsc")
objbutton.OnAction = "SortList"
objbutton.Caption = "Sort Descending"

Public Sub SortList 
Dim iascdsc As Integer
   Select Case CommandBars.ActionControl.Parameter
      Case "Asc" : iascdsc = xlAscending
      Case "Dsc" : iascdsc = xlDescending
   End Select
   Range("A1:B20").Sort Key1:=Range("A1"), Order:=iascdsc, Header:=xlNo
End Sub

Passing Parameter Values

For simple VBA macros you can use the Parameter and Tag properties to store information to be passed to the OnAction macro.
If you have more than two items of information to pass it is more convenient to use a macro procedure that has input parameters.
For example if you wanted to pass a product name, cost and selling price to the following macro.

Public Sub ShowProductName(ByVal sProductName As String, _ 
                           ByVal dCost As Double, _
                           ByVal dPrice As Double)

End Sub

To execute this macro from a commandbar you need to assign the following code to the OnAction property of the control.

'ShowProduct "Product", 10, 20'

The entire expression is enclosed in single quotes.
Any string parameter values within the expression are enclosed in double quotes

objbutton.OnAction = "'ShowProduct ""Product"", 10, 20'" 



© 2019 Better Solutions Limited. All Rights Reserved. © 2019 Better Solutions Limited TopPrevNext