関数を教えてください

質問

B1～F１のセルに入力した数字の合計をA１のセルに集計するとします。
Cの列を表示しないとすると、もちろんA１のセルには、
C１に入力してある数字も合計されてしまいますが、

表示しないときはA１の合計に含めない、表示する時はA１の合計に含める
という風にしたいのですが、その場合A１の関数を教えて下さい。

回答No.8

gamename77 · ベストアンサー

参考URLのリンク先を試されてみてはいかがでしょうか？

自分で試してみたら上手くいきました。

（Excel2003）

参考URL：

http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1210314692?fr=rcmd_chie_detail

お礼

関数入力してみたところうまくいきました♪
ありがとうございます、一番分かりやすい回答でした。

回答No.7

will_mania

フィルタは行は無理ですので縦横を逆にしてからやられてみては？
コピーして形式を選択して貼り付けで行列入替で縦横を入れ替えて試されては？

回答No.6

will_mania

表示する物しない物をオートフィルタで選択した場合に有効になります。
大変失礼致しました。

補足

度々すみません。
オートフィルタは、列のＡ～Ｆにはつけられるのですが、
行（縦の数字）にもつけられますか？

回答No.5

naoja

追加回答です。
任意のセルが非表示の場合にも対応できます。

A1　　=SUMIF(B2:F2,">0",B1:F1)

B2 =CELL("width",B1)
C2 =CELL("width",C1)
D2 =CELL("width",D1)
E2 =CELL("width",E1)
F2 =CELL("width",F1)

この場合も、CELL関数が自動更新してくれないみたいでして、
「再計算実行」を手動で行う必要があります。

回答No.4

lul

関数では無理な気がします。
例えばセル"A1"には
=keisan(B1:F1)
と入力して、別途Functionを作れば出来ますよ。
Function keisan(objRange As Range) As Long
Dim r As Range
For Each r In objRange
If Not Columns(r.Column).Hidden And IsNumeric(r) Then keisan = keisan + r
Next
End Function

こういうのはダメですか？

回答No.3

naoja

=IF(CELL("width",C1)<>0,SUM(B1:F1),SUM(B1:F1)-C1)
こんなもんですかね？
ただし、この関数は問題があるかも知れません。
当方Excel2007では、「再計算」を手動で行わないと
数値が更新されません。
もし、おかしいかな？と思ったら、再計算を実行するか、
あいているセルに何かを書き込んでリターンしてみてください。
これで計算できると思います。

ただ、この式だと、任意の列を非表示にする場合には問題ですね。
別の方法も考えてみるとよいかも知れませんね。
以上

回答No.2

will_mania

No1です。
大変失礼致しました。
A1＝SUBTOTAL(9,B1:F1)
です。
申し訳ありませんでした。

補足

申し訳ありません。
やはり、この関数を入力して
Ｃの列を表示しないにすると
Ｃ1の数字もＡ１に合計されてしまうのですが・・・

説明が下手ですみません＞＜
Ｃの列を表示する時としないときの合計が変わる様にしたいのです。

回答No.1

will_mania

A1＝SUBTOTAL(9,B1,F1)
ですね
いかが参考になると思いますよ。

参考URL：

http://akubizzz.hp.infoseek.co.jp/sub91.html

補足

入力してみましたが、そうすると
D1　と　E1　がカウントされません。