Excel Maniacs

第２１５回 それぞれの合計は？（その１０）卍 解答例

73=SUM(INDEX((M7:N7,N7:N8,O7:O8,J9:K9,L9:M9,H10:H11,I10:I11,I11:J11),,,C2))

 

73{=SUM(({1,1,2,0,3;9,9,2,0,3;4,4,0,5,5;6,0,7,0,0;6,0,7,8,8}=C2)*$M7:$Q11)}

 

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（maronさん）

第２１５回 それぞれの合計は？ （その１０） 卍

【 問  題 】         
 １） 同じ色のセル2つの合計をC4に 

 ２） それを右にコピー

 ３） 順番は自由です 

 ４） CHOOSE，MID関数は、使用禁止

                                                        (maronさん)

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

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

尚、解答締め切りは０８／３１日）の午後８時の予定です。

状況によっては 変更される可能性があります。

また、解答発表までは直接数式を書き込むこと・ポイントとなる関数名を

書き込むことはご遠慮ください。

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

ワード マクロ（Word VBA)でゲームを作成・・・(その２）

近頃だいぶ記憶力が落ちてきたので

ぼけ防止予防・記憶力強化のために

Wordでゲームを作りました。(^^ゞ

Poker Complex　に続く第2弾です。

今回のものは基本的にはトランプの神経衰弱（Concentration）です。

 

★遊び方　同種類の牌をマウスで選択して１０８枚の牌をなるべく少ない手数で表にします。

１．マクロを有効にして下さい。モニター中央にゲーム画面、モニター左上にメッセージボックスが現れます

２．最初に牌がおもてになっているので、できるだけたくさんの牌の配置を記憶します。

３．準備が出来たら、モニター左上にメッセージボックスのSTARTをクリックしてゲームを始めます。

４．マウスでクリックすると牌が表になります。同種の牌を選択するとそれらの牌は表のままになります。

　　間違えると選択した２牌は再び裏向きになります。全部の牌を開いて得点トップテンに入ると

　　その得点を記録することが出来ます。

Word_Game_Concentrationをダウンロード

第214回 それぞれの合計は？ （その９）解答例

91

=SUM(SUM(INDIRECT(MID("K2L3M4O4P3Q2Q8P7O6M6L7K8N2N3N4O5P5Q5N6N7N8K5L5M5",K9*6-{1,3,5},2))))

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　(maronさん）

第214回 それぞれの合計は？ （その９）

  【 問　題 】     
 １）下図の同色のセル3つの数字の       
　  合計をK10:R10に表示させます       
 ２）K10の式を右にコピーします       
 ３）合計箇所の順番は自由です       
 ４）CHOOSE関数と、演算子の＋は       
　  使用禁止です       
 ５）K2:Q8の合計対象以外のセルに       
 　 1～9を入力しています    　　

　　　　　（maronさん)

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

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

尚、解答締め切りは０８／２４（日）の午後８時の予定です。

状況によっては 変更される可能性があります。

また、解答発表までは直接数式を書き込むこと・ポイントとなる関数名を

書き込むことはご遠慮ください。

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

第213回 それぞれの合計は？ （その8）解答例

◆シートを最大限に活用した、解答例です・・・

 

35{=SUM((EVEN(O16:X19)/2=C2)*H7:Q10)}

 

　　　　　　　　　　　　　　　　　　　　　　　　　　　　（maronさん）

第213回 それぞれの合計は？ （その8）

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　(maronさん）

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

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

尚、解答締め切りは０８／１７（日）の午後８時の予定です。

状況によっては 変更される可能性があります。

また、解答発表までは直接数式を書き込むこと・ポイントとなる関数名を

書き込むことはご遠慮ください。

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

 

第212回 それぞれの合計は？ （その7） 解答例

◆この問題は、解答の文字数が多くて、一度は断念しました・・・

◆でも、ここの常連の方なら、もっと短い解答が得られるのではないかと思い出題しました・・・

◆出題時は、147でしたが、123までになりました・・・（でも、最長の解答です・・・）

 

123

{=SUM(TEXT(MID("A"&$C4,ISNUMBER(SEARCH(","&REPT("?",C9)&",",MID(","&$C4&",",ROW(1:90),C9+2)))*ROW(1:90)+1,C9),"0;;;!0")*1)}

 

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（maronさん）

第212回 それぞれの合計は？ （その7）

 

                                                                                                                       (maronさん)

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

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

尚、解答締め切りは０８／１０（日）の午後８時の予定です。

状況によっては 変更される可能性があります。

また、解答発表までは直接数式を書き込むこと・ポイントとなる関数名を

書き込むことはご遠慮ください。

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

第211回 それぞれの合計は？ （その６）解答例

◆EXCEL2003でも、ISODD関数は使用できたと思います

78{=SUM(CHOOSE(MIN(3,B2),S:S,9:9,H5:Q14*(ABS(ISODD(B2)*11-ROW(1:10))=$B2:$K2)))}

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（maronさん）