[Excel]ブックにある計算式を抜き出して一覧表示するには？

Excel 2002を使っています。

人が作ったファイルを解析しています。
対象のブックにある計算式を

B5 = SUM(B2:B4)
C5 = SUM(C2:C4)
D5 = SUM(D2:D4)
　　　・
　　　・
　　　・

等と一覧表示することはできますか？

No.1 ベストアンサー 回答者： SAKURAMYLOVE 回答日時： 2005/02/17 12:12

表示だけでしたら、以下の方法で数式を一括で確認することができます。

メニューから、ツール/オプションの表示のタブから、数式にチェックを入れる。

この回答への補足

ありがとうございます。
なるほど、これで印刷すればとりあえず確認は出来ますね。
しかしながら、式を全部表示すると表のレイアウトが
めちゃくちゃになってしまいます。

B5 = SUM(B2:B4)
C5 = SUM(C2:C4)
D5 = SUM(D2:D4)
　　　・
　　　・
　　　・

の様に一覧表示させることは出来ないのでしょうか。

補足日時：2005/02/17 13:00

No.2 回答者： tresbien 回答日時： 2005/02/17 12:15

メニューのツール-オプション-表示タブ

の中の　「数式」にチェックを入れると
そのシートに書かれてある数式を全て表示する事が出来ます。

この回答への補足

ありがとうございます。
No.1の方の補足に記入しましたが一覧表示させたいのです。

超マイナーですが、昔あった日立の表計算プログラム
OFIS/POLというのでは出来たのですが…。

補足日時：2005/02/17 13:02

この回答へのお礼

ご回答有り難うございました。

自分でマクロ作って対応しました。
エラー処理が完全ではないですが、参考までに記載しておきます。

Sub CulcCatalogue()
'
' 計算式の入っているセルを選択する。
'
Dim R As Variant
Dim ObjSheet As String
Dim WriteSheet As String
Dim I As Long

Selection.SpecialCells(xlCellTypeFormulas, 23).Select
ObjSheet = ActiveSheet.Name
Sheets.Add
WriteSheet = ActiveSheet.Name
I = 1
Sheets(ObjSheet).Select

For Each R In Selection
If R.Value <> "" Then
Sheets(WriteSheet).Select
Cells(I, 1).Value = ObjSheet & R.Address() & R.FormulaLocal
Sheets(ObjSheet).Select
I = I + 1
End If
Next R

End Sub

お礼日時：2005/02/17 13:38