エクセルから関数を抜き取る方法

質問

エクセルについて質問させて頂きます。

エクセル2007で複数のシートに色々と関数を組み込んだファイルがあります。
このファイルの関数の引数が正しく設定されているかを検証するために、ファイルに含まれる関数を全て抜き取って一覧にし、それらを1つずつ見ていこうとしています。
Ctrl + Shift + @キーでセルの表示を関数にすることはできますが、画面上ずっと作業をしていては疲れてしまいます。
ファイル中に設定されている関数を全てテキスト等に吐き出し印刷したいと思うのですが、関数をまとめてテキスト等に抽出することは可能なのでしょうか。
関数表示のエクセルを印刷するにも1シートの内容が大きく、1シートを複数ページにしてしまうと見にくいため、1ページに収めようとすると小さすぎて判読できません。
メモ帳などへの抽出方法がもしあるようでしたらご教授頂きたいと思います。

よろしくお願いいたします。

回答No.2

chie65536（@chie65535） · ベストアンサー

シート上に「ボタン1」を配置して、クリック時のイベントプロシージャに以下のプロシージャを指定して下さい。

ボタン1をクリックすると、ワークシートがある場所に「func.txt」というファイルが出来上がり、関数っぽい数式が列挙されます。

Sub ボタン1_Click()
Open "func.txt" For Output As #1
For Each s In Sheets
s.Activate
For Each a In Range("A1:G300")
If a.Formula <> "" Then
If InStr(1, a.Formula, "(") >= 1 Then
Print #1, s.Name & ":" & a.Address & "=""" & a.Formula & """"
End If
End If
Next
Next
Close #1
End Sub

実行例(出来上がるfunc.txtの中身）

Sheet1:$A$1="=SUM(A3:C5)"
Sheet1:$A$3="=SIN(0)"
Sheet2:$A$2="=COS(1)"
Sheet3:$C$2="=SUMIF(B3:C5,0)"

上記では、シートの範囲を「A1～G300」にしていますので、状況に合わせて書き換えて下さい。

実行すると、アクティブなシートが「最後のシート」に変わるので、手動でボタンがあるシートに移動して下さい。

なお「関数っぽい数式」とは「式の中に『（』がある式」になっています。

お礼

たった今、関数を抜き取ることができました。
マクロを組み立てて頂きありがとうございました。

回答No.4

chie65536（@chie65535）

シートの名前と場所、ダブルクォートが邪魔な場合は

Print #1, s.Name & ":" & a.Address & "=""" & a.Formula & """"

を

Print #1, a.Formula

に変えて下さい。

どこに書かれた式なのかは判らなくなりますが、結果のfunc.txtをソートしてあげれば

=COS(1)
=COS(A2)
=SIN(0)
=SUM(A3:C5)
=SUM(B3:C5)
=SUM(D3:F5)
=SUMIF(B3:C5,0)

のようになり、同じ名前の関数が並びます。

お礼

引き続きの回答ありがとうございました。

回答No.3

MackyNo1

数式だけを別シートに表示させたいなら以下のような手順が簡単です。

準備として、ホームタブのクリップボードの右下のダイアログ起動ツールをクリックし、Officeクリップボードを表示しておきます。
さらに、数式表示用シート全体を選択して、セルの書式設定で「文字列」にします。

数式が含まれているシートでCtrl + Shift + @キーでセルの表示を関数にしておき、Ctrl+Gでジャンプダイアログを出し、「セル選択」から「数式」にチェックを入れ、Ctrl+Cでコピーし、数式表示用シートでOfficeクリップボードのコピー内容をクリックして貼り付け、右下に表示される貼り付けオプションのアイコンをクリックして「貼り付け先の書式に合わせる」を選択してください。

お礼

ご回答ありがとうございました。

回答No.1

aokii

エクセルのオプションの詳細設定で、計算結果の代わりに数式をセルに表示する(R)を選択し、コピーしてメモ帳に貼り付けてみて下さい。

お礼

ご回答ありがとうございました。