エクセルを使っての方法

エルセルなどを使用して、宝くじロト6過去のデータを入力して、
これから6個の数字を決めるときに、過去に出てしまった１等の数列を避ける方法を教えてください。

No.3 ベストアンサー 回答者： stomachman 回答日時： 2001/08/27 00:41

過去にどんな組み合わせが当選したかということは、次の組み合わせとは何の関係もありません。

だから仰るようなsheetを作ったところで無意味です。

それはさておき、どうやって作るかでしたよね。

［１］まず過去に当選した組み合わせを全部入力した表をつくらなくちゃいけません。
worksheetの上から11行目から下にこの表を作りましょう。
横に６つの数を、左から大きい順に並べることにしましょう。例えば過去の当選組み合わせを三つ入れたら
こんな感じになる：（｜はセルの境界線です。）
　Ａ　　　Ｂ　　　Ｃ　　　Ｄ　　　Ｅ　　　Ｆ
　４１｜　３０｜　２６｜　１１｜　　５｜　　２｜
　３９｜　３１｜　３０｜　２２｜　２０｜　　８｜
　４２｜　３５｜　３３｜　３１｜　２８｜　１２｜

さらに、桁数を揃えるために全ての数に900（３桁以上なら何でも良いんですが）を加えて文字列に変換したものを第H～M列に作ります。
そして第G列には、これらをくっつけた文字列を作りましょう。つまり１１行目に
　　　　　　　　Ｇ　　　　　　　　　　　　　　　　　　　Ｈ　　　　　　…　　　　Ｍ
｜=CONCATENATE(H11,I11,J11,K11,L11,M11)｜=FIXED(A11+900,0)｜…｜=FIXED(F11+900,0)｜

を入れて、12行目以下全部、これと同様にします。（やり方は知ってますよね。11行目のG～Mまでを選択しておいて、11行目M列のcellの右下端に出る小さい四角を下へドラッグすれば良いのです。）
これで、過去の当選番号のデータベースのできあがりです。

