関数で出来ますか～？ 第325回 順位の集計

【問】

４人で半荘５回、麻雀をしました。

各人のトップからラス（１位から４位）までの回数を集計して下さい。

　　　　　　　　　　　　　　　　　　　　　　　　　　（maronさん）

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

解答用参考ファイル： 20200503Checkをダウンロード（マクロ入り　sakudaさん提供）

解答用参考ファイル： 20200503Check_xlsをダウンロード（マクロ入り　sakudaさん提供改xls形式）

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

出題者を除く４名の方の解答作成完了宣言の後に、このスレに直接解答式をお書きください。

この問題に関しては解答用の別スレは作成いたしません。

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

Comments

[投稿情報: くまぷー]

問題文をmaronさんの了解を得ずにでっち上げてしまいました。
申し訳ありません。m(__)m

[投稿情報: maron]

◆麻雀をイメージして作りましたので、これでいいと思います
◆お世話をおかけしまして、ありがとうございました

[投稿情報: y sakuda]

これ、動かないんですね・・・
動かした方が、盲点みたいなパターンが出現しそうなきがしますけど？

[投稿情報: くまぷー]

＞これ、動かないんですね・・・

えっ？
F9で変わりますけど・・・

[投稿情報: y sakuda]

式入ってませんが？？？
もう一回落としてみるかな

[投稿情報: y sakuda]

失礼
式、非表示になってるのか。

[投稿情報: y sakuda]

これ、簡単な方法あるのかな？
誰かが速攻で出来たって言いそうな気もするが・・・・
私は固まってるｗ

[投稿情報: y sakuda]

