Microsoft KB Archive/189166

From BetaArchive Wiki

Article ID: 189166

Article Last Modified on 6/17/2005



APPLIES TO

  • Microsoft Excel 98 for Macintosh



This article was previously published under Q189166


SUMMARY

In Microsoft Excel 98 Macintosh Edition, you can create a custom Microsoft Visual Basic for Applications function to perform calculations. By default, this custom function will appear in the Function Wizard under the function category called "User Defined". You can call custom functions with the Function Wizard in Microsoft Excel just as you call built-in functions. However, there may be times when you want to use a Visual Basic for Applications macro to bypass step 1 of the Function Wizard and display a particular custom function in step 2 of the wizard. This article will demonstrate how to automatically show step 2 of the Function Wizard with a macro and have it populated with your custom function.

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).

REFERENCES

For more information about user-defined functions, from the Visual Basic Editor, click the Office Assistant, type user-defined function, click Search, and then click to view "Function Statement."

NOTE: If the Assistant is hidden, click the Office Assistant button on the Standard toolbar. If the Assistant is not able to answer your query, please see the following article in the Microsoft Knowledge Base:

176476 OFF: Office Assistant Not Answering Visual Basic Questions



Additional query words: XL98

Keywords: kbdtacode KB189166