XL98: How to Display Custom Function in Function Wizard Step 2

MORE INFORMATION

Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements. The following steps show you how to create a simple custom function and display this function in step 2 of the Function Wizard with a macro.

Create a Custom Function

To create a custom function, follow these steps:

1. Close and save any open workbooks, and open a new workbook.
2. Start the Visual Basic Editor by pressing OPTION+F11.
3. On the Insert menu, click Module.
4. Type the following code into the module sheet:

         Function MyFunction(x As Integer, y As Integer, z As Integer) As Long
   
            MyFunction = x * y + z
   
         End Function
   						

5. On the File menu, click "Close and Return to Microsoft Excel".
6. Save this workbook as Test.xls.

Call the Function From Within the Workbook

To call this function from within Test.xls, type the following formula in cell A1 on Sheet1:

   =myfunction(10,10,3)
				

Cell A1 should display the value 103, because the custom function multiplied x by y and added z (10*10+3).

Display the Custom Function With a Macro

In order to display the custom function with a macro follow these steps:

1. Start the Visual Basic Editor by pressing OPTION+F11.
2. Type the following code into the module sheet:

        Sub CallStep2OfDialogWizard()
   
           ' Set location for the function.
           With Worksheets("Sheet1").Range("A1")
   
              ' Select cell A1.
              .Select
   
              ' Place custom function in cell.
              .Formula = "=myfunction()"
           End With
   
           ' Display step 2 of Function Wizard.
           Application.Dialogs(xlDialogFunctionWizard).Show
   
        End Sub
   						

3. On the File menu, click "Close and Return to Microsoft Excel".
4. Save the workbook as Test.xls.
5. On the Tools menu, point to Macros, and click Macros. In the Macros dialog box, click to select "CallStep2OfDialogWizard", and then click Run.
6. Type the following numbers for the X, Y, and Z function arguments in the wizard dialog:

   X: 10
   Y: 10
   Z: 3

7. Click Ok.

Cell A1 should display the value 103, because the custom function multiplied x by y and added z (10*10+3).