エクセルでおしえてください

質問

シート１のＡ１～Ａ３の合計を、Ｂ１にＳＵＭ関数で計算させてます。シート２のＢ１にシート１のＢ１に関数が入力されていれば１、関数以外の文字や数字が直接入力されている時には０を表示させるにはどうすればいいのでしょうか？。

回答No.3

spar

可能です、が、できればご自身で調べて本当に解らなくなった時にご質問を頂ければ、それこそ身に付くものだと思いますよ
また問題に直面した時は調べてみましょ！
Sub Kansuu()
　For i = 1 To 10
　　If Left(Sheet1.Cells(i, 1).Formula, 1) = "=" Then
　　　MsgBox "A" & i & "関数は・・・" & Sheet1.Cells(i, 1).Formula
　　Else
　　　MsgBox "A" & i & "に関数なし"
　　End If
　Next i
End Sub
ここから拡張するのでしたら是非、頑張って解決してみて下さい！！

お礼

ありがとうございます。一度挑戦します。一度は、自分でＶＢＡに挑戦したのですが、ちんぷんかんぷんで。すみませんでした。

回答No.2

spar

ちょっと探してみましたが、＃１さんおおっしゃるとおり、簡単に当てはまるものはありませんでした
もしＶＢＡがお分かりであれば表面的にはこれでいいとは思います
ただ左の1文字が『＝』だったらという狭い判定なので、あくまで参考として下さい
標準モジュールを挿入してもらい

Function ViewFormula(objCell As Range) As String
　ViewFormula = objCell.Formula
End Function

を貼り付けて、Sheet2のB1に

=IF(LEFT(ViewFormula(Sheet1!B1),1)="=",1,0)

を貼り付けてもらえれば、とりあえず出ます
他の方法もありますが、結局はＶＢＡになるのかなと・・・私のレベルではこれでいっぱいいっぱいでした

補足

ありがとうございます。逆に、シート１のＡ１からＡ１０までに関数を入れていたとして、Ａ５だけ関数を削除してしまった場合、それを判断できるＶＢＡは作る事は可能なのでしょうか？

回答No.1

imogasi

こともなげに質問するが、関数で、（１）あるセルに数式が入力されているか、（２）ストレートに値が入力されているか
（１）を判別する関数はない。
そもそも関数はセルの値だけを問題にして、数式でそう言う値になっているかなどを問題にしない仕組みのものであって、そのため関数で求めた値を他のセルでまた関数の引数に使えるという、大メリットがあるのです。
VBAでも使えばセルに式が入っているか判別できるが回答者のレベルは（HasFormulaでWEB照会のこと）
http://www.geocities.jp/dgscs970/_homepage2/jiten/Jiten3.html
の中程など多数。