Excel Maniacs

第３８回 ある試験 解答例

    出題者解答例ですが

最初の、やつを探しました
 
合計で１８３でした。
 
真ん中から攻めました
６２
=IF(RANK(LARGE(I$8:I$20,B8),I$8:I$20)>3,"",LARGE(I$8:I$20,B8))
 
左
３３
=IF(D24="","",RANK(D24,I$8:I$20))
 
で右
８８
{=IF(D24="","",INDEX(C$8:C$20,MATCH(LARGE(I$8:I$20+B$8:B$20%,B8),I$8:I$20+B$8:B$20%,)))}
 
その後、少しは短くしましたが、
皆さんの工夫には至りません
・・・ようですので・・・
最初の、何の工夫もないやつを出します。
 
からくちさんの、、140台にまず、、、ショック
で、、続々・・・・
＆
やはり、、、120台もあるんですねーーー
 
って、感じ。

　　　　　　　　　　　　　　　　　　　　（じょー3さん）

第37回 1の連続数は？ 解答例

◆「1の連続数は？」の解答例です
102{=NPV(9,MMULT(SMALL((MID(0&B3&0,ROW(1:20),2)={"10","01"})*ROW(1:20),ROW(1:20)*2-{1,0}),{-1;1}))*10^20}

　　　　　　　　　　　（maronさん）

第37回 1の連続数は？

◆相変わらず、長い式になりました。
◆皆さんの助けを借りて、短い解答になりますように。

　　　　　　　　　　　　　　　　　　　　　　　　　　（maronさん）

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

答用参考ファイルの拡張子zipをxlsxにしてお使いください。 

 

・sakudaさん提供

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

ファイルの拡張子zipをxlsmにしてお使いください。 

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

解答発表は03/10（土）の２０：００です。それまでは直接数式を

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

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