- ベストアンサー
数字の下桁を使った抽選方法について
商店街で富くじのキャンペーンをしました。300近くある店のそれぞれに何番のくじが配布されたかのデーターはエクセルに入力してあります。(たとえば25983~32444というふうに) 組合としては,どこの店に何等が何本当たったかを把握し補助金を出そうと考えています。 1等は下四桁,2等は下三桁というように下桁の数値で当たりを設定したいのですが,たとえば下三桁の数値243を入力したら即座にどの店に何本の当たりが出たかがわかるような,関数なりうまい方法はないでしょうか。よろしくお願いします。
- dadaku
- お礼率24% (6/25)
- その他(データベース)
- 回答数5
- ありがとう数3
- みんなの回答 (5)
- 専門家の回答
質問者が選んだベストアンサー
大事な“-1”を忘れてしまいました。b を以下のように訂正して下さい。 b =INT((25983-243-1)/1000) で,この例ですと当たりは7本ですね。また,No.1 の方の補足にある「14556~39999までの下3桁675は何本あるか」の場合,当たりは26本ですね。No.4 の方の変数名を用いて一行で書けば, 当たり本数 =INT((max-num)/1000)-INT((min-num-1)/1000) になります。なお,No.4 の方に補足ですが,このマクロでは, If (Right(i, Length(num)) = num) Then count = count + 1 この2行を分けて書くことは出来ません。分けずに一行で書くか,もし分ける場合は Endif が必要です。あと,配列も Integer よりは Long の方が良いと思います。
その他の回答 (4)
- Paul_xxx
- ベストアンサー率56% (27/48)
えーと、いろいろ考えたんですけど ちょっと難しいですね (笑) あとから思ったんですけど 25983~32444 というのは、同じセルに入力されてるんでしょうか だとしたら、ます別のセルにしないといけないと思います。 はじめに読んだときは 25983 25984 25985... みたいに入力されてるのかと思ったので最初のような回答をしましたが 範囲で入力されてるとすると多分、出来合いの関数だけでは難しいと思います。 で、ちょっと高度になりますけど ユーザ定義関数を作ってやれば割とすんなりいけると思います。 検証してないですが、以下のような感じになるかと Private Function atari_count(num, min, max) Dim count As Integer Dim i As Integer For i = min To max If (Right(i, Length(num)) = num) Then count = count + 1 Next atari_count = i End Function 引数の num というのが例でいう243、minが 配布番号の最小値 例でいうと25983 maxが同じく最大値で32444ですね。 実際に使う場合は、普通の関数と同じく呼び出せますので =atari_count(A1, C3, D3) のような感じになります。 しばらくまともにExcel使ってなくて、ちょっと目にした質問で 考え込んでしまったので、思い切り外してるかもしれません 私が思いつくのはこれでいっぱいいっぱいでした ごめんなさい もっとすばらしくスマートな解決方法を誰かが出してくれるかもです (笑)
- 38endoh
- ベストアンサー率53% (264/494)
32444 から 243 を引き,1000 で割り,その整数部分を求めます。 a =INT((32444-243)/1000) 次に,25983 から 243 を引き,1000 で割り,その整数部分を求めます。 b =INT((25983-243)/1000) 当たりの本数は a-b になります。なお,下四桁を合わせるときは,10000 で割って下さい。
- Paul_xxx
- ベストアンサー率56% (27/48)
私が思いついたのは、 Countif関数を使うか。列をひとつ追加してRight関数とオートフィルタを使うかです。 Countifの場合、店名だけ抽出したシートが別に必要になりますが 数は一発で出せます。 オートフィルタの場合、数を数えなければいけないので、多い場合は集計機能などを使うことになりますね 他にピボットテーブルを使う方法もありますが、その場合は 当選数の中から選択するという形になりそうなんで、 あまりスマートじゃないかな
補足
ありがとうございます。 当選本数を一等50本,二等100本,三等200本,4等500本というふうにとても多い上に店舗数も多く,困っています。ひとつの店舗で最低150枚の富くじを配布しますので,一つ一つの数字を対象にすることは時間がかかります。一気にいける方法はないでしょうか。あつかましい願いですみません。
- papayuka
- ベストアンサー率45% (1388/3066)
こんにちは。 例えばデータが下記のような場合なら、一番上にタイトル行を入れ、空いている列に RIGHT 関数を入れてコピーし、オートフィルタをかければ抽出出来ますよ。 店名 番号 下3桁 A商店 25983 =RIGHT(B2,3) B商店 25984 ↓コピー C商店 25985 ↓
補足
さっそくのご回答ありがとうございます。 ひとつの店に一枚の富くじでしたら,RITE関数で下桁を抽出するのもいい方法と思いますが,スーパーさんとかでしたら一店舗で2万枚とか出るんですよ。14556~39999までの下3桁675は何本あるかというのが,即時にわかるいい方法はないでしょうか。
関連するQ&A
- お祭りでの有料抽選会は違法?
毎年夏祭りでくじ番号の付いた抽選券を300円で販売しています。1等が10万円の旅行券です。これは、祭りを運営するための協賛金として理解していただいてます。そのお返しとしてお楽しみ抽選ということです。それが今年になって警察から賭博行為になるといわれました。賭博若しくは富くじ販売となるのでしょうか色々なところで同様なことは行われていると思うのですが、また商店街やショッピングモール等でもいくらに一枚の補助券を出し規定枚数で抽選などが行われてます。これらはどうなるのでしょうか。 大変困ってます。どなたか教えてください。お願いします
- 締切済み
- その他(法律)
- 当選人数算出方法を教えてください
すみません、計算が苦手なのでみなさんの知恵をお貸しいただけないでしょうか(>_<) ナンバリング式のくじを12万枚配布し、1等50本、2等200本、3等400本にした場合、当選番号の下何桁まで設定すれば、それぞれの賞の本数に近づけられるでしょうか。 ご教示いただければ幸いです。 よろしくお願いします!
- 締切済み
- 数学・算数
- スクラッチの疑問
ふと思ったんですがスクラッチって出来た時(刷った時)にもう当りが分かってますよね。 つまり1等がどれかも分かってるわけです。その当りくじはちゃんと全国に配布されてるんでしょうか? なんかものすごく疑問を感じてしまいました。
- ベストアンサー
- その他(趣味・娯楽・エンターテイメント)
- エクセルでの作成方法がわかりません
6桁のくじ番号を入力するとそれが何等賞に当選かがすぐにわかるシートを作りたいと思います。 当選番番号早見表を用意し、これを利用して「調べる番号」に番号を入力すると「照合結果」に「○等に当選です」と表示しはずれの場合は「残念でした」と表示できるようにします。 当選番号早見表 等級 賞品名 当選番号 1等 デジタルビデオカメラ 809456 815467 2等 カーナビ 下5けた 51865 75148 3等 デジタルカメラ 下4けた 2577 4185 4等 商品券5000円分 下2けた 14 42 82 19 26 調べる番号 ○○○○○○○ 照合結果 ○○○○○○○ このシートをエクセルで作成したいのですが、良い方法を具体的に教えてください。
- ベストアンサー
- Windows XP
- エクセル下三桁の検索方法教えて下さい
初めて質問させていただきます。 Sheet1 A1 に検索したい数字(3桁)入力します Sheet2 の B1 - B123 までに検索したい対象の数字(アルファベット含、10桁以上)の数値があります。 A1に数値を入力し 他のセルにB1-B123の下三桁と一致するセルを出したいのですが、 たどり着けませんでした。 分かる方、教えて下さい。 できればVBではなく、関数の方法お願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルでの数字表示方法について教えてください。
エクセルで数値を入力する場合に、例えば\85000を入力する時に千円単位で入力するとなると実際に入力する数値が「85」になるのですが、もし入力する数値が\85500だとすると「85」で500があぶれてしまいます。 この時、実際には「85500」と入力し 画面上では「85」となるように下3ケタを見えないようにしたいのですが、どのようにすればいいのでしょうか。 お手数ですがご教授下さい。 よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- 抽選の当選番号について
お店で抽選券を000001番~010000番まで10,000枚配りました。 1等を50本、2等を100本、3等を500本、4等を2000本で下○桁が○○番という形であたりを出したいのですが、どのように計算すればいいでしょうか? 自分でも計算しているのですが間違いがあるとドラブルになりかねないので正確に知りたいと思い質問します。 宜しくお願いいたします。
- ベストアンサー
- 数学・算数
- 夜店のくじで1等を入れないのは詐欺?
子供の頃誰しも夜店のくじで1等に憧れてくじを引きませんでしたか? このくじで疑問があります。 それは、このくじで当たりが出た人を見たことがないと言うことです。 最近、問屋街を回っていると人気商品の空箱だけが売られていたりします。 店の人に尋ねてみると、「夜店のくじの目玉に使う」 と教えてくれました。 1等を入れていないくじは合法なのでしょうか? 私は、1等が当たるかもしれないという人の期待を 裏切って欺いているので詐欺になるのではないかと 思うのですが、確信が持てません。 根拠・ご意見をお聞かせ下さい。
- ベストアンサー
- その他(法律)
- Flashで日毎に違う数字を外部テキストで表示
初めて投稿させて頂きます。 FLASHで抽選くじのようなものを作ろうとしているのですが つまづいてしまいましたので、アドバイスを頂けたら幸いです。 内容は以下の通りです。 こちらの指定した電話番号の下4桁の数字で、当たりの出る抽選クジを作りたいと思っています。 『例)今日は、下4桁が1234の方に◯◯をプレゼント!』という感じです。 4桁の数字は日毎に変わるようにしたいです。(1、2週間分の数字をストックしておきたいです。) 更新しやすいように、4桁の数字は外部のテキストを読み込ませたいと思っております。 スタートボタンを押すと、パラパラと適当な乱数が表示された後にその日の4桁が表示される。といった方法にしたいと思っています。 説明が下手ですみません。 よろしくお願い致します。
- 締切済み
- ホームページ作成ソフト
- お祭りのくじの当て方(数字合わせとかのめくるやつ)
以前、お祭りで数字合わせの屋台で、 店やってる人が目の前で当たりくじを2,3枚開いて見せてくれました。 (31番、41番など、下1桁が1のくじがあたりだった場合、それを見分けてくじを引いて見せてくれました) こういうタイプのくじにはやはり見分け方というものがあるのでしょうか? 今ちょうどお祭りやってるので、無理を言うようですがよろしくお願いします。
- 締切済み
- その他(趣味・娯楽・エンターテイメント)
お礼
おかげで,各店舗に何等が何本当たったのかを知ることができ,補助金を支払うことができました。 340店舗強について一気に必要な経費を算定でき感動的でした。 残業しないですみました。ありがとうございました。