数字の最終出現回の表示方法とは？
- 数字の最終出現回の表示方法を知りたいです。抽選結果シートと最終出現回シートを利用して、１～４３までの数字が最新抽選回数から遡っていき、最後に出た抽選回を表示する方法を教えてください。
- 抽選結果シートには第1回から最新抽選回までの数字が入っています。最新抽選結果を追加すると、１～４３の数字について最終出現回シートで抽選回を確認し、該当数字が出た時の抽選回を塗りつぶすことができます。
- タイトル：数字の最終出現回の表示方法 要約：数字の最終出現回の表示方法を教えてください。抽選結果シートと最終出現回シートを利用し、１～４３までの数字が最新抽選回数から遡っていき、最後に出た抽選回を表示する方法を解説します。
- ベストアンサー
数字の最終出現回の表示
どなたかご存じでしたら回答をお願いします。 数字選択式宝くじロト６、ミニロトの抽選結果をエクセルにつけております。 それを利用して、１～４３迄の数字が最新抽選回数から遡っていき、 最後に出た抽選回を表示する＆”塗りつぶしする”方法が知りたいです。 【例：抽選結果シート】 ※621回を最新抽選回数とする。 抽選回 第1数字 第2数字 第3数字 第4数字 第5数字 第6数字 ボ数字 ： 611 2 12 18 24 31 39 16 612 7 18 30 32 39 40 35 613 2 6 18 26 32 37 5 614 2 4 22 25 35 41 1 615 6 16 24 32 35 43 28 616 3 7 18 19 24 35 17 617 5 17 18 28 31 36 10 618 4 15 18 31 35 42 13 619 1 11 29 31 33 38 14 620 7 10 18 19 35 38 12 621 2 15 16 28 35 40 20 【最終出現回シート】 1：619 2：621 3：616 4：614 ： 15：621 16：621 17：617 18：620 19：620 ： 29：619 30：612 31：619 ： 35：621 36：617 37：613 ： 40：621 41：614 42：618 43：615 【注意事項】 ・抽選結果シートは第１回抽選から最新抽選回まで入力されています。 ・最新抽選結果を追加すると、１～４３全ての数字について最終出現回シートに抽選回が 得られるまで最新抽選回から遡る。 ・１～４３全ての数字について最終出現回の抽選結果にある該当数字を”塗りつぶし”する。 ・ボーナス数字は最終出現回の対象外です。 ・最終出現回シートの数字は１～43迄です。 ・エクセルは2007です。
- moguo4649
- お礼率75% (224/296)
- オフィス系ソフト
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
言わずもがな抽選結果シートのＡ列に回数，ＢＣＤＥＦＧ列に１～６番の数字を記入しているとする 最後に出た回の計算： 最終回シートのＡ１に数字の１，Ａ２に数字の２…と４３まで記入しておく 最終回シートのＢ１に =INDEX(抽選結果!A:A,MAX(IF(抽選結果!B:G=A1,ROW(抽選結果!B:G)))) と記入してコントロールキーとシフトキーを押しながらEnterで入力する Ｂ２以下にコピー貼り付ける。 最後に出たセルの塗りつぶし： 抽選結果のＢ：Ｇ列を列選択する Ｂ１がアクティブセル（選択範囲の中で逆反転状態になっているセル）になっている事を，必ず，確認してから ホームタブの条件付き書式▼を開始する 新しいルールを選び 数式を利用して書式設定…を選び 下の空欄に =(B1<>"")*(COUNTIF($B$1:$G1,B1)=COUNTIF($B:$G,B1)) と記入し，書式ボタンで色を付ける。 ＃注意：＄の有り無しがややこしいので絶対に間違えないこと
その他の回答 (1)
- tom04
- ベストアンサー率49% (2537/5117)
こんばんは！ VBAでの一例です。 Sheet1が【最終出現回シート】・Sheet2が【最終出現回シート】とします。 Sheet2のA列には↓の画像のように2行目以降に1～43の数値が入っているものとします。 そして、Sheet1の最終出現データを「赤」にしてみました。 Sheet1のSheet見出し上で右クリック → コードの表示 → VBE画面が出ますので ↓のコードをコピー＆ペーストしてマクロを実行してみてください。 （Alt+F8キー → マクロ → マクロ実行です） Sub test() 'この行から Dim i, j, k As Long Dim ws As Worksheet Set ws = Worksheets(2) '←Sheet2が「最終出現回シート」とします。 Application.ScreenUpdating = False i = Cells(Rows.Count, 1).End(xlUp).Row Range(Cells(2, 1), Cells(i, 7)).Interior.ColorIndex = xlNone For j = 2 To ws.Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row If WorksheetFunction.CountIf(Range(Cells(i, 2), Cells(i, 7)), ws.Cells(j, 1)) Then ws.Cells(j, 2) = Cells(i, 1) End If Next i Next j For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row For k = 2 To 7 For j = 2 To ws.Cells(Rows.Count, 1).End(xlUp).Row If Cells(i, 1) = ws.Cells(j, 2) And Cells(i, k) = ws.Cells(j, 1) Then Cells(i, k).Interior.ColorIndex = 3 End If Next j Next k Next i Application.ScreenUpdating = True End Sub 'この行まで ※ Sheet1のデータ変更があるたびにマクロを実行する必要がありますので、 ご希望の方法でなかったらごめんなさいね。m(_ _)m
お礼
いつもお世話になります。 そして、”気持ち”の解ったご回答ありがとうございます。 実行結果を添付して頂き、とても解りやすいです。
関連するQ&A
- 数字出現数の印付け
どなたかご存じでしたら回答をお願いします。 数字選択式宝くじロト６、ミニロトの抽選結果をエクセルにつけております。 それを利用して、◎、○、△を付ける方法が知りたいです。 【例：抽選結果シート】 ※621回を最新抽選回数とする。 抽選回 第1数字 第2数字 第3数字 第4数字 第5数字 第6数字 ボ数字 ： 611 2 12 18 24 31 39 16 612 7 18 31 32 39 40 35 613 2 6 18 26 32 37 5 614 2 18 22 25 35 41 1 615 6 16 24 32 35 43 28 616 2 7 18 19 24 35 17 617 5 7 18 28 31 35 10 618 4 15 18 31 35 42 13 619 2 11 29 31 33 38 14 620 7 10 18 19 35 38 12 621 2 15 16 28 35 40 20 【出現数カウント範囲】 11 【出現数シート】 1 2 3 4 5 6 7 8 9 10 11 …18 19 20 … 29 30 31… 35 36 37 38 39 40 41 42 43 ◎ △ △ ○ ○ 【注意事項】 ・抽選結果シートは第１回抽選から最新抽選回まで入力されています。 ・出現数カウント範囲に数字（1～99)迄を入力すると、最新抽選回数から遡った抽選結果迄を 範囲として出現数シートのカウント数字の対象とします。 ・出現シートの印（◎、○、△）は下記のルールでつきます。 ◎ ・・・ 出現数が6回。 ○ ・・・ 出現数が5回と7回。 △ ・・・ 出現数が4回と8回。 ※ボーナス数字は出現数にカウントしない。 ※上記以外の出現数は、SPACEとする。 ・出現数シートの数字は１～43迄です。 ・エクセルは2007です。
- ベストアンサー
- オフィス系ソフト
- 抽選結果を末尾数字で纏めて表示させる方法
どなたかご存じでしたら回答をお願いします。 数字選択式宝くじロト６の抽選結果をエクセルにつけております。 【質問】 抽選結果である第１～ボまでの７つの数字が各セルに入っておりますが、 ７つの数字の末尾数字を抽出して重複チェックを行い【出現末尾数字】として 小さい数字順に表示させ、出現しなかった末尾数字を【未出現末尾数字】として 小さい数字順に表示させる方法が知りたいです。 【抽選結果シート】 ※631回を最新抽選回数とする。 抽選回 第1 第2 第3 第4 第5 第6 ボ 出現末尾数字 未出現末尾数字 629 6 16 21 30 41 43 36 0 1 3 6 2 4 5 7 8 9 630 3 7 13 18 19 41 38 1 3 7 8 9 0 2 4 5 6 631 2 5 7 10 36 40 12 0 2 5 6 7 1 3 4 8 9 ●注意事項 ・末尾数字は0～９です。 ・使用するエクセルは２０１０です。 以上、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 数字の出現計と印の付け方
どなたかご存じでしたら回答をお願いします。 数字選択式宝くじロト６の抽選結果をエクセルにつけております。 それを利用して、◎、○、△の印と、出現計を付ける方法が知りたいです。 ●問題 毎回、【シート１：抽選結果】に最新抽選回を入力したら、【シート２：抽選結果抽出】に最新抽選回から４３回迄遡った抽選結果を抽出する。抽出された抽選結果数字を元にして、【シート２：出現数集計】の １～４３迄の数字の出現数を数えて”出現計”にその数を記す。そのうち、ある一定数の出現をしている数字については、その下の"印"に◎、○、△をつける。 ●シート説明 【シート１：抽選結果】・・第１回からの抽選結果が入る。最新抽選回は639回を最新抽選回数とする。 【シート２：抽選結果抽出】と同様のシートレイアウト。※現在使用中のシート 【シート２：抽選結果抽出】・・【シート１：抽選結果】から最新抽選回から４３回迄遡った抽選結果を 抽出する。【シート１：抽選結果】が最新抽選回を更新するたびに このシートも更新される。（セルは抽選回、第1、第２、第３、第４、第５、 第６、ボーナス毎に別れている。） 抽選回 第1 第２ 第３ 第４ 第５ 第６ ボーナス 597 03 04 07 13 16 23 01 598 06 10 15 21 36 41 40 599 01 02 08 13 27 39 36 600 03 20 23 24 28 35 26 601 06 22 25 26 30 39 32 602 08 13 15 18 24 41 27 603 03 08 18 21 23 42 17 604 09 15 20 22 28 43 37 605 01 04 13 25 38 43 11 606 08 15 24 26 35 42 07 607 02 03 08 12 20 21 16 608 04 06 16 17 18 26 40 609 18 24 36 37 39 41 01 610 02 05 12 23 26 41 36 611 10 12 14 24 34 39 16 612 07 18 31 32 39 40 35 613 02 06 18 26 32 37 05 614 02 06 22 25 31 42 01 615 06 16 24 32 36 43 28 616 04 07 18 19 24 35 17 617 05 08 18 28 34 35 10 618 04 15 21 31 35 42 13 619 02 11 29 31 33 38 14 620 07 10 13 19 31 38 12 621 06 15 16 28 36 40 20 622 07 16 18 20 27 36 41 623 07 08 16 35 39 42 09 624 04 08 12 22 25 30 43 625 05 17 26 37 39 42 20 626 06 13 14 22 26 28 10 627 02 04 07 19 34 42 30 628 07 13 15 18 29 38 30 629 06 16 21 30 34 43 36 630 03 07 13 18 19 41 38 631 02 05 07 10 36 40 12 632 03 04 14 21 22 25 26 633 07 09 11 14 15 18 05 634 08 10 13 15 20 40 23 635 08 11 12 15 41 43 22 636 02 12 21 23 24 26 36 637 07 12 16 28 31 34 11 638 06 11 19 28 35 40 14 639 01 16 20 24 33 34 08 【シート２：出現数集計】・・・【シート２：抽選結果抽出】から１～４３迄の数字の出現計を数えて、 それぞれの"数字”の下に出現計と印を記す。 数 字 ：1 2 3 4 5 6 7 8 9 10 11…29 30 31… 35 36 37 38 39 40 41 42 43 出現計：3 9 6 8 4 10 12 10 2 5 4 2 3 6 7 6 6 4 7 5 6 7 5 印 ： ◎ △ △ ○△ ◎ ○ ◎ △ ○ ○ ◎ ○ ○ ●注意事項 ・シートは抽選結果入力のためのシート１と、そこから抽選結果を抽出して集計したシート２の２枚 あります。 ・シート１は現在使用しているシートで、シート２は今回問題としてあげた作成したいシートです。 ・【シート２：出現数集計】の印（◎、○、△）は下記のルールでつきます。 ◎ ・・・ 出現計が6回。 ○ ・・・ 出現計が5回と7回。 △ ・・・ 出現計が4回と8回。 ※ボーナス数字は出現数にカウントしない。 ※上記以外の出現数は、SPACEとする。 ・エクセルは2007です。
- ベストアンサー
- オフィス系ソフト
- 指定した範囲迄の抽選結果を別シートに表示する。
どなたかご存じでしたら回答をお願いします。 数字選択式宝くじロト６、ミニロトの抽選結果をエクセルにつけております。 それを利用して、『最新抽選回数から指定した範囲迄の抽選結果を別シートに表示させる。』 方法が知りたいです。 【抽選結果シート】 ※631回を最新抽選回数とする。 抽選回 第1数字 第2数字 第3数字 第4数字 第5数字 第6数字 ボ数字 619 2 11 29 31 33 38 14 620 7 10 13 19 31 38 12 621 6 15 16 28 36 40 20 622 7 16 18 20 27 36 41 623 7 8 16 35 39 42 9 624 4 8 12 22 25 30 43 625 5 17 26 37 39 42 20 626 6 13 14 22 26 28 10 627 2 4 7 19 34 42 30 628 7 13 15 18 29 38 30 629 6 16 21 30 34 43 36 630 3 7 13 18 19 41 38 63１ 2 5 7 10 36 40 12 【抽出回数】 6 【抽出シート】 ※最新抽選回から６回前迄の抽選結果を表示。 抽選回 第1数字 第2数字 第3数字 第4数字 第5数字 第6数字 ボ数字 626 6 13 14 22 26 28 10 627 2 4 7 19 34 42 30 628 7 13 15 18 29 38 30 629 6 16 21 30 34 43 36 630 3 7 13 18 19 41 38 63１ 2 5 7 10 36 40 12 ◎注意事項 ・抽選結果シートは第１回抽選から最新抽選回まで入力されています。 ・最新抽選回は毎回抽選結果を追加入力します。 ・抽出回数には１～999までの数字が入ります。 ・抽出シートには、最新抽選回から抽出回数で指定した回数まで遡り、 その範囲の抽選結果シートの内容が表示されます。 ・エクセルは2007です。 以上、ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 指定した○回前の第○数字を抽出する。
どなたかご存じの方は回答願います。 数字選択式宝くじの「ミニロト」の抽選結果を下記のイメージの エクセルシートにまとめております。 抽選回 第1 第2 第3 第4 第5 ボ 630 3 4 16 19 31 14 631 3 15 18 20 25 29 632 6 14 15 25 26 13 633 2 12 19 20 30 13 634 6 14 24 27 31 22 635 12 13 16 20 29 11 注意） (1)抽選回、第1、第2、第3、第4、第5、ボは、それぞれ別々のセルです。 (2)それぞれに入っているのは”数字”です。 (3)最終抽選回は635回とします。 それを見ながら次回の削除数字を予想するのですが、 例えば、第636回の予想をするにあたり、”５回前の第４数字を抽出する。” と指定すると、 （第631回で出てきた第4数字の）”20” が抽出される。 また、”６回前の第２数字を抽出する。”と指定すると、 （第630回で出てきた第2数字の）”4”が抽出される。 いった、「指定した○回前の第○数字を抽出する」には どうすればよいですか？（ボ数字は抽出指定から外します。） 条件は２０個くらい羅列ができるのがよいです。 使用するエクセルは2007です。 以上、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 抽選結果数字を各番台に数える方法。
どなたかご存じでしたら回答をお願いします。 数字選択式宝くじロト６、ミニロトの抽選結果をエクセルにつけております。 それを利用して、『ボーナス数字を除いた第１～第６までの抽選結果数字が、0番台、１０番台、２０番台、３０番台、４０番台のいずれかに数える方法』が知りたいです。 【抽選結果シート】 ※631回を最新抽選回数とする。 抽選回 第1数字 第2数字 第3数字 第4数字 第5数字 第6数字 ボ数字 629 6 16 21 30 41 43 36 630 3 7 13 18 19 41 38 63１ 2 5 7 10 36 40 12 【出現番台まとめ】 抽選回 ０番台 １０番台 ２０番台 ３０番台 ４０番台 629 1 1 1 1 2 630 2 3 0 0 1 631 3 1 0 1 1 ○注意事項 １）各番台は下記の数字を対象とします。 ０番台 ・・・ １～９までの数字。 １０番台 ・・・ １０～１９までの数字。 ２０番台 ・・・ ２０～２９までの数字。 ３０番台 ・・・ ３０～３９までの数字。 ４０番台 ・・・ ４０～４３までの数字。 ２）使用するエクセルは２００７です。 以上、ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 前回と前々回の第○数字どうしの計算方法
どなたかご存じの方は回答願います。 数字選択式宝くじの「ミニロト」の抽選結果を下記のイメージの エクセルシートにまとめております。 抽選回 第1 第2 第3 第4 第5 ボ 645 3 4 16 19 31 14 646 3 15 18 20 25 29 647 6 14 15 25 26 13 648 2 12 19 20 30 13 649 6 14 24 27 31 22 650 12 13 16 20 31 11 注意） (1)抽選回、第1、第2、第3、第4、第5、ボは、それぞれ別々のセルです。 (2)それぞれに入っているのは”数字”です。 (3)第１回から入力されており最終抽選回は650回とします。 (4)毎週の抽選が終わるたびに抽選結果を追加していきます。 次回を予想数字を下記のルールで算出する。 (1)前回と前々回の第１数字～第５数字迄をそれぞれ加算する。 (2)それぞれ加算した合計数字を２で割る。 （２で割った時に0.5がでたら切り捨てる。例）(3+4)÷2=3.5 =>0.5は捨てて、3とする。）） (3)(2)で計算された５個の数字から、±１した数字も算出する。 （計算された数字が３１の場合、＋１の数字は算出しない。（ミニロトの最大数字は３１のため。） 【651回の計算例】 抽選回 第1 第2 第3 第4 第5 649 6 14 24 27 31 650 12 13 16 20 31 (1)前回と前々回の数字を足して２で割る。 第１数字 = (6+12) ÷ 2 = 9 第2数字 = (14+13) ÷ 2 = 13 第３数字 = (24+16) ÷ 2 = 20 第4数字 = (27+30) ÷ 2 = 28 第5数字 = (31+31) ÷ 2 = 31 (2)(1)で求めた数字から±１の数字を求める。 第1数字±１：8,9,10 第2数字±１：12,13,14 第3数字±１：19,20,21 第4数字±１：27,28,29 第5数字±１：30,31 上記のように、『抽選結果を追加するたびに、前回と前々回の第○数字どうしを計算して±１の数字を求める』にはどうすればよいですか？（ボ数字は計算から外します。） 使用するエクセルは2007です。 以上、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 数字間差を求めるＶＢＡのソースを教えて下さい。
どなたかご存じでしたら回答願います。 数字選択式宝くじのミニロトの抽選結果をエクセルにつけております。 下記のような抽選結果があったとします。 この結果について、エクセルＶＢＡを実行すると、 数字間差を計算するためのソースはどうゆうふうな記述をすればよいですか？ 【抽選結果シート】・・・最新の抽選結果を一番したのセルに入力しています。 第１ 第２ 第３ 第４ 第５ ボ数字 1 2 5 6 7 21 10 4 11 13 15 18 8 9 17 21 28 9 14 16 18 20 25 10 19 22 23 24 27 21 ： ： 【抽選結果シート】・・・ＶＢＡ実行後、ボ数字の右側が自動計算される。 第１ 第２ 第３ 第４ 第５ ボ数字 差12 差23 差34 差45 差15 差123 差1234 差12345 1 2 5 6 7 21 1 3 1 1 6 13 131 1311 4 10 11 13 15 18 6 1 2 2 11 61 612 6122 8 9 17 21 28 9 1 8 4 7 20 18 184 1847 14 16 18 20 25 10 2 2 2 5 11 22 222 2225 19 22 23 24 27 21 3 1 1 3 8 31 311 3113 【注意事項】 １）差の計算ルールは下記のとおりです。尚、計算結果にマイナスは発生しません。 差１２・・・・抽選結果シートの「第２-第１」です。 差２３・・・・抽選結果シートの「第３-第２」です。 差３４・・・・抽選結果シートの「第４-第３」です。 差４５・・・・抽選結果シートの「第５-第４」です。 差１５・・・・抽選結果シートの「第５-第１」です。 ２）差123、差1234、差12345については下記のとおりです。 差１２３ ・・・ 「差１２」と「差２３」の結果を結合（ａｎｄ）したものです。 差１２３４ ・・・ 「差１２」と「差２３」と「差３４」の結果を結合（ａｎｄ）したものです。 差１２３４５ ・・・ 「差１２」と「差２３」と「差３４」と「差４５」の結果を結合（ａｎｄ）したものです。 ３）使用しているエクセルは、エクセル２０１０です。 ４）ＶＢＡは、抽選結果シートに結果が全て入力されていれば第１回抽選結果から最新抽選結果迄 の計算をします。 以上、ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ミニロト・ロト６のビジュアル化
どなたかご存じでしたら回答をお願いします。 数字選択式宝くじのミニロトとロト６の抽選結果をエクセルに登録しております。 ※（）内の数字はボーナス数字です。 【ミニロト】 ０１ 12 13 18 21 (06) 【ロト６】 01 12 23 34 35 43 (07) 上記結果を見やすくするために、本数字には「○」をつけて、ボーナス数字には「●」をつける方法 が知りたいです。 【ミニロト】 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 ・・ ０１ 12 13 18 21 (06) ○ ● ○○ ○ ○ 【ロト６】 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22・ 01 12 23 34 35 43 (07)○ ● ○ 使用しているエクセルは２００７です。 以上、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- インターバルでの並び替え方法
どなたかご存じでしたらご回答願います。 数字選択宝くじのロト６、ミニロトの抽選結果をエクセルにつけております。 この中で、”数字の出現間隔（インターバル）”をロト６なら１～４３の数字 （ミニロトなら１～３１の数字）で、それぞの出現間隔をつけています。 【質問】 下記のようなインターバル表がある場合、インターバルを基準として１～４３迄の 数字を並べるにはどうすればよいですか？ ◎ＩＮＰＵＴ 数字 １ ２ ３ ４ ５ ６ ７ ８ ～ ３８ ３９ ４０ ４１ ４２ ４３ インターバル 0 5 20 7 4 13 2 10 ～ 0 1 0 5 10 17 ※説明(1) インターバルの”0”は、最新抽選にて出現した数字を表します。 ※説明(2) インターバルの数字（最大数字）は固定ではないです。変動します。 ◎ＯＵＴＰＵＴ インターバル 数字 20 3 17 43 13 6 10 8 42 7 4 5 2 5 41 2 7 0 1 38 40 ※説明(1) インターバル0から順番に、同じインターバルを持つ数字どおしを昇順に左から並べる。 ※説明(2) ｉｎｐｕｔのインターバル数字が変動すれば、outputも変動します。 使用するエクセルは２０１０です。 以上、ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
いつもお世話になります。 また、早速のご回答ありがとうございます。 簡単そうでややこやしそうですね。 できれば、実行されたサンプルを貼り付けて頂けるとありがたいです。