Excel Maniacs

第34問 曜日合わせ 解答例

殆どの皆さんは、既にお気づきの通り、対象となる日付の「前年曜日あわせ」は
=DATE（年,月,日）-364
の１６文字で問題ないと思います。
 
　　関数をつかわないなら
　　=（年&-月&-日）-364
　　で１４文字。
 
面倒系（年－1）で考えたのは
=DATE(年-1,月,日+MOD(SUM(WEEKDAY(DATE(年-{0,1},月,日),2)*{1,-1}),7))
と６２文字。
 
　　※あくまで「前年」だからこれでいいのですが・・・　　。
 
-- 
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（む印さん）

第34問 曜日合わせ

Excelをはじめた当時、必要に迫られ手探りで作ったアドイン関数は
ワークシート関数ではどうすればよいか？と、振り返ってみました。

－－－－－－－－－－－－－－－－－－－
問題：
年（西暦）・月・日が入力されたとき、その日付に対する、
『曜日で合わせた前年の日付』を表示する式をセルJ3に入れてください。

尚、式の参照セルは名前定義した「年」（B3）・「月」（E3）・「日」（G3）　の名前を使用し、
それ以外の参照は禁止です。　使用例）=DATE（年,月,日）
（もちろん、名前定義の「年」「月」「日」に式を割り当てるなど、改造するのも禁止です！）


『曜日で合わせた前年の日付』とは・・・
指定入力された「年月日」が「2009年1月1日 木曜日」の場合、それに対する前年の日付は
「2008/1/1の火曜日」となりますが、曜日を合わせたいので、それに一番近い木曜日である
「2008/1/3」となることをいいます。

また、「前年」としていますが例外として、入力された「年月日」が「2009年12月31日 木曜日」
の場合の結果は2008/12/31の水曜日に一番近い「2009/1/1 木曜日」となります。

その他の例）
入力：2009年2月27日　（金曜日）→　解答結果：2008/2/29　（金曜日）
入力：2009年2月28日　（土曜日）→　解答結果：2008/3/1　（土曜日）

－－－－－－－－－－－－－－－－－－－

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（む印さん談）

＊

*

*

*

*

*

*

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

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

尚、解答発表は９／１２（土）の８：００です。それまでは直接数式を

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

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

第３３問 あいうえおテトリス （その２） 解答例

皆同じように、短い文字数で凄いですねーー

で、かないませんので、、

お遊び案です。

D2に入れる文章が難しい：：

あおいうみのうえのあおいそらも、あおいうみのうえのあかいそらも、うおーええなー

=LEFT("■",(15+(MIN(MID(NOW()&REPT(1,10),11,1),MIN(LEN($D$4:$H$4))))-LEN(D$4)-ROW()＜0))

この式をD6に入力して、コピー・・・・その後、・・・・F9でだいたい、10秒おきに、、動いて見えるかなーー

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

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（ジョー３さん談）

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

・・・でお遊びで私もノンマクロでテトリス風なものを作ってみました。

作り込めばある程度のものに仕上げることができると思いますが

ま、お遊びですので・・・(^^ゞ

※循環参照を利用していますので他のブックを開かないでください。

Q33_2009_kumaPooh.lzhをダウンロード

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（くまぷー）