［２］数字の組み合わせを適当に選ぶ部分を作りましょう。
一番上の行の横６つのセルには、Excelが適当に数字を作ってくれる式を入れましょう。A列に式をいれて、A～F列は全部同じにします。
　　　Ａ　　　　　　　…　　　　Ｆ
=int(rand()*43+1)｜…｜=int(rand()*43+1)｜
とりあえずこれで良いでしょう。同じ数が２つ以上出てしまうこともありますが、それはあとで処理することにします。これで６つの数字(１から43のどれか）が並びます。
（勿論、これらのセルに、自分がこれと思う数字を書き込むようにしても良いのです。）

［３］数の組み合わせをチェックする部分を作りましょう。
２行目の横６つのセルには、「その列の、１行目の数字が、６つの数字のうち何番目に大きいか」を表す数値を表示させてみましょう。
=RANK(A$1,$A$1:$F$1)｜ =RANK(B$1,$A$1:$F$1) ｜…｜=RANK(F$1,$A$1:$F$1)|

５行目の横６つのセルに、１行目の数字を大きい順に並べ替えたものを出しましょう。このために、ちょっと準備がいります。
３行目の横６つのセルには、左から順に１から６まで数字を入れます。
　Ａ　　Ｂ　　Ｃ　　Ｄ　　Ｅ　　Ｆ
　１｜　２｜　３｜　４｜　５｜　６｜

１行目の横６つのセルでは、１行目の何列目を持ってくれば良いかを計算します。
=MATCH(A3,$A$2:$F$2,0)｜=MATCH(B3,$A$2:$F$2,0) ｜…｜=MATCH(F3,$A$2:$F$2,0)|

で、５行目の横６つのセルに、１行目の数字を大きい順に並べ替えたものを出します。
=INDEX($A$1:$F$1,A4)｜=INDEX($A$1:$F$1,B4)｜…｜=INDEX($A$1:$F$1,F4)|
さらに５行目に、
　　　　　　　　Ｇ　　　　　　　　　　　　　　　Ｈ　　　　　　…　　　　Ｍ
｜=CONCATENATE(H5,I5,J5,K5,L5,M5)｜=FIXED(A5+900,0)｜…｜=FIXED(F5+900,0)｜
を入れてやれば、５行目のＧ列にはデータベースと同じ形式の文字列が出ますね。
もし１行目の６つの数字に重複があれば、５行目のG列は#N/Aになります。

６行目のG列に、この文字列と同じものがデータベースにあるかどうかを調べる式を入れてみましょう。
=MATCH(G5,G11:G1000,0)
もし同じものがあれば数値を、なければ#N/Aを表示するはずです。

　これでひとまずできあがりです。どこか関係のないセルに0でも入力してReturnかEnterを押してみてください。すると一行目が再計算されて、別の数字の組み合わせが出てきます。
「５行目G列が#N/Aではなく、６行目G列が#N/Aである」という場合にはオッケーということです。つまり一行目の６個の数字には重複が無く、しかも、過去の当選番号のデータベースにも該当がない。

［４］ではオッケーの場合に、１行目のG列にそう表示するようにしましょう。
１行目のG列に
=IF(AND(NOT(ISERROR(G5)),ISERROR(G6)),"おっけー","だめ")
と入力すれば良いですね。

　はい。もう一度念を押しておきますが、こんなことしても何の意味も無いのですよ。過去に当選した番号が当たりにくいということは全くないのですから。
　大変な手間ですが、鰯の頭も信心からと申します。がんばって下さいな。

参考URL：http://oshiete1.goo.ne.jp/kotaeru.php3?q=53334

この回答への補足

以前ロト６の確率の説明をしてくれた方ですね。有難うございました。闇雲に数字を選らばなくなりました。なんせ一回分の金額が大きいものですから。あの後、毎週同じ金額分、同じ数字を買い続けています。お陰さまで結構いい金額の当たりが出たのですよ。これからも買い続けていきます。

≫　過去にどんな組み合わせが当選したかということは、次の組み合わせとは何の関係もありません。

いえいえ、避ける数字配列を決めるだけでなく、これから買おうとした（選んだ）数字が過去の一等にあったのだと判るのも嬉しいじゃないですか。

ただ、今回の説明難しすぎます。と言うか私の頭では理解できません。ただ過去の数字配列を入力しておき、新しい配列を記入するだけで勝手にコンピュータが作動してくれるものかと思っていましたので。

エクセル自体使った事もなく、使い方もまだ理解していません。すみません。

補足日時：2001/08/28 01:04

No.7 回答者： nishi6 回答日時： 2001/09/03 02:29

＞お答えして頂いた書き込みの

＞Public Function
＞　　～
＞End Function
＞までをコピー＆ペーストしていいのでしょうか？

その通りです。
Public Function　～　End Function　がユーザー定義関数になります。VBA側の仕掛けはこれだけです。

説明が足らず、すいませんでした。うまく機能するといいですが。

No.6 回答者： nishi6 回答日時： 2001/09/02 17:20

チョッと仕掛けを作っておけばＰＣが教えてくれます。

こんな表を作ってみました。

　　｜　Ａ　｜　Ｂ　｜　Ｃ　｜　Ｄ　｜　Ｅ　｜　Ｆ　｜
　―┼―――┼―――┼―――┼―――┼―――┼―――┼
　１｜　１０｜　１１｜　２９｜　３０｜　３２｜　４３｜　1行目は予想値入力場所
　２｜　あり｜　あり｜　　　｜　あり｜　　　｜　あり｜　2行目は有り無しを表示
　３｜　　　｜　　　｜　　　｜　　　｜　　　｜　　　｜
　４｜　　１｜　　５｜　１０｜　１５｜　１６｜　４３｜　ここから下は過去データ
　５｜　１１｜　１５｜　２０｜　２５｜　２６｜　４２｜　どんな順番でも可
　６｜　２１｜　２５｜　３０｜　３５｜　３６｜　４１｜
　７｜　　２｜　　６｜　１０｜　１６｜　２６｜　４０｜
　８｜　　３｜　　７｜　１１｜　１５｜　１６｜　３９｜
　９｜　３４｜　３８｜　１２｜　　５｜　　６｜　　８｜

(1)A4～F9に過去のデータを入れます。
(2)A1～F1には予想する好きな数字を入力します。

(3)ユーザー定義関数を作ります。（これが仕掛けになります）
　メニューでツール→マクロ→Visual Basic Editor でVBE画面に移り、
　VBE画面のメニューで挿入→標準モジュール　で標準モジュールを挿入し、
　開いたコードウインドウに下の関数をコピーして貼り付けます。
　　（手順を追っていけば可能と思います）

Public Function 過去データ照合(myData As Integer) As String
　　Dim rg As Range '過去データの値
　　過去データ照合 = ""
　　For Each rg In Range("A4:F9")
　　　　If rg = myData Then
　　　　　　過去データ照合 = "あり": Exit Function
　　　　End If
　　Next
End Function

(4)シートに戻り、A2～F2にはユーザー定義関数を使った式を設定します。
　　A2に　=過去データ照合(A1)　と入力し、F2までコピーします。
　　これで入力値が過去データにあれば『あり』と表示されます。
　　『あり』と表示された時、条件付書式でセルの色を変えたりするとよりはっきりします。

ご参考に。

この回答への補足

≫　メニューでツール→マクロ→Visual Basic Editor でVBE画面に移り、VBE画面のメニューで挿入→標準モジュール　で標準モジュールを挿入し開いたコードウインドウに下の関数をコピーして貼り付けます。

お答えして頂いた書き込みの
Public Function
　　～
End Function
までをコピー＆ペーストしていいのでしょうか？

補足日時：2001/09/02 23:54

No.5 回答者： stomachman 回答日時： 2001/08/28 01:48

　Excelのようなspread-sheetシステムは自分でちょっとした道具を作るのにとても便利です。

そしてNo.3で書いたのは、「過去に出てしまった１等の数列を避ける」ことを自動的にやってくれるような道具の作り方。
　ですから、一度作っちゃえば、あとは過去の当選データを追加していくだけです。

No.3の訂正：
> １行目の横６つのセルでは、１行目の何列目を持ってくれば良いかを計算します。
は
> ４行目の横６つのセルでは、１行目の何列目を持ってくれば良いかを計算します。
の誤りでした。

　でも使ったことがないとなると、アノ説明じゃ難しいかも。もし「使ったことはないけど持っている」という事なら、ともかく試しに入力してみて下さいな。

この回答への補足

すぐ回答いただきまして有難うございます。
来週あたりPCに精通している先輩に会いますので、このページを見せて教えてもらおうと思っています。

また、常時接続でないPHS接続をこのまま続けたら、来月はいったい幾らになるか？という質問もしてみたいと思っています。（Just kidding you)
なんせ３週間で１１４時間（１時間約５１４円）ですからねえ。

