Not really clear what you are looking for.
If you write in a cell '=2500+100+20' of course 2620 will be displayed, but the formula remains there.
Otherwise, if you want to really display the formula + result you should use something like
'= TEXT(A1;"#") & "+" & TEXT(B2;"#") & "+" & TEXT(C3;"#") & "=" & TEXT(A1+B2+C3;"#")'
but really cumbersome and wasteful and not useful.

prex
motori@xcalcsREMOVE.com
http://www.xcalcs.com
Online tools for structural design

Tools->Options->View->Window Options->Formulas

Sorry, just re-read your post and my solution doesn't work!

there is an Add-in available at spreadsheet world which dispalys formulas and there references in 2d format and then places them back in the spreadsheet for reference.

I am sorry I forgot to tell you the name of the software is MathLook For Excel

stick1:

You could easily do this with VBA:

Sub DisplayFormula()
Range("F1") = Range("A1").Value & " + " & _
  Range("B1").Value & " + " & Range("C1").Value & _
  " = " & Range("D1").Value
        
Range("F2") = Range("A2").Value & " + " & _
  Range("B2").Value & " + " & Range("C2").Value & _
  " = " & Range("D2").Value
        
Range("F3") = Range("A3").Value & " + " & _
  Range("B3").Value & " + " & Range("C3").Value & _
  " = " & Range("D3").Value
End Sub

This assumes you have the sum of columns A-C in column D and the "formula" is listed in column F.  

You could even write a custom function to do the same thing if you wanted.  If you don't want to deal with VBA, I think prex's suggestion does the same thing.

Good Luck!

jproj

Prex,
Thanks for your suggestion. I believe your method will work for my needs.

Stick1

Here is my way:


Function Formul(Cel As Range)
Set excel = GetObject(, "Excel.Application")
Set excelSheet = excel.ActiveWorkbook.ActiveSheet
FormulText = Cel.Formula
For i = 1 To Len(FormulText) + 1
FormulChar = Mid(FormulText, i, 1)
If FormulChar <> "+" And FormulChar <> "-" And FormulChar <> "*" And FormulChar <> "/" And FormulChar <> "=" And FormulChar <> "(" And FormulChar <> ")" And FormulChar <> "" Then
FormulRef1 = FormulRef1 & FormulChar
FormulRef2 = ""
Else:
If FormulRef1 <> "" Then
If IsNumeric(FormulRef1) = True Then
FormulRef1 = FormulRef1
Else
FormulRef1 = Format(excel.Range(FormulRef1), "0.00")
End If
End If
FormulRef2 = FormulChar
Formul = Formul & FormulRef1 & FormulRef2
FormulRef1 = ""
End If
Next
End Function

Loooks Like a lot of work to me. The add-in is only $49.00

Would "Naming" the cell work?