関数で出来ますか～？ 第326回 順位一覧

【問】

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

各回のトップからラス（１位から４位）までの名前を表示させて下さい。

　尚、同点の時は「成績」表の名前欄の順でお願いします。
つまり、一郎と二郎が同点ならば一郎が上です。

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

解答用参考ファイル： 20200505VBA_2をダウンロード　（Check用　sakudaさん提供）

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

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

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

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

参考図1

 

参考図2

Comments

[投稿情報: min]

難易度が下がってやりやすい。
こういう問題いいですね。

[投稿情報: maron]

◆ところで、順位が同じの時はどうすればいいのでしょうか？

[投稿情報: くまぷー]

>難易度が下がってやりやすい。
>こういう問題いいですね。

有り難うございます。(^^ゞ

[投稿情報: くまぷー]

＞◆ところで、順位が同じの時はどうすればいいのでしょうか？

考えていなかった。
ちょっと待ってくださいm(__)m

[投稿情報: maron]

◆取り敢えず、作ってみました、107

[投稿情報: くまぷー]

＞◆ところで、順位が同じの時はどうすればいいのでしょうか？

お待たせしました。
単純に「成績」表の名前欄の順でお願いします。
つまり、つまり一郎と二郎が同点ならば一郎が上という事でお願いします。

[投稿情報: くまぷー]

＞◆取り敢えず、作ってみました、107

いつも早いですね。(*^-^*)

>難易度が下がってやりやすい。
>こういう問題いいですね。

難易度が下がった分、この問題はどこまで短くなるのでしょうか？！

[投稿情報: maron]

◆順位が同じものが複数ある時、
◆エラーになってもよければ、57

◆エラーを回避すれば、101

[投稿情報: くまぷー]

＞◆エラーになってもよければ、57

やはり、エラーなしが希望です。

[投稿情報: maron]

◆例えば、2位が2つあれば、一つは2位、もう一つは3位にしました

[投稿情報: maron]

＞一郎と二郎が同点ならば一郎が上です。
◆その条件で、101

[投稿情報: くまぷー]

＞＞一郎と二郎が同点ならば一郎が上です。
＞◆その条件で、101

注文に従って頂き、感謝です。m(__)m

全員同点ならば一郎、春子、二郎、秋子の順ですね。

[投稿情報: y sakuda]

じゃ、マクロ入りブック作ったら送ります。

[投稿情報: くまぷー]

＞じゃ、マクロ入りブック作ったら送ります。

よろしくですm(__)m

[投稿情報: からくち]

あららら、、、最初同じ問題に見えたけど
下まで見ていなかった
問題が新しくなっている

＞その条件で、86

[投稿情報: からくち]

書き忘れ
＆
書き違い

問題お送りしました
＆
84

[投稿情報: からくち]

3式書いたら、、、80があった
普通1番目に書いたのが最小なのに
今回は3番目だった

[投稿情報: くまぷー]

＞問題お送りしました

いつも有り難うございます。
こちらにて返信、失礼いたします。m(__)m

[投稿情報: y sakuda]

エラーチェック入りブックおくりました。
念のためHotmailとYahooメイルの両方に送ってあります。

エラー処理等イメージに合っているかどうか確認の上アップ願います。
多分大丈夫だと思いますが。

[投稿情報: y sakuda]

うーーん、解釈まちがってるのかな？不安になって来た。
そんなに長くならないと思うんだけど・・・・
VBAチェック用に書いたのがエラー処理なしで５５、エラー処理ありで６０ちょっとだと思ったんだけど。
（新関数は使ってないというより、使おうと思ったけど、使い方調べてる内に面倒になって普通に書いたｗ）

[投稿情報: y sakuda]

作業してたブック確認したらエラー処理版、60台ではなかった^^

[投稿情報: くまぷー]

sakudaさんからファイルを頂きました。

＞念のためHotmailとYahooメイルの両方に送ってあります。

両方届いておりました。有り難うございます。m(__)m

＞解釈まちがってるのかな？不安になって来た。

いや、大丈夫だと思います。
10000回やってOKでした。m(__)m

[投稿情報: くまぷー]

今回の問題は・・・

＞正直なとこ、Excel97以降で、評価する新関数はIFErrorくらいです

・・・と仰っていたsakudaさんとExcelのベテランさんたちへの挑戦です　(^^ゞ

[投稿情報: ｎｉ]

79できました
普通の関数しか知らないし・・・

[投稿情報: くまぷー]

sakudaさんより頂いたファイルをアップしました。
作業が遅くなってすみません　m(__)m

[投稿情報: y sakuda]

マクロチェック用に作った書き流し73でした。
なんにも変わったことはやってません。

ところで、4人とも0で全員一位ってパターンは、数回検出しましたが、数十万回回しても3人同点ってパターン発生しませんが、発生しないようにしてますか？

シートにプロテクトかかってるから、強引にパターンつくれません。
まあ、パスワードブレークできないことはないのですが、そこまでやってないんで・・・

>Excelのベテランさんたち
私ベテランじゃないです。元々Excel97からですし、VBAオンリーで式の方は身の回りの世話ができるていど^^

[投稿情報: ｎｉ]

少しダイエットして75
関数の使い方は、jyoさんのオリンピックと、ここで教えてもらった程度。

[投稿情報: くまぷー]

＞普通の関数しか知らないし・・・

なんか、たいそうなことを言って申し訳ありませんでした　(^^ゞ

以前に比べてパソコン・ソフト関連の雑誌も激減して
エクセル関連の新情報もほとんど注目されなくなったような気がします。

だから、もしも「えっ？　そんなのがあるの？」となれば面白いな、と思っています。

[投稿情報: y sakuda]

3人同点発生しますね。ひっかけ方間違えてた。
ところで、3人同点調べてる内にプログラムのミス発見しました。
実害はなさそうなんですが、気色悪いので10分ほどで再送します。

[投稿情報: y sakuda]

添付わすれました。
再再送の方でおねがいします。

[投稿情報: くまぷー]

有り難うございます。m(__)m

アップしなおしました。

[投稿情報: y sakuda]

>関数の使い方は、jyoさんのオリンピックと、ここで教えてもらった程度。
私はじょー３とこは知りません。
ベテランじゃないから、表計算コンテストも確か最後の方2回くらいしか参加してないし、入賞したこともないです。
VBAの時と合わせてテレホンカード二回くらいもらっただけ。
T先生が言ってたけど、思いっきり配列数式で一行で作った奴、一次審査終わった後確認したら私の最終審査に回したとはいってましたけど。
（審査してるとき、提出者見てる暇はなかったってｗ）
でも、膨大なものをチェックして結果として、名前知ってるような連中の作品が残る頻度、高かったみたいですね。

[投稿情報: くまぷー]

＞表計算コンテストも確か最後の方

確か最後が2009ですよね。
ついこの前のような、はるか遠い昔のような・・・

[投稿情報: y sakuda]

最後一回だけだったかな？　MSで会った時、「今回で最後だから」って言われて出したような覚えも^^

ところで69です。

出題者解答の予定はどのくらいなんでしょうか？

[投稿情報: くまぷー]

＞出題者解答の予定はどのくらいなんでしょうか？

27です。　(^^ゞ

[投稿情報: からくち]

＞27です
これは新しい関数ですか
同点処理をしなくても50ですので、、、
若し違うなら、、、

[投稿情報: くまぷー]

>これは新しい関数ですか

そうです。
たぶん、この関数の使い方の「例題」になるのではないかと思います。
実務では得点を基にした「成績優秀者一覧」とか「成績不良者一覧」を一発で作ることができます。

[投稿情報: jyo3]

ちらっ・・・・
おおーーーすすんでますねーーーー、、、、

いやはや、、、、
①友人の悩み相談
②私の足の問題・・・・・
長引きそうです。

でも、、、たまに、、、ちらっ・・・・と、、、してます。

[投稿情報: y sakuda]

新しい関数の使い方わかってないから、使っても40台ｗ

[投稿情報: くまぷー]

＞でも、、、たまに、、、ちらっ・・・・と、、、してます。

ものすごく久しぶりって気がします。(^^ゞ

[投稿情報: くまぷー]

＞新しい関数の使い方わかってないから、使っても40台ｗ

ヒマだからいじくって遊んでいたら
あっ、こんなふうに使うんだってカンジです　(^^ゞ

[投稿情報: くまぷー]

新関数が禁止ならsakudaさんの69が最短かな？

[投稿情報: y sakuda]

僅かに、ダイエット　68
新関数つかったのは47どまりです

[投稿情報: kumapu-]

＞新関数つかったのは47どまりです

報告有難うございます。

ちょっと静かになってしまったような・・・
この問題はまずかったかな・・・
でもExcel Maniacsだから・・・

[投稿情報: min]

>この問題はまずかったかな・・・
いえいえ、この問題もいい問題だと思います。

エクセルでやってみたら、75にしかなりませんでした。

sakudaさんは68とのこと。
何か盲点があるのかなあと思って、風呂に入ったらなんとなくひらめいた。

で、さっそく風呂上りにやってみたら、
63でした。

くまぷーさんの27は新関数だということですが、
これまでのくまぷーさんの言動から
2007しか持っていないくせに、新関数というものを想像でやってみた。

文字数からしてこういう式なのかも？
というのができました。
動作は確認できないので、あくまでも想像です。

で、解答発表時にくまぷーさんより先に書き込めたら
当たりかどうかぶつけるかも。
でも、恥をかくかも。。

ま、タイミングが合えばですが。

[投稿情報: min]

sakudaさんの68というのは、どうやっているのか全く不明、興味津々です。

[投稿情報: min]

で、終わり。

もう少し考えてみますけど、発展しないと思うので終了とさせていただきます。

[投稿情報: y sakuda]

>どうやっているのか全く不明、興味津々です。
変わったことはなにも。ただ2013では｛｝がいるとしたら、70ですが・・・

新関数の方、C13⇒G13コピーですが、27
くまぷーさん28ってのは数え違いでは？

[投稿情報: くまぷー]

>>この問題はまずかったかな・・・
>いえいえ、この問題もいい問題だと思います。

有り難うございます。m(__)m

＞で、解答発表時にくまぷーさんより先に書き込めたら
＞当たりかどうかぶつけるかも。

minさんが書き込むまで待っています。

[投稿情報: くまぷー]

★終了宣言

1.　minさん
2.　
3.　
4.　

[投稿情報: min]

くまぷーさんは、27ですよね。

私の63は、あれもこれも同じ文字数にしかなりませんでした。

[投稿情報: くまぷー]

＞新関数の方、C13⇒G13コピーですが、27
＞くまぷーさん28ってのは数え違いでは？

すみません。
ご指摘の通り、数え間違えました。
27です。m(__)m

[投稿情報: ｎｉ]

＞エクセルでやってみたら、75にしかなりませんでした。
わーい、おんなじだ～・・・と思ったら
＞63でした。
・・・orz

終了です

[投稿情報: くまぷー]

＞＞出題者解答の予定はどのくらいなんでしょうか？

＞27です。　(^^ゞ

よく見たら、もともと27と書いていました。(^^ゞ
sakudaさんはどこをみたのでしょう？　(^^ゞ

[投稿情報: くまぷー]

★終了宣言

1.　minさん
2.　niさん
3.　
4.　

では今日は寝ます　m(__)m

[投稿情報: y sakuda]

私も68で終了です。

[投稿情報: y sakuda]

くまぷーさん、最初から27っておっしゃてたんですね。私がどこかで28と思い込んでたみたい。
失礼しました。

[投稿情報: くまぷー]

お早うございます。

★終了宣言

1.　minさん
2.　niさん
3.　sakudaさん
4.　

あと、お一方ですね。

[投稿情報: からくち]

相変わらずと言いますか、、、
短縮はどうも苦手です
皆さんより遥かに多いですが、、、74で終了です

[投稿情報: からくち]

それにしても面白い数値が出ました
４・－４・－４・４
２種でも＋－の違いだけで同じ４とは、、、

[投稿情報: くまぷー]

★終了宣言

1.　minさん
2.　niさん
3.　sakudaさん
4.　からくちさん

揃いました。解答書き込み解禁です。

しかし・・・

＞で、解答発表時にくまぷーさんより先に書き込めたら
＞当たりかどうかぶつけるかも。

sakudaさん、27の書き込みは暫くお待ちください　m(__)m

[投稿情報: ｎｉ]

では、最も大きい75から
75{=OFFSET($B$5,MATCH(LARGE(C$6:C$9-ROW(1:4)%,ROW(A1)),C$6:C$9-ROW(1:4)%,),)}

[投稿情報: くまぷー]

niさん、一番乗り有り難うございます。
office 365だと｛　｝が不要なので73になります。m(__)m

[投稿情報: y sakuda]

67ですが、2013では｛｝が必要かもしれません。
=INDEX($B:$B,RIGHT(SMALL(RANK(C$6:C$9,C$6:C$9)+{6;7;8;9}%,ROW(A1))))

[投稿情報: くまぷー]

sakudaさん、27文字の書き込みを控えて頂き有難うございます。m(__)m
99％、私のと同じでしょうね　(^^ゞ

[投稿情報: maron]

◆y sakudaさんのRIGHT関数には、まいった！！！
◆やわらか頭ですね

[投稿情報: からくち]

74と長いので当たり前ですが皆さんと違う式
=LOOKUP(,0/(LARGE(C$6:C$9-C$7:C$10%,ROW(A1))=C$6:C$9-C$7:C$10%),$B$6:$B$9)

[投稿情報: y sakuda]

>99％、私のと同じでしょうね　(^^ゞ
間違えなくｗ

からくちさんの、同点の時の並び順がまずいのでは？

[投稿情報: からくち]

＞同点の時の並び順がまずいのでは
確認してますが、、、
勿論ですが
＞４・－４・－４・４
これも平気でしたよ

ジョー３さん、、、日本人で良かったですね
インドでは酒税は当たり前ですが
お酒にコロナ税が加算されると言う事です
しかも70％、、、きつい

[投稿情報: y sakuda]

同点の件ですが、例えば、１４、－１、－１、－１２の時、一郎、春子，二郎、秋子にならなきゃいけないところ、一郎、二郎、春子、秋子のように元表の並び順と逆になることがあります。
行ずらして違いをつけるより、行番号足し引きすれば問題ないかと。

[投稿情報: y sakuda]

＞お酒にコロナ税が加算されると言う事です
＞しかも70％、、、きつい
そのニュースは見てないけど、コロナ税って・・・・

[投稿情報: min]

63
{=OFFSET($B$15,-RIGHT(LARGE(99+C$6:C$9-ROW($1:$4)%,ROW(A1))),)}
もう少し短くなるような気もしますが。

新関数想像
27
=sort($B$6:C$9,COLUMN((b1))
こんな感じなのかな？
外れかなあ？

引数がどこまで省略できるのかよくわかりませんが
この関数はいいですね。

[投稿情報: min]

63
{=OFFSET($B$15,-RIGHT(LARGE(99+C$6:C$9-ROW($1:$4)%,ROW(A1))),)}
もう少し短くなるような気もしますが。

新関数想像
27
=sort($B$6:C$9,COLUMN((b1))
こんな感じなのかな？
外れかなあ？

引数がどこまで省略できるのかよくわかりませんが
この関数はいいですね。

[投稿情報: y sakuda]

わーー、minさんの凄い。下からOffsetなんて考えなかった。行Noをマイナスしちゃうと訳わかんなくなるし・・・って感じでストレートにLargeには行かなかったんですが^^

[投稿情報: y sakuda]

>こんな感じなのかな？
ちょっと違います。Sortは私もかんがえたけど、↓のような46が限界。で私も関数一覧眺めなおして、からくりが分かった^^
=INDEX(SORT($B$6:C$9,COLUMN(B1),-1),ROW(A1),1)

[投稿情報: くまぷー]

あ、賑やかになっている。
みなさん、どもです。ぺこり

＞=sort($B$6:C$9,COLUMN((b1))

まず、minさんの式ですが、たぶん括弧の組み合わせが合ってないので・・・

=sort($B$6:C$9,COLUMN(b1))

・・・として実験したものが上の方にアップした参考図1です。

あんな感じなのでsakudaさんの仰る通り、上手くいきません。

スピルを体験したことのない方にはメチャクチャ違和感があると思いますが
セルC13に式を入力すると自動的に、いろいろ、C13からD16に表示されます。

[投稿情報: くまぷー]

27文字は・・・

=SORTBY($B6:$B9,C$6:C$9,-1)

・・・です。

[投稿情報: くまぷー]

あ、ちなみに下がOffice TanakaのSort関数/SortBy関数の解説です。

http://officetanaka.net/excel/function/function/sort.htm

ちなみに・・・

＞まぁ、SORTBY関数にはそれなりに便利な使い方があるかもしれませんけど、今は思いつきません。それどころか「これって、あまり使われねーんじゃね感」が強いです(笑)。ちなみに、私のこのカン、昔からけっこう当たります(爆)。

・・・と仰っていますが、こんな使い方はどうですか？
・・・というのが私の提案です。

・・・と、ここで言っても仕方ありませんが　(^^ゞ

[投稿情報: y sakuda]

Spill非常に厄介なんですよね。
例えば、式部分的に書いて、Spillしちゃう。その後外側にINDEXとかで答えが単一になるように直そうとすると、配列の一部は修正できないって怒られるから、全部消してから入れなおさなきゃならない。
まあ、どうなるか予想できるようになると途中までは｛｝で入れておくとか対応できますけど^^
Spill不要論者ですｗ

[投稿情報: y sakuda]

>SORTBY関数にはそれなりに便利な使い方があるかもしれませんけど
機能としてはいいんだけど、関数としてはいらないですね。話がややこしくなっちゃうｗ

[投稿情報: くまぷー]

＞Spill非常に厄介なんですよね。

カチンとくる所：式に含まれる配列を表示する場所が無いと式に欠陥が無くてもエラーになる所。

良い点：表示する場所があれば、従来は脳内で処理しなければならなかった配列が可視化される所かな？

[投稿情報: くまぷー]

この問題をやってみての研究なんですが・・・

＞75{=OFFSET($B$5,MATCH(LARGE(C$6:C$9-ROW(1:4)%,ROW(A1)),C$6:C$9-ROW(1:4)%,),)}

＞=INDEX($B:$B,RIGHT(SMALL(RANK(C$6:C$9,C$6:C$9)+{6;7;8;9}%,ROW(A1))))

・・・は

=SORTBY($B6:$B9,C$6:C$9,-1)

・・・に比べると複雑すぎ！！　もはや出番は無い！！

・・・のだろうかというとそんなことは無い！

なんと、上の2式はPhonetic（）をかぶせて・・・

=PHONETIC(OFFSET($B$5,MATCH(LARGE(C$6:C$9-ROW(1:4)%,ROW(A1)),C$6:C$9-ROW(1:4)%,),))

=PHONETIC(INDEX($B:$B,RIGHT(SMALL(RANK(C$6:C$9,C$6:C$9)+{6;7;8;9}%,ROW(A1)))))

・・・とするだけで参考図2のようにできる。

しかし・・・

=SORTBY($B6:$B9,C$6:C$9,-1)

・・・はできない。

それが面白い所。

新関数、従来の関数、いろいろあって面白い。

[投稿情報: min]

＞括弧の組み合わせが合ってないので・・・
あら、本当。
最近目が弱って、、
なんも考えてないことがばれた。

SORTBYの方でしたか。
それも樹にはなっていました。
ん、樹じゃなくて気

それにしても
＞Spill非常に厄介なんですよね。
そんな感じですね。

でも、新しい関数もいいところはあるみたい。
必要ない人は使わなければいい、
と開発者が考えて
新製品の付加価値を付けるのに躍起になっているのか？

とりあえず年齢的にも新関数は覚えられそうもないので、
しばらく2007でいきます、、、

Spill議論も役に立ちました。
ありがとうございました。

[投稿情報: min]

くまぷーさん
わざわざ、画像まで
お手数おかけしました。

[投稿情報: min]

sakudaさん
rankの方が少し長くなるんですね。

[投稿情報: min]

niさんと75はやはり一緒でした。

[投稿情報: くまぷー]

＞くまぷーさん
＞わざわざ、画像まで
＞お手数おかけしました。

いえいえ、どういたしまして。(^^ゞ