How to write a formula with a user defined function
 

Tried to write something like this:
[image: http://img461.imageshack.us/img461/7426/excel2co.jpg]

Here s the code:

Sub WriteFunctionTerm(TargetAdress, Order, xValueAdress, yValueAdress)
Dim OrderStr$

xValue = Range(xValueAdress).Cells
yValue = Range(yValueAdress).Cells
If Order = 0 Then
Range(TargetAdress).Cells = "f(" & xValue & ")=" & yValue
Else
OrderStr$ = String(Order, "I")
Range(TargetAdress).Cells = _
"f(" & OrderStr$ & ")(" & xValue & ")=" & yValue
Range(TargetAdress).Characters _
(Start:=2, Length:=2 + Len(OrderStr$)).Font.Superscript =
True
End If
End Sub

This works fine in a sub under a command button, but how to code it in
a function? The content of the cell will only refresh when I leave the
function....and how can I get the information from where the function
is called?
Thanx for helping!


--
reteid2222
------------------------------------------------------------------------
reteid2222's Profile: http://www.excelforum.com/member.php...o&userid=30745
View this thread: http://www.excelforum.com/showthread...hreadid=504114

How to write a formula with a user defined function
 

Worksheet functions cannot set the attributes of the sheet, just return a
value, so it cannot set superscripts. You should do it as a worksheet change
event. See http://www.cpearson.com/excel/events.htm for details

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"reteid2222" wrote
in message ...

Tried to write something like this:
[image: http://img461.imageshack.us/img461/7426/excel2co.jpg]

Here s the code:

Sub WriteFunctionTerm(TargetAdress, Order, xValueAdress, yValueAdress)
Dim OrderStr$

xValue = Range(xValueAdress).Cells
yValue = Range(yValueAdress).Cells
If Order = 0 Then
Range(TargetAdress).Cells = "f(" & xValue & ")=" & yValue
Else
OrderStr$ = String(Order, "I")
Range(TargetAdress).Cells = _
"f(" & OrderStr$ & ")(" & xValue & ")=" & yValue
Range(TargetAdress).Characters _
(Start:=2, Length:=2 + Len(OrderStr$)).Font.Superscript =
True
End If
End Sub

This works fine in a sub under a command button, but how to code it in
a function? The content of the cell will only refresh when I leave the
function....and how can I get the information from where the function
is called?
Thanx for helping!


--
reteid2222
------------------------------------------------------------------------
reteid2222's Profile:
http://www.excelforum.com/member.php...o&userid=30745
View this thread: http://www.excelforum.com/showthread...hreadid=504114