関数で出来ますか～？ 第338回 ２重抽選

☆問題の背景

【一次抽選】
ある商品を購入すると１番から100番までの番号札が配られる。
毎日その日の一次当選番号が発表される。
それが50日間繰り返される。
一次当選者はその番号を大切に保管しておく。
当り番号の交付数（当選者数）は管理者に管理されている。
【最終抽選】
50日後最終当選のための抽選が行われる。
最終当選番号の決定は１から100の番号札を引いて決定する。
一度引いた番号は再度引くことができるが、1枚の番号札に対する当選は１回のみである。
管理者側としては、最終当選者が100人以上となった時点で終了としたい。

【問題】
セル番号G4に抽選回数に応じた最終当選者累計を表示するよう式を入れてもらいたい。
また、最終当選者累計が100を超えた時点で打ち切りとするため、
100以上となった時点で以下のセルは終了と表示してもらいたい。
なお、式はG4をしたにコピーする。
【ポイント】
最終抽選では同じ当選番号を引いた場合２回目以降の番号は無効となり累計欄に加算されない。
ただし、一時抽選で２回以上同じ番号が出た場合は、その人数は合計される。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（minさん）

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

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

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

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

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

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

Comments

[投稿情報: y sakuda]

そうか・・・・条件が縦にならんでるってとこがポイントか・・・・

[投稿情報: ｎｉ]

＞DSUMで2なんて考えなかったorz
使い方をよく知らないので、HELP見ながらの結果です。＾＾；

[投稿情報: min]

＞味のある出題、ありがとうございました。m(__)m
なんか変な問題で・・・
DSUMで振り回してしまって・・・
DSUMなんて大体の方は知っているけど
からくちさんは嫌いな関数とのことで
自分を含め普段使わないかよくわかりました。

ISNAは2007では使えないし、
XORは使えないし、知らなかったけど面白い関数だなと感心したし

とにかく、無事終了、ありがとうございました。

ジョー３さんがほとんど出てこられなかったことが少し残念
でした。

[投稿情報: からくち]

今更ですがこの問題の面白いところは、、、
sakudaさんのこの式に現れています
＞=IF(MAX(G$3:G3)>99,"終了",N(G3)+SUMIF(B:B,AND(F4<>F$3:F3)*F4,C:C))

N(G3)+
この部分Nなど付けなくてもSUMに入れてしまえば良い
でもそうすると後に出てくる終了が０扱いされてしまう
勿論ですがNでもそれは同じですが、、、
そこで使いたくも無いMAXの登場となってしまう
これを何とか出来ないか、、、
どっちか１つにならないか、、、
ここがこの問題の１番の苦しみであり１番の面白いところ

関数を増やす、、、は仕事には良いところかも、、、
でもお遊びには受け入れ難いところ
面白さを減らされてしまう様な、、、

そう言った意味でもこの問題の１番はG3に文字があったところと思います
若し問題作りコンテストがありその審査員をしていたら、、、
この部分での評価で決勝戦へ、、、と押すでしょう