Excel 如何顯示計算公式

Question

A1, B1格 輸入數字C1格 輸入 =A1+B1一般來說A1輸入3  , B1輸入2 則C1會顯示 5如果我要用D1格顯示出 3+2=5 我要顯示的是 C1格的公式並套入數值及結果的顯示方式也就是說 如果我把 C1的公式改成 =A1-B1那D1就會自動顯示出 3-2=1請問D1這格該怎麼輸入

ex:
有A,B,C,D,E 5欄
A,B,C3欄放數值
D欄放公式,顯示答案
E欄顯示公式並代入數值
就像下表
ABCD E
123=A1+B1+C11+2+3=6
123=A1+B1-C21+2-3=0
123=A1*B1*C31*2*3=6
123=(A1+B1)/C3(1+2)/3=1

(以上D那格在表格上顯示的是答案,為了方便看
我以D格的內容列出)
我要的方式是 在E1輸入好格式後
用拖曳複製的方式拉出E2~E4的內容不用修改

上面式子黏在一起啦~~~><
A1~A4格內容都是1
B1~B4格內容都是2
C1~C4格內容都是3
D1內容 =A1+B1+C1 ___ E1顯示 1+2+3=6
D2內容 =A1+B1-C1____ E1顯示 1+2-3=0
D3內容 =A1*B1*C1____ E3顯示 1*2*3=6
D4內容 =(A1+B1)/C1____ E4顯示 (1+2)/3=1

小老鼠大師3Q
不過你提供的方式要一格一格設定E格的內容喔
有沒有更方便的方法勒

Answer 1

試試自訂函數的作法
1.選取下列程式碼並按右鍵複製
2.工具 e 巨集 e Visual Basic編輯器
3.跳出VB視窗後, 插入 e 模組
4.在空白的地方貼上複製的程式碼
5.關閉VB視窗
6.E1儲存格輸入: =AAA(D1)

Private Function AAA(Ref As Range)
AAA = Right(Ref.FormulaR1C1, Len(Ref.FormulaR1C1) - 1)
For i = 1 To Len(AAA) - Len(Replace(AAA, "R", ""))
Eh1 = InStr(AAA, "R")
If InStr(AAA, "C") > InStr(AAA, "]") Then
Eh2 = InStr(WorksheetFunction.Substitute(AAA, "]", "|", 2), "|")
Else
Eh2 = InStr(AAA, "]")
End If
EhStr = Mid(AAA, Eh1, Eh2 - Eh1 + 1)
If InStrRev(EhStr, "]") = Len(EhStr) Then
EhCln = Val(Mid(EhStr, InStrRev(EhStr, "[") + 1, Len(EhStr) - 1))
End If
If InStr(EhStr, "[") = 2 Then
EhRow = Val(Mid(EhStr, 3, InStr(EhStr, "]") - 2))
End If
AAA = Replace(AAA, EhStr, Range(Ref.Address).Offset(EhRow, EhCln))
Next i
AAA = AAA & " = " & Range(Ref.Address)
End Function

2006-04-19 19:41:55 補充：
小弟千慮之一得竟能得牧童叔大師謬讚真是深感榮焉
還要更努力向前輩們看齊哩!

Answer 2

我還在想如何將參考位置分離出來，原來是用 R1C1 的表示方式，厲害

2006-04-20 09:48:06 補充：
不要這麼說，我不過是比較早玩，多回答一些問題而己

Answer 3

在D1輸入以下公式即可=CONCATENATE(A1,"+",B1,"=",A1+B1)CONCATENATE函數的功用是將多組字串組合成一個字串