- A cell on the worksheet contains a custom function.
- The custom function contains one or more arguments that refer to a range of cells on the worksheet.
- The result of the custom function depends on more cells than it directly references.
Method 1: Modify your function so that all relevant cell ranges are passedModify your function to accept as arguments all of the cells necessary to calculate the result of the function.
Method 2: Make your custom function volatileMicrosoft 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. If you make your custom function volatile, this problem will not occur. To make your custom function volatile, add the following line of code to the function.
Method 3: Force Excel to recalculate all open workbooksPress CTRL+ALT+F9 to recalculate the values in all open workbooks. In Microsoft Office Excel 2007, press CTRL+ALT+SHIFT+F9 to recalculate the values in all open workbooks.
Example of the problemTo illustrate this problem, follow these steps:
- Close and save any open workbooks, and then open a new workbook.
- Start the Visual Basic Editor (press ALT+F11).
- On the Insert menu, click Module.
- Type the following code into the module sheet:
' This function counts the number of blank cells by starting from the cell
' referred to by the rngStartCell argument and moving up the column.
Function FindTextUp(rngStartCell As Range) As Single
Dim iIndex As Integer
For iIndex = 0 To 100
If rngStartCell.Value <> "" Then
FindTextUp = iIndex
Set rngStartCell = rngStartCell.Offset(-1, 0)
- Press ALT+F11 to return to Excel.
- Type Test, in cell A2, and then press ENTER.
- Type the following formula in cell A10, and then press ENTER:
The formula returns a value of 7.
- Type Another test in cell A5, and then press ENTER.
If you implement method 1 in the "Workaround" section of this article, the function will calculate the expected result. The following line of code illustrates how to modify the function in this example so that the expected result is calculated.
Function FindTextUp(rngStartCell As Range, rngOtherCells As Range) As Single
ID d'article : 221048 - Dernière mise à jour : 27 mars 2007 - Révision : 1