Excel Maniacs

関数で出来ますか～？ 第１７問 月額小計を簡単に求める方法はないでしょうか？ 解答例

問題送った後、丸で考えていなかったんですが、問題考えた時のイメージは式二つで
100超で大したバリエーションは無いと思ってました。
で、いきなり皆さんが自然体モードで100切りで、私は色々やっても100を切れない状態で
正直あせりました＾＾；
書式使用で50台って方が3人もいらっしゃるのでなんともなんですが、一応一週間もがいた
結果を晒します。

書式使用：30+31の61
=IF(N(B6),B6-DAY(B6)＞=B5,1)*B5
=IF(D5,SUM(C$4:C5)-SUM(E$4:E4))
D列の書式　m"月小計";;　E列の書式　#,##0;;;

なんとかならないかともがいてどうにもならなかった、
書式使用：31+31の62
=ISERR(0/(B6-DAY(B6)＜B5)/B6)*B5
=IF(D5,SUM(C$4:C5)-SUM(E$4:E4))

書式不使用：45+37の82
=TEXT(IF(N(B6),B6-DAY(B6)＞=B5,1)*B5,"m月小計;;")
=IF(D5＞"",SUM(C$4:C5)-SUM(E$4:E4),"")

物凄く長いのですが、初期に作成した書式使用で57+58の115
これは、サブトータル表示の判定も、サブトータルの算定方法も
割合と気に入ってます＾＾
=(COUNTIF(B5:B$34,"＜"&DATE(YEAR(B5),MONTH(B5)+1,0))=1)*B5
=IF(D5,SUMIF(B$5:B5,"＞"&DATE(YEAR(B5),MONTH(D5),),C$5:C5))

土曜日の晩までにもう少しなんとかしたいと思ってますが、もうアイデア
涸れたみたいですねーー

　　　　　　　　　　　　　　　　　　　　　　　　　（y sakudaさん談)

関数で出来ますか～？ 第１７問 月額小計を簡単に求める方法はないでしょうか？

この"関数でできますかー？"のコンセプトは
「やるだけなら誰でもできるが、上手い手は？」
と言うことだと思いますので、かなり主旨から外れるかもしれません。

これは以前私がプライベートなシートで後から月間集計が欲しくなり、
実際にやって見たものです。
勿論、現実には作業列を使って素直にやりましたが、作用列なしで純粋に式だけで
やろうとすると、結構厄介になりそうです。
なんか、問題にして見ると、初心者さんが質問掲示板に「簡単だと思うのですが、
どうも上手く行きません」と言ってきて、「アホッ」って言われる典型みたいですがｗ


作業列使って、ピボット集計したり、アウトラインでやれば一瞬でできると言う
突っ込みはなしですよーーｗ

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（sakudaさん談)

***********************************************************************

尚、解答発表は5/9（土）の８：００です。それまでは直接数式を

書き込むこと・ポイントとなる関数名を書き込むことはご遠慮ください。

***********************************************************************

解答用参考ファイル：2009_Q17.lzhをダウンロード

***********************************************************************

サブトータル問題用の式書き出しマクロです。

実行すると、D5,E5の式と文字数をG、H列に書き出してくれます。

Q17Formula.basをダウンロード

関数で出来ますか～？ 第１６問 地震 解答例

なんか、変な問題になってしまいましたね。
普通にやるだけなら簡単なんですけどね。

以下全て式のみ（書式変更なし）
〔minmax系あり〕
３５文字
=IF(MAX(J10:L12),MAX(J10:L12)-1,"")

〔minmax系なし〕
=omakasesimasu(yattenai,dekinakatta,tanosimi)

〔循環なし（若干ずる）〕
（ツール→オプション→反復計算にチェックあり）
１１５文字
式内に「セル番地が書いてない」から
どこのセルでもいいからこの数式をいれて、
ほかにコピー
=IF(ASC(CELL("contents"))>"0",TEXT(CELL("contents")-MAX(ABS(CELL("row")-ROW()),ABS(CELL("col")-COLUMN())),"0;"),"")
循環なし若干ずる版は数式を入力した時点では循環参照となり
ます。震源地に数値を入力した段階で、循環が無くなります。
（下のステータスバーの再計算の表示が無くなりますね）
この若干ずるは有罪かな～？？

〔循環なし（若干ずる）でminmax系なし〕
１６３文字
=IF(ASC(CELL("contents"))>"0",TEXT(CELL("contents")-IF(ABS(CELL("row")-ROW())>ABS(CELL("col")-COLUMN()),ABS(CELL("row")-ROW()),ABS(CELL("col")-COLUMN())),"0;"),"")


〔循環なし（ほぼずる無し）〕
（ツール→オプション→反復計算にチェック無し）
１５２文字
=IF(CELL("address")=CELL("address",K11),"",IF(CELL("contents")<"",TEXT(CELL("contents")-MAX(ABS(CELL("row")-ROW()),ABS(CELL("col")-COLUMN())),"0;"),""))


〔参考～循環なし（若干ずるの没の１つ）〕
=IF(CELL("contents")<"",TEXT(CELL("contents")-MAX(ABS(CELL("row")-ROW()),ABS(CELL("col")-COLUMN())),"0;"),"")


この程度で許してください。。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（minさん談）