指定した抽選間隔の抽選結果を表示する方法
- 質問文章から「指定した抽選間隔の抽選結果を表示する方法」について解説します。
- 具体的には、数字選択式宝くじの「ミニロト」の抽選結果を毎回エクセルに入力しており、次回の予想に活用しているとのことです。
- 抽選結果シートの最新抽選結果から指定した抽選間隔ごとの抽選結果を抽出する方法について、エクセル操作とVBAのソースコードを教えてほしいとのことです。
- ベストアンサー
指定した抽選間隔の抽選結果を表示する。
どなたかご存じでしたら回答をお願いします。 数字選択式宝くじの「ミニロト」の抽選結果を毎回エクセルに入力しております。 それを次回の予想に利用しておりますが、「最新抽選結果から第１回目抽選回迄の間で、 ｎ回間隔の抽選結果を抽出する方法」が知りたいです。 例を言うと、【抽選結果シート】の最新抽選結果が180回で、”60回間隔”という指定をすると、 【ｎ回間隔抽選選結果】のように180回を基準として60回前の抽選結果である120回とさらに そこから60回前の60回の抽選回の結果を抽出する。 【抽選結果シート】 抽選回 第１数字 第２数字 第３数字 第４数字 第５数字 ボーナス数字 1 01 02 03 04 05 06 2 11 15 16 17 19 20 ---途中省略 ---- 60 03 07 10 20 25 06 ---途中省略 ---- 120 15 16 17 18 23 10 ---途中省略 ---- 180 07 08 12 15 25 05 【ｎ回間隔抽選選結果】 抽選回 第１数字 第２数字 第３数字 第４数字 第５数字 ボーナス数字 60 03 07 10 20 25 06 120 15 16 17 18 23 10 180 07 08 12 15 25 05 例として60と言ってますが、これは変数なので10とか30といったのに変わります。 エクセルでの操作およびＶＢＡでのソースを教えてください。 また、抽選回に入っているのは数値で、第１数字～ボーナス数字までに入っているのは 文字としています。 以上
- moguo4649
- お礼率75% (224/296)
- オフィス系ソフト
- 回答数5
- ありがとう数5
- みんなの回答 （5）
- 専門家の回答
質問者が選んだベストアンサー
このようなケースでは、単純に抽出したい抽選回を計算し、VLOOKUP関数を使ってその回数のデータを引っ張ってくるのが簡単だと思います。 抽出したい頻度がB1セルに入力してあり、最新の抽選回（関数で計算する場合は「=MAX(抽出結果シート!A:A)」を入力）がD1セルに入力してあるなら、抽出したい抽選回は以下の数式で求められます。 A4セル（1番最初の抽選回） =IF(MOD($D$1,$B$1)=0,$B$1,MOD($D$1,$B$1)) A5セル（2つ目以降の抽選回、以下下方向にオートフィルコピー） =IF($A$4+ROW(A1)*$B$1>$D$1,"",$A$4+ROW(A1)*$B$1) 最後に、以下の式をB4セルに入力して右方向および下方向にオートフィルコピーして下さい。 =VLOOKUP($A4,抽出結果シート!$A:$G,COLUMN(B:B),0)
その他の回答 (4)
- MASUKUBO
- ベストアンサー率22% (4/18)
回答No1です。シート名がSheet1になっていました。次の式に訂正してください。 A2セルからG2せるには抽選結果シートと同じ項目名を入力します。 A3セルには次の式を入力しG3セルまでオートフィルドラッグしたのちに下方にもオートフィルドラッグします。 =IF(ROW(A1)>ROUNDUP(MAX(抽選結果!$A:$A)/$A$1,0),"",INDEX(抽選結果!$A:$G,MAX(抽選結果!$A:$A)+1-(ROW(A1)-1)*$A$1,COLUMN(A1)))
お礼
再度ご回答して頂きありがとうございます。 また試してみます。
- tom04
- ベストアンサー率49% (2537/5117)
No.2です。 ＞昨日の質問の回答に続いてまた・・・ とありますので・・・ 実は前回のコードの場合、A列が文字列であれば問題なかったのですが、表示形式だけがユーザー定定義の "0000" となっているとちゃんと動作しなかったと思います。 訂正のコードを投稿しようとしたのですが、すでに回答受付を打ち切られていらっしゃったので 今回の質問とは全く関係なくて申し訳ありませんが、この場を借りて昨日のコードの訂正版を投稿させてもらおうと思います。 Sub test() Dim i, j As Long Dim str As String Dim c As Range For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row For j = 1 To 4 If j <= Len(Cells(i, 1)) Then Cells(i, j + 1) = Mid(Cells(i, 1), j, 1) Else Cells(i, j + 1) = 0 End If Next j Set c = Range(Cells(i, 2), Cells(i, 5)) str = WorksheetFunction.Min(c) & _ WorksheetFunction.Small(c, 2) & _ WorksheetFunction.Small(c, 3) & _ WorksheetFunction.Max(c) With Cells(i, 2) .Value = str .NumberFormatLocal = "0000" End With Next i Columns("C:E").Delete End Sub これでA列の桁数表示が4桁で実際の桁数が何桁でも対応できると思います。m(_ _)m
お礼
昨日の回答の訂正版まで頂きありがとうございます。 たくさん回答を頂いてたので早く締め切ってしまいました。 申し訳ありませんでした。
- tom04
- ベストアンサー率49% (2537/5117)
こんにちは！ VBAでの一例です。 Alt＋F11キー → 画面左側にある「This Workbook」をダブルクリック → VBE画面が出ますので ↓のコードをコピー＆ペーストしてマクロを実行してみてください。 （Alt＋F8キー → マクロ → マクロ実行です） Sub test() 'この行から Dim i, j, k As Long Dim ws1, ws2 As Worksheet Set ws1 = Worksheets("抽選結果シート") Set ws2 = Worksheets("sheet2") '←「sheet2」の部分は実際のSheet名に！ For k = 1 To 7 ws2.Cells(1, k) = ws1.Cells(1, k) Next k j = ws2.Cells(Rows.Count, 1).End(xlUp).Row If j > 1 Then Range(ws2.Cells(2, 1), ws2.Cells(j, 7)).Delete End If j = InputBox("間隔数を入力してください。") For i = ws1.Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -j For k = 1 To 7 ws2.Cells(Rows.Count, k).End(xlUp).Offset(1) = ws1.Cells(i, k) Next k Next i j = ws2.Cells(Rows.Count, 1).End(xlUp).Row Range(ws2.Cells(2, 1), ws2.Cells(j, 7)).Sort key1:=ws2.Cells(2, 1), order1:=xlAscending ws2.Columns("A:G").AutoFit End Sub 'この行まで こんなんではどうでしょうか？m(_ _)m
お礼
昨日の質問の回答に続いてまた回答頂きありがとうございます。 早速、試させていただきます。
- MASUKUBO
- ベストアンサー率22% (4/18)
抽選結果シートはA1セルからG1セルにわたってお示しの項目名が有り、下方にはそれぞれのデータが入力されているとします。 そこでｎ回間隔抽選選結果シートですがA1セルにはｎ回間隔のｎの数値を例えば60のように入力します。B1セルには回間隔抽選とでも入力します。 A2セルからG2せるには抽選結果シートと同じ項目名を入力します。 A3セルには次の式を入力しG3セルまでオートフィルドラッグしたのちに下方にもオートフィルドラッグします。 =IF(ROW(A1)>ROUNDUP(MAX(Sheet1!$A:$A)/$A$1,0),"",INDEX(Sheet1!$A:$G,MAX(Sheet1!$A:$A)+1-(ROW(A1)-1)*$A$1,COLUMN(A1)))
お礼
早速のご回答ありがとうございます。 頂いたとおりの作業をしたはずですが、結果がでてこないです。 実際にやられた結果添付して頂けると助かります。
関連するQ&A
- 指定した範囲迄の抽選結果を別シートに表示する。
どなたかご存じでしたら回答をお願いします。 数字選択式宝くじロト６、ミニロトの抽選結果をエクセルにつけております。 それを利用して、『最新抽選回数から指定した範囲迄の抽選結果を別シートに表示させる。』 方法が知りたいです。 【抽選結果シート】 ※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です。 以上、ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ５回前迄の抽選結果を取得する。
どなたかご存じでしたら回答をよろしくお願いします。 数字選択式宝くじのミニロト、ロト６の抽選結果をエクセルにて管理しております。 【質問】 ロト６は週２回抽選（月曜日と木曜日）があり【抽選結果シート】にも抽選日・曜日を記入しており ます。新たに【直近５抽選結果シート】を作り、ここに指定した曜日（月曜日or 木曜日）と 最新抽選回入力すると、指定した曜日の直近５回分の抽選結果を【抽選結果シート】から抽出 表示させる方法が知りたいです。 ※【抽選結果シート】の説明；Ａ列：抽選回、Ｂ列～Ｇ列：第１数字～第６数字 Ｈ列：ボーナス数字、Ｉ列：抽選日、Ｊ列：曜日 【抽選結果シート】※797回を最新抽選回とする。 786 10 11 17 31 35 39 23 2013/8/12 月曜日 787 4 5 13 21 33 34 15 2013/8/15 木曜日 788 2 8 13 27 31 32 16 2013/8/19 月曜日 789 12 17 29 32 38 40 28 2013/8/22 木曜日 790 9 13 19 27 34 38 8 2013/8/26 月曜日 791 1 10 22 24 34 37 20 2013/8/29 木曜日 792 1 7 14 25 37 43 4 2013/9/2 月曜日 793 10 13 14 19 26 43 12 2013/9/5 木曜日 794 15 22 25 29 34 42 2 2013/9/9 月曜日 795 13 19 24 28 33 38 29 2013/9/12 木曜日 796 1 7 11 14 22 34 2 2013/9/16 月曜日 797 1 4 13 18 23 39 35 2013/9/19 木曜日 【直近５抽選結果シート】・・・例）月曜日を抽出指定した場合。 抽出対象日：月 最新抽選回：797 788 2 8 13 27 31 32 16 2013/8/19 月曜日 790 9 13 19 27 34 38 8 2013/8/26 月曜日 792 1 7 14 25 37 43 4 2013/9/2 月曜日 794 15 22 25 29 34 42 2 2013/9/9 月曜日 796 1 7 11 14 22 34 2 2013/9/16 月曜日 【直近５抽選結果シート】・・・例）木曜日を抽出指定した場合。 抽出対象日：木 最新抽選回：797 789 12 17 29 32 38 40 28 2013/8/22 木曜日 791 1 10 22 24 34 37 20 2013/8/29 木曜日 793 10 13 14 19 26 43 12 2013/9/5 木曜日 795 13 19 24 28 33 38 29 2013/9/12 木曜日 797 1 4 13 18 23 39 35 2013/9/19 木曜日 ●注意事項 ・抽選結果シートは第１回～最新抽選回までです。 ・使用するエクセルは２０１０です。 以上、ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 数字の最終出現回の表示
どなたかご存じでしたら回答をお願いします。 数字選択式宝くじロト６、ミニロトの抽選結果をエクセルにつけております。 それを利用して、１～４３迄の数字が最新抽選回数から遡っていき、 最後に出た抽選回を表示する＆”塗りつぶしする”方法が知りたいです。 【例：抽選結果シート】 ※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です。
- ベストアンサー
- オフィス系ソフト
- 抽選結果数字を各番台に数える方法。
どなたかご存じでしたら回答をお願いします。 数字選択式宝くじロト６、ミニロトの抽選結果をエクセルにつけております。 それを利用して、『ボーナス数字を除いた第１～第６までの抽選結果数字が、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 ○注意事項 １）各番台は下記の数字を対象とします。 ０番台 ・・・ １～９までの数字。 １０番台 ・・・ １０～１９までの数字。 ２０番台 ・・・ ２０～２９までの数字。 ３０番台 ・・・ ３０～３９までの数字。 ４０番台 ・・・ ４０～４３までの数字。 ２）使用するエクセルは２００７です。 以上、ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 抽選結果を末尾数字で纏めて表示させる方法
どなたかご存じでしたら回答をお願いします。 数字選択式宝くじロト６の抽選結果をエクセルにつけております。 【質問】 抽選結果である第１～ボまでの７つの数字が各セルに入っておりますが、 ７つの数字の末尾数字を抽出して重複チェックを行い【出現末尾数字】として 小さい数字順に表示させ、出現しなかった末尾数字を【未出現末尾数字】として 小さい数字順に表示させる方法が知りたいです。 【抽選結果シート】 ※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です。
- ベストアンサー
- オフィス系ソフト
- 指定した○回前の第○数字を抽出する。
どなたかご存じの方は回答願います。 数字選択式宝くじの「ミニロト」の抽選結果を下記のイメージの エクセルシートにまとめております。 抽選回 第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です。 以上、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 数字出現数の印付け
どなたかご存じでしたら回答をお願いします。 数字選択式宝くじロト６、ミニロトの抽選結果をエクセルにつけております。 それを利用して、◎、○、△を付ける方法が知りたいです。 【例：抽選結果シート】 ※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です。
- ベストアンサー
- オフィス系ソフト
- 抽選結果の桁別ビジュアル化
どなたかご存じでしたら回答をお願いします。 数字選択式宝くじのナンバーズ３、ナンバーズ４の抽選結果をエクセルに登録しております。 【抽選結果（ナンバーズ３）】 313 457 123 【抽選結果（ナンバーズ４）】 1133 8415 5551 上記結果を見やすくするために桁別に３つに0～9にわけてその桁の抽選結果数字に該当すれば 「○」をつける方法が知りたいです。 また、桁毎に前回の抽選数字と今回の抽選数字を「結線」する方法もあれば教えてください。 【抽選結果（ナンバーズ３）】 N3 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 313 ○ ○ ○ 457 ○ ○ ○ 123 ○ ○ ○ 【抽選結果（ナンバーズ４）】 N4 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 1133 ○ ○ ○ ○ 8415 ○ ○ ○ ○ 5551 ○ ○ ○ ○ 使用しているエクセルは2007です。 エクセル操作またはＶＢＡのソースで回答願います。 以上
- ベストアンサー
- オフィス系ソフト
- ミニロト・ロト６のビジュアル化
どなたかご存じでしたら回答をお願いします。 数字選択式宝くじのミニロトとロト６の抽選結果をエクセルに登録しております。 ※（）内の数字はボーナス数字です。 【ミニロト】 ０１ 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)○ ● ○ 使用しているエクセルは２００７です。 以上、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
画像付きの回答を頂きありがとうございます。 早速、試してみます。