Comments on: Functions that do things

By: Monty

Monty — Sun, 02 Jan 2005 13:18:00 +0000

If I have the following formula in a worksheet to bring up a message box

=IF((F4-E4)>=15,PromptPayment()+F4-E4,F4-E4)

How can I use a function to transfer some information from different cells to a new worksheet
if the formula above works?

By: Stephen Bullen

Stephen Bullen — Thu, 23 Dec 2004 10:27:00 +0000

Frank: Yes, there are lots of 'neat tricks' in the book, though not this one. We had to draw the line somewhere (we do show how to add parameter help texts to UDFs for the Function Wizard, though!). Switching off events doesn't prevent the recursion in this case, as Excel just schedules the calcuations to happen serially instead.

JK: That's a good thing to include if you need to do something that will cause continuous recalcs, thanks.

Regards

Stephen Bullen

By: jkpieterse

jkpieterse — Wed, 22 Dec 2004 20:16:00 +0000

Neat trick Stephen.

Maybe good to include a static boolean in the calc event to avoid recursion:

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Static bNoCalc as Boolean
If bNoCalc Then Exit Sub
bNoCalc=True
'....
'....
bNoCalc=False
End Sub

By: Frank Kabel

Frank Kabel — Wed, 22 Dec 2004 17:18:00 +0000

Hi Stephen
nice trick. If such tricks are part of your next book I’m even more looking forward getting it

Re: “The only caveat with this technique is that the tasks to perform shouldn’t trigger another recalc”
Not testes but would disabling application events solve this caveat. Probably would do this anyway in the sheet calculate event

Re: “user-defined-functions (UDFs) can’t do anything”
IITC you can change/add comments within a UDF

Frank