EXCEL2002でA1セルがif文だったらB1セルに

質問

こんにちは。
EXCEL2002です。以下のようにするにはどのような関数を使えば良いのか教えてください。

A1セルが・・・・
if文だったらB1セルに"○"
if文以外の数式だったらB1セルに"△"
文字や数字の値だったらB1セルに"×"　
と表示する。

条件付書式などの回答を見ていろいろ調べましたが、分かりませんでした。よろしくお願いします。

回答No.1

imogasi · ベストアンサー

通常のエクセル関数でセルの関数式（文字列）を捉えるものはないと思う。
ＣＥＬＬやＩＮＦＯもだめのようですね。
それで私製（ユーザー）関数の出番です。
ツール－マクロ－ＶＢＥ－挿入－標準モジュールで出る画面に
Function frml(a)
If a.HasFormula = True Then
If Mid(a.formula, 1, 3) = "=IF" Then
frml = "○"
Else
frml = "△"
End If
Else
frml = "Ｘ"
End If
End Function
を貼りつける。
そしてＢ１セルに
=frml(A1)
と入力する。
Ａ１に=IF(a2="2","A","")で○
Ａ２に2でＸ
Ａ３に=SUM(a10:a12)で△
になりました。
しかしこの質問のようなことが必要な場面がどう言う場合
なのか判らないですね。

お礼

このようにすれば私製関数が出来てしまうのですね。大変勉強になりました。
おかけさまで希望通りの動作ができました。

>しかしこの質問のようなことが必要な場面がどう言う場合なのか判らないですね。
おそらくＶＢＡを使いこなせれば、他の方法が沢山あるのだと思いますが、ＥＸＣＥＬの計算式を復活させる処理の際に、ユーザーが計算式を壊して文字列を入力している部分をスキップさせるための判定に使いました。

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