補足日時：2001/08/28 02:27

No.4 回答者： comv 回答日時： 2001/08/27 01:21

こんばんは！

ロト６の数値列を知らないので不確かですが
先頭の数値に０（ゼロ）も来るようでしたら
入力は予め文字型（書式設定　文字列）に
しておいた方が確かでしょう！（過去データも含め）

その上で例えばＡ１に６桁の数字があるとして
Ｂ１に
=IF(ISERROR(MATCH(A1,過去１等の範囲,0)),"","●")
過去１等の一覧表に同値の記載があれば●が表示される式です。

＜余談＞
６桁の内、５桁まで同順同値であるものもチェックするには
例えば
Ｃ１に　=IF(COUNTIF(過去１等の範囲,REPLACE($A1,1,1,"?")),"■","")
Ｄ１に　=IF(COUNTIF(過去１等の範囲,REPLACE($A1,2,1,"?")),"■","")
Ｅ１に　=IF(COUNTIF(過去１等の範囲,REPLACE($A1,3,1,"?")),"■","")
Ｆ１に　=IF(COUNTIF(過去１等の範囲,REPLACE($A1,4,1,"?")),"■","")
Ｇ１に　=IF(COUNTIF(過去１等の範囲,REPLACE($A1,5,1,"?")),"■","")
Ｈ１に　=IF(COUNTIF(過去１等の範囲,REPLACE($A1,6,1,"?")),"■","")

としておけば、何れかの５桁が順番も含め揃っている場合
何れかにマークが表示されます。

この回答への補足

せっかく答えていただいたのですが、私の頭では、、、。

ロト６の数字配列は、０１～４３までの数字を６個選んだものです。

補足日時：2001/08/28 01:10

No.2 回答者： taropoo 回答日時： 2001/08/27 00:40

基本的な事かもしれませんが

ロトって過去に出た当選数列はそれ以降当選にしない事になってるんですか？

この回答への補足

いいえ、そうではなく、６個の数字が全く同じものが、再度選ばれる事はないだろうという私の勝手な思い込みです。

でも、やっぱり全く同じものが６個も揃わないと思うのですが、、、。

補足日時：2001/08/28 00:42

No.1 回答者： bin-chan 回答日時： 2001/08/26 22:45

まず、過去の当選結果を一覧にしなければなりませんね。

つぎに任意の方法で作成した６個の値の要素が過去の当選と比較し、
該当があれば「再抽出」を繰り返す、でしょうね。

比較のポイントは１～９までの１桁の値を「０１」から「０９」とすること。
抽出した６個の要素を昇順（または降順）に整列させること。
１２桁の文字列で比較することを回数分のループにすることでしょうね。

でも、３１までの数値が該当の回の当選者が多いところを見ると
何らかの「年月日」で申し込みしている人が多いのかな、という気がします。