これも、結構チェックが面倒そうなんで、VBAでチェックする必要ありそうですね。
先にそっちやって送ります。(今日中？）
式の方は一応方針たてたけど、結構長くなりそう^^

[投稿情報: くまぷー]

＞これも、結構チェックが面倒そうなんで、VBAでチェックする必要ありそうですね。

そう思います。
宜しくです。m(__)m

[投稿情報: y sakuda]

試作品、案外コンパクトにできた^^
ただあってるのかどうか不明ｗｗｗ

[投稿情報: くまぷー]

＞試作品、案外コンパクトにできた^^

それはすごい！！
こちらは頭の中がぐちゃぐちゃです。

同点トップなんて回があるのね・・・

[投稿情報: maron]

＞同点トップなんて回があるのね・・・
◆その時は、1位が二人です
◆その次は3位になります

[投稿情報: y sakuda]

>その時は、1位が二人です
VBAその方向でつくってます^^
なんか、今回VBAの方が面倒くさいｗ

[投稿情報: からくち]

おお、、、出てますね
それにしても嫌いな関数を使ったほうが、、、
そんな文字数が多くなる
不向きな問題ですね

[投稿情報: からくち]

出題者さんは何文字くらいが目標でしょうか

[投稿情報: maron]

＞出題者さんは何文字くらいが目標でしょうか
◆参考までに、出題時の解答案は、98です

[投稿情報: min]

こんばんは
面倒くさい問題ですね。単純にやると200位かなあ？

[投稿情報: maron]

◆95にできました

[投稿情報: くまぷー]

＞◆95にできました

それはかなり短いと思います。

[投稿情報: y sakuda]

チェック用マクロが入ったブックくまぷーさんにおくりました。
結構苦戦しちゃって時間がかかったｗ

＞◆参考までに、出題時の解答案は、98です
マクロのテストするのになんにもないとできないので、とりあえず書いたの確か90でしたけど・・・
出題者回答60台とか恐れてたんですが^^

[投稿情報: y sakuda]

maronさん、くまぷーさんがチェック用ブックアップしてくれたら、同一順位の扱い等が出題者の意図どおりか確認願います。

[投稿情報: くまぷー]

＞くまぷーさんがチェック用ブックアップしてくれたら

有難うございます。
少々、お待ちください。

[投稿情報: くまぷー]

＞チェック用マクロが入ったブックくまぷーさんにおくりました。

あれ？！
確認したら届いていません。

[投稿情報: y sakuda]

おかしいな。
19：55に送信してます。
いずれにしろ再送しました。

[投稿情報: くまぷー]

届いていません。
こちらからもメールしました。
届いているでしょうか？

[投稿情報: y sakuda]

今現在来てません？？？

[投稿情報: くまぷー]

＞今現在来てません？？？

来ていません。

・・・で
今、この後小一時間メールの確認ができません。
すみません。m(__)m

[投稿情報: y sakuda]

どうもHotmail受信状況がおかしそう
自分のHotmailへ送ったメイルなかなか着信しません。
でもHotmailからのメールはすぐきましたが・・・・

[投稿情報: y sakuda]

くまぷーさんのメールやっと着きました。
自分でHotmailに送ったのはまだｗ
多分延着だとおもいますが、返信でもおくります。

[投稿情報: くまぷー]

雑用終わりました。

sakudaさんからのメール、まだ来ません。

＞どうもHotmail受信状況がおかしそう

ヤフーメールで出しました。
お手数ですがこちらを試してみてくださいm(__)m

[投稿情報: y sakuda]

Yahooメールに添付しました

[投稿情報: くまぷー]

ヤフーメール、届きました。

有り難うございます。
少々、お待ちください。
アップします。

ちなみにhotmailはまだ来ません。

[投稿情報: y sakuda]

>ちなみにhotmailはまだ来ません。
私が自分のHotmailに送った奴も届いてないwww

[投稿情報: くまぷー]

お待たせしました。
みなさん、ご利用ください。

sakudaさん、いろいろお手数をお掛けしましたm(__)m

[投稿情報: y sakuda]

VBAにかかる前に書いた式。自然に書いただけだったんですが、改めて眺めると・・・・
ようこんなもの書いたって感じで、ピンとこないｗ
暫く眺めていても削りどころが見えない・・・最初のが最後ってことにもなりかねないな。

[投稿情報: y sakuda]

やっと、ダイエットできるところを見つけ82

[投稿情報: y sakuda]

80 もし、2013で｛｝必要なら82ですけど。

[投稿情報: くまぷー]

お早うございます。

結局、未だに解答が作れていません。
従ってsakudaさんに作って頂いたチェックシートも使えません　(^^ゞ

あ、それからhotmailの方、未だに着信ありません(^^ゞ

[投稿情報: くまぷー]

取り敢えずできました。
新関数無し。
sakudaさんチェックで10000回OK。

しかし・・・・
文字数は恥ずかしくて言えない・・・

[投稿情報: min]

連休中エクセル使えないけど、暇なので
キングソフトで表作ってやってみました。

88でした。

減りそうもない。

[投稿情報: くまぷー]

＞キングソフトで表作ってやってみました。

互換性はどんなもんですか？
動きませんか？

[投稿情報: min]

＞互換性はどんなもんですか？

ソフトが古いので多分.xlsしか対応してないと思います。

ネットにつながっていないので、絵を見て適当に真似して表を作って
式を書いて見ただけです。

微調整すると、82。
sakudaさんとの差が2
それにしても微調整すると、実用性がなくなりますね。

[投稿情報: min]

で、ギブアップします。

[投稿情報: y sakuda]

>sakudaさんとの差が2
{}の有無だけの可能性も^^

別の方法浮かんだんですが、初めてすぐものにならないことに気が付いた。
で、二けたにはならないことを承知の上でやってみたら、動いたけど209
まあ、この長さですから、ちゃんとやれば200は切れるとおもいますけどね・・・

ところで、マクロの件ですが、回答が全く入ってない状態で動かすと当然ループ1回でエラーになりますが、その時どう表示されるかはわかります。（正解と違ってるところを赤字で表示）

[投稿情報: くまぷー]

＞ソフトが古いので多分.xlsしか対応してないと思います。

xls形式の参考ファイルをアップしました。

＞で、ギブアップします。

その前にちょっと試してみてください。m(__)m

[投稿情報: y sakuda]

しかし、Hotmail本格的なトラブルだな。
もう一晩経つのに、スパムすら入ってこないｗ

[投稿情報: からくち]

皆さんの短縮、、、何時も思う事ですが凄いです
とても短縮出来ません、、、
故に今回ギブ、、、です

[投稿情報: min]

くまぷーさん
＞その前にちょっと試してみてください。m(__)m
すみません。
pcがネットにつながっていません

携帯ではファイル落とせますが
pcに移せません。
多分動くと思いますが、

[投稿情報: min]

sakudaさん
＞{}の有無だけの可能性も^^
{}は使っていません
したがって、ほんとに2文字差だと思います。

[投稿情報: min]

あ、そういえば、キングソフトはマクロは使えないのではなかったかと思います。

[投稿情報: くまぷー]

＞pcがネットにつながっていません

了解です。

＞キングソフトはマクロは使えないのではなかったかと思います。

マクロアリ版と無し版、両方売っていたような気がします。
マクロアリの方が無しよりも若干高かったような・・・

[投稿情報: くまぷー]

maronさん、
maronさんの表を流用して一題作りたくなりました。
よろしいでしょうか？　m(__)m

[投稿情報: y sakuda]

>一題作りたくなりました。
どんなんだろ？

しかし、ジョー３もniさんも出てこない。静かですねーー

[投稿情報: ｎｉ]

無理やり310でできたかと思ったら、
一郎と秋子が同じ値になる
検索系の関数、わけがわかりません
またギブアップかも

[投稿情報: くまぷう]

確かに不気味なほど静かだ、、、

[投稿情報: y sakuda]

長くなるの承知でやった別方ですが、アホかって無駄省いたら、189
長いけど、やってることは単純そのものです。

[投稿情報: maron]

＞流用して一題作りたくなりました。
◆どうぞ、緊急事態宣言も延期になりましたので、問題は多いに越したことはありませんから

[投稿情報: くまぷー]

>◆どうぞ、緊急事態宣言も延期///

有り難うございます。m(__)m
それでは早速。

[投稿情報: くまぷー]

別件ですが、sakudaさんからのHotmailがやっと届きました。
しかし、アベのマスクはまだ届きません(^^ゞ

[投稿情報: maron]

◆使用した関数の頭文字が全部違って、88

[投稿情報: くまぷー]

88は手が届かないほど短いです。（T.T)

ところで「ギブアップ」という声が聞こえますが
「終了宣言」という事でしょうか？

こちらで考えている「終了」の意味合いは
「一応、公開するネタ（式）はあるよ」ということです。

単に「ギブアップ」では公開可能な式がつくれないということなのか不明です。
お手数をお掛けしますが「終了」という言葉を入れてください。
宜しくお願いします。m(__)m

[投稿情報: min]

すみませんでした。
では終了でお願いいたします。

[投稿情報: y sakuda]

私も、何やっても変わらなくなってきましたので、終了です。
出せるのは、８０と１８９です。

[投稿情報: y sakuda]

>Hotmailがやっと届きました。
一昨日、テストで自分のアカウントに送ったのも二日遅れでとどいてましたｗｗｗ

[投稿情報: くまぷー]

★終了宣言

1.　sakudaさん
2.　minさん
3.　くまぷー
4.　

[投稿情報: ｎｉ]

ｎｉは出せるものがありませんorz

[投稿情報: くまぷー]

珍しい！
niさんでもそういう事があるんですね。
ちょっと安心します(^^ゞ

[投稿情報: y sakuda]

niさん不調かな？

[投稿情報: ｎｉ]

なんとか３３０が出来ました

＞ちょっと安心します(^^ゞ
オイオイ　＾＾

[投稿情報: くまぷー]

＞なんとか３３０が出来ました

あっ、似たような数字です。
お友達だ～(*^-^*)

[投稿情報: ｎｉ]

これで終了です(終了宣言）

[投稿情報: maron]

◆やっと4人そろいましたが、二極化しているようですね

[投稿情報: y sakuda]

>やっと4人そろいましたが、二極化しているようですね
ですねーー
私は一度なにやるか整理して、手順確認しながら割とすぐできました。
ただ見るからに発展性がなさそうな式であまり短縮できませんでしたが・・・。
別の方法（配列が使えない）は長くなるの明らかだったんですが、やってみたらこれも200ちょっと。過去の問題と比べて特に難問とも思えなかったんですけどね・・・

[投稿情報: くまぷー]

★終了宣言

1.　sakudaさん
2.　minさん
3.　くまぷー
4.　niさん

揃いました。
解答発表、宜しくお願いします。

しかし、ジョー３さん、どこかへ消えたままですね～

[投稿情報: y sakuda]

そんじゃ
80
=SUM(N(MMULT(R1:U1+1,N($C$6:$G$9>INDEX($C:$G,MATCH($B13,$B:$B,),)))=COLUMN()-3))

後からやった単純編189
=5-LEN(SUBSTITUTE(INDEX(RANK($C$6:$C$9,$C$6:$C$9)&RANK($D$6:$D$9,$D$6:$D$9)&RANK($E$6:$E$9,$E$6:$E$9)&RANK($F$6:$F$9,$F$6:$F$9)&RANK($G$6:$G$9,$G$6:$G$9),MATCH($B13,$B:$B,)-5),LEFT(C$12),))

[投稿情報: ｎｉ]

全然頭が働かない
330=(RANK(OFFSET($C$5,MATCH($B13,$B$6:$B$9,),),$C$6:$C$9)=COLUMN(A1))+(RANK(OFFSET($D$5,MATCH($B13,$B$6:$B$9,),),$D$6:$D$9)=COLUMN(A1))+(RANK(OFFSET($E$5,MATCH($B13,$B$6:$B$9,),),$E$6:$E$9)=COLUMN(A1))+(RANK(OFFSET($F$5,MATCH($B13,$B$6:$B$9,),),$F$6:$F$9)=COLUMN(A1))+(RANK(OFFSET($G$5,MATCH($B13,$B$6:$B$9,),),$G$6:$G$9)=COLUMN(A1))

[投稿情報: ｎｉ]

切れちゃいますね。改行しておこう
=(RANK(OFFSET($C$5,MATCH($B13,$B$6:$B$9,),),$C$6:$C$9)=COLUMN(A1))
+(RANK(OFFSET($D$5,MATCH($B13,$B$6:$B$9,),),$D$6:$D$9)=COLUMN(A1))
+(RANK(OFFSET($E$5,MATCH($B13,$B$6:$B$9,),),$E$6:$E$9)=COLUMN(A1))
+(RANK(OFFSET($F$5,MATCH($B13,$B$6:$B$9,),),$F$6:$F$9)=COLUMN(A1))
+(RANK(OFFSET($G$5,MATCH($B13,$B$6:$B$9,),),$G$6:$G$9)=COLUMN(A1))

[投稿情報: y sakuda]

niさんの最初の投稿、投稿情報のとこまでコピーするとちゃんと全部出てきて貼り付けられました^^
Rank方式でやってる事は私の189とそんなに変わらない^^

[投稿情報: くまぷー]

遅れました。
保存してなくて急遽復元しました。

285
=(RANK(VLOOKUP($B13,$B$6:$G$9,2,0),$C$6:$C$9)=COLUMN(A1))+(RANK(VLOOKUP($B13,$B$6:$G$9,3,0),$D$6:$D$9)=COLUMN(A1))+(RANK(VLOOKUP($B13,$B$6:$G$9,4,0),$E$6:$E$9)=COLUMN(A1))+(RANK(VLOOKUP($B13,$B$6:$G$9,5,0),$F$6:$F$9)=COLUMN(A1))+(RANK(VLOOKUP($B13,$B$6:$G$9,6,0),$G$6:$G$9)=COLUMN(A1))

[投稿情報: くまぷー]

niさんと・・・

・・・)=COLUMN(A1)

・・・似てますね～
今回はniさんと同じ発想かな～

[投稿情報: くまぷー]

sakuさん、完敗です。

mmult・・・いつまでたっても使えません　（T.T)

[投稿情報: maron]

88{=SUM(N(RANK(INDEX($C:$G,MATCH($B13,$B:$B,),),OFFSET($C$6,,{0,1,2,3,4},4))=COLUMN(A1)))}

[投稿情報: y sakuda]

Rank使うと、どうしても5回やらなきゃならなくなるので長くなりますね^^

[投稿情報: y sakuda]

maronさんの？？だな
Offset配列数式の中で使うとろくなことないんですが、ちゃんと動いてる。
もちろん、INDEXなんかでも、F9で確認するとエラーになってるけどちゃんと動く場合もあるんだけど、今回Rankでコンパクトにまとめるのは早い段階で諦めました。
と言うより、大小比較でやるのが真っ先に浮かび上手くいっちゃったんで、90ができた後探っては見たんですがあっさり断念しました。

[投稿情報: y sakuda]

>mmult・・・いつまでたっても使えません　（T.T)
MMULTはやはり戦型数学多少なりともかじってないと馴染めないかも
行列って高校の数Ⅲでやらなかったかな？
私の高校、私はもちろん理系ですが、文系クラスでも数Ⅲだったはず。特殊なんかな？
娘の高校時代、数Ⅲやってないってんで驚いた記憶があります。

[投稿情報: y sakuda]

変換ミスやってる
戦型数学⇒線型数学
簡単に言えば、多元の連立方程式の処理

[投稿情報: くまぷー]

＞行列って高校の数Ⅲでやらなかったかな？

数ⅡBだったような（高2）・・・
乗法の交換法則が成り立たないとか・・・
２×2行列が最大で簡単なものばかりで・・・

扱っている問題も既習の知識で簡単に解けるようなものばかり・・・
何の役に立つんだと思っていました。

後に3Dゲームプログラミングの本を読んで回転を扱うのには必須だということを知りました。(^^ゞ

[投稿情報: くまぷー]

>Rank使うと、どうしても5回やらなきゃならなくなるので長くなりますね^^

Rankを使っても・・・88

=SUM(N(RANK(XLOOKUP($B13,$B$6:$B$9,$C$6:$G$9),OFFSET($B$5,1,{1,2,3,4,5},4))=COLUMN(A1)))

本邦初公開・・・XLOOKUP！！

さあ、どうだ！！

[投稿情報: y sakuda]

Xlookupってどうもなじめないｗ
年のせいｗ

[投稿情報: y sakuda]

>何の役に立つんだと思っていました
まさにｗ
理屈としては多次元の扱いには必須なんですが、実際の計算はコンピュータでやらないと死にますｗｗｗ
大学2年の頃Fortranで逆行列の計算（つまり連立方程式の解）やって喜んでました^^

[投稿情報: くまぷー]

>>何の役に立つんだと思っていました
>まさにｗ

やはり、そう思いましたか。
ふつう、単元が進むと新しいことができるようになるのに
中学生でもできることを手間暇かけて解く・・・

わざわざ行列使って、2元1次の連立方程式を解いて・・・
何が悲しくていちいちそんなことをやるんだって・・・(^^ゞ

[投稿情報: maron]

◆この問題を作って、RANK関数を使ってみたら、なんとうまくいきました
◆だから、出題したもののすぐに終わってしますのでは、と思いました

[投稿情報: y sakuda]

私みたいに、点数の多い人が何人いるか数える方が自然だと思ったけど、少数派もいいとこですね。
さて、minさんどっち派だろうか？

くまぷーさん、次の問題もマクロチェック必要なものですかね？
この頃、あんまりVBA組んでないからいいリハビリです^^

[投稿情報: くまぷー]

＞くまぷーさん、次の問題もマクロチェック必要なものですかね？

問題の難易度自体はある意味、ものすごく低いと思いますが
二つの表を目視でチェックするのはつらいですね。m(__)m

[投稿情報: maron]

◆しかし、不思議なことに「数式の検証」をすると、
SUM(N(RANK({36,-44,79,-59},{#VALUE!,#VALUE!,#VALUE!,#VALUE!})=COLUMN(A1)))

◆#VALUE!のようになりますが、結果は計算されて表示されます
◆？？？

[投稿情報: y sakuda]

＞二つの表を目視でチェックするのはつらいですね。m(__)m
そんじゃ、またやります。
ここの検証プログラム作る時一番困るのは、答え欄に正解表示する手段先につくらないと検証できないって矛盾ｗ

>◆#VALUE!のようになりますが、結果は計算されて表示されます
そうなんですよね。
もし、こういうの使った式でちゃんと答えがでれば、「ああ、こういうことも有るんだ」ってことになりますが、この手の式、一発で完成形ってのはほぼ不可能ｗｗｗ
私は、Offsetのところ見て、使えないんだって結論だしちゃったｗ

[投稿情報: min]

sakudaさんと
$C:$G
が違うだけでした。

rankとoffsetの式を考えなかったわけではありませんが、
Kingsoft
では打つのが面倒くさいのでやめました。

後でやってみます

[投稿情報: y sakuda]

>$C:$Gが違うだけでした。
やっと発想が同じ人が現れた^^

[投稿情報: m]

＞本邦初公開・・・XLOOKUP！！
名前は知っているけど、
使い方知らないwww

[投稿情報: min]

m?
min