No.1
- 回答日時:
まず、過去の当選結果を一覧にしなければなりませんね。
つぎに任意の方法で作成した6個の値の要素が過去の当選と比較し、
該当があれば「再抽出」を繰り返す、でしょうね。
比較のポイントは1~9までの1桁の値を「01」から「09」とすること。
抽出した6個の要素を昇順(または降順)に整列させること。
12桁の文字列で比較することを回数分のループにすることでしょうね。
でも、31までの数値が該当の回の当選者が多いところを見ると
何らかの「年月日」で申し込みしている人が多いのかな、という気がします。
No.3ベストアンサー
- 回答日時:
過去にどんな組み合わせが当選したかということは、次の組み合わせとは何の関係もありません。
だから仰るようなsheetを作ったところで無意味です。それはさておき、どうやって作るかでしたよね。
[1]まず過去に当選した組み合わせを全部入力した表をつくらなくちゃいけません。
worksheetの上から11行目から下にこの表を作りましょう。
横に6つの数を、左から大きい順に並べることにしましょう。例えば過去の当選組み合わせを三つ入れたら
こんな感じになる:(|はセルの境界線です。)
A B C D E F
41| 30| 26| 11| 5| 2|
39| 31| 30| 22| 20| 8|
42| 35| 33| 31| 28| 12|
さらに、桁数を揃えるために全ての数に900(3桁以上なら何でも良いんですが)を加えて文字列に変換したものを第H~M列に作ります。
そして第G列には、これらをくっつけた文字列を作りましょう。つまり11行目に
G H … M
|=CONCATENATE(H11,I11,J11,K11,L11,M11)|=FIXED(A11+900,0)|…|=FIXED(F11+900,0)|
を入れて、12行目以下全部、これと同様にします。(やり方は知ってますよね。11行目のG~Mまでを選択しておいて、11行目M列のcellの右下端に出る小さい四角を下へドラッグすれば良いのです。)
これで、過去の当選番号のデータベースのできあがりです。
[2]数字の組み合わせを適当に選ぶ部分を作りましょう。
一番上の行の横6つのセルには、Excelが適当に数字を作ってくれる式を入れましょう。A列に式をいれて、A~F列は全部同じにします。
A … F
=int(rand()*43+1)|…|=int(rand()*43+1)|
とりあえずこれで良いでしょう。同じ数が2つ以上出てしまうこともありますが、それはあとで処理することにします。これで6つの数字(1から43のどれか)が並びます。
(勿論、これらのセルに、自分がこれと思う数字を書き込むようにしても良いのです。)
[3]数の組み合わせをチェックする部分を作りましょう。
2行目の横6つのセルには、「その列の、1行目の数字が、6つの数字のうち何番目に大きいか」を表す数値を表示させてみましょう。
=RANK(A$1,$A$1:$F$1)| =RANK(B$1,$A$1:$F$1) |…|=RANK(F$1,$A$1:$F$1)|
5行目の横6つのセルに、1行目の数字を大きい順に並べ替えたものを出しましょう。このために、ちょっと準備がいります。
3行目の横6つのセルには、左から順に1から6まで数字を入れます。
A B C D E F
1| 2| 3| 4| 5| 6|
1行目の横6つのセルでは、1行目の何列目を持ってくれば良いかを計算します。
=MATCH(A3,$A$2:$F$2,0)|=MATCH(B3,$A$2:$F$2,0) |…|=MATCH(F3,$A$2:$F$2,0)|
で、5行目の横6つのセルに、1行目の数字を大きい順に並べ替えたものを出します。
=INDEX($A$1:$F$1,A4)|=INDEX($A$1:$F$1,B4)|…|=INDEX($A$1:$F$1,F4)|
さらに5行目に、
G H … M
|=CONCATENATE(H5,I5,J5,K5,L5,M5)|=FIXED(A5+900,0)|…|=FIXED(F5+900,0)|
を入れてやれば、5行目のG列にはデータベースと同じ形式の文字列が出ますね。
もし1行目の6つの数字に重複があれば、5行目のG列は#N/Aになります。
6行目のG列に、この文字列と同じものがデータベースにあるかどうかを調べる式を入れてみましょう。
=MATCH(G5,G11:G1000,0)
もし同じものがあれば数値を、なければ#N/Aを表示するはずです。
これでひとまずできあがりです。どこか関係のないセルに0でも入力してReturnかEnterを押してみてください。すると一行目が再計算されて、別の数字の組み合わせが出てきます。
「5行目G列が#N/Aではなく、6行目G列が#N/Aである」という場合にはオッケーということです。つまり一行目の6個の数字には重複が無く、しかも、過去の当選番号のデータベースにも該当がない。
[4]ではオッケーの場合に、1行目のG列にそう表示するようにしましょう。
1行目のG列に
=IF(AND(NOT(ISERROR(G5)),ISERROR(G6)),"おっけー","だめ")
と入力すれば良いですね。
はい。もう一度念を押しておきますが、こんなことしても何の意味も無いのですよ。過去に当選した番号が当たりにくいということは全くないのですから。
大変な手間ですが、鰯の頭も信心からと申します。がんばって下さいな。
参考URL:http://oshiete1.goo.ne.jp/kotaeru.php3?q=53334
この回答への補足
以前ロト6の確率の説明をしてくれた方ですね。有難うございました。闇雲に数字を選らばなくなりました。なんせ一回分の金額が大きいものですから。あの後、毎週同じ金額分、同じ数字を買い続けています。お陰さまで結構いい金額の当たりが出たのですよ。これからも買い続けていきます。
≫ 過去にどんな組み合わせが当選したかということは、次の組み合わせとは何の関係もありません。
いえいえ、避ける数字配列を決めるだけでなく、これから買おうとした(選んだ)数字が過去の一等にあったのだと判るのも嬉しいじゃないですか。
ただ、今回の説明難しすぎます。と言うか私の頭では理解できません。ただ過去の数字配列を入力しておき、新しい配列を記入するだけで勝手にコンピュータが作動してくれるものかと思っていましたので。
エクセル自体使った事もなく、使い方もまだ理解していません。すみません。
No.4
- 回答日時:
こんばんは!
ロト6の数値列を知らないので不確かですが
先頭の数値に0(ゼロ)も来るようでしたら
入力は予め文字型(書式設定 文字列)に
しておいた方が確かでしょう!(過去データも含め)
その上で例えばA1に6桁の数字があるとして
B1に
=IF(ISERROR(MATCH(A1,過去1等の範囲,0)),"","●")
過去1等の一覧表に同値の記載があれば●が表示される式です。
<余談>
6桁の内、5桁まで同順同値であるものもチェックするには
例えば
C1に =IF(COUNTIF(過去1等の範囲,REPLACE($A1,1,1,"?")),"■","")
D1に =IF(COUNTIF(過去1等の範囲,REPLACE($A1,2,1,"?")),"■","")
E1に =IF(COUNTIF(過去1等の範囲,REPLACE($A1,3,1,"?")),"■","")
F1に =IF(COUNTIF(過去1等の範囲,REPLACE($A1,4,1,"?")),"■","")
G1に =IF(COUNTIF(過去1等の範囲,REPLACE($A1,5,1,"?")),"■","")
H1に =IF(COUNTIF(過去1等の範囲,REPLACE($A1,6,1,"?")),"■","")
としておけば、何れかの5桁が順番も含め揃っている場合
何れかにマークが表示されます。
No.5
- 回答日時:
Excelのようなspread-sheetシステムは自分でちょっとした道具を作るのにとても便利です。
そしてNo.3で書いたのは、「過去に出てしまった1等の数列を避ける」ことを自動的にやってくれるような道具の作り方。ですから、一度作っちゃえば、あとは過去の当選データを追加していくだけです。
No.3の訂正:
> 1行目の横6つのセルでは、1行目の何列目を持ってくれば良いかを計算します。
は
> 4行目の横6つのセルでは、1行目の何列目を持ってくれば良いかを計算します。
の誤りでした。
でも使ったことがないとなると、アノ説明じゃ難しいかも。もし「使ったことはないけど持っている」という事なら、ともかく試しに入力してみて下さいな。
この回答への補足
すぐ回答いただきまして有難うございます。
来週あたりPCに精通している先輩に会いますので、このページを見せて教えてもらおうと思っています。
また、常時接続でないPHS接続をこのまま続けたら、来月はいったい幾らになるか?という質問もしてみたいと思っています。(Just kidding you)
なんせ3週間で114時間(1時間約514円)ですからねえ。
No.6
- 回答日時:
チョッと仕掛けを作っておけばPCが教えてくれます。
こんな表を作ってみました。| A | B | C | D | E | F |
―┼―――┼―――┼―――┼―――┼―――┼―――┼
1| 10| 11| 29| 30| 32| 43| 1行目は予想値入力場所
2| あり| あり| | あり| | あり| 2行目は有り無しを表示
3| | | | | | |
4| 1| 5| 10| 15| 16| 43| ここから下は過去データ
5| 11| 15| 20| 25| 26| 42| どんな順番でも可
6| 21| 25| 30| 35| 36| 41|
7| 2| 6| 10| 16| 26| 40|
8| 3| 7| 11| 15| 16| 39|
9| 34| 38| 12| 5| 6| 8|
(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
までをコピー&ペーストしていいのでしょうか?
No.7
- 回答日時:
>お答えして頂いた書き込みの
>Public Function
> ~
>End Function
>までをコピー&ペーストしていいのでしょうか?
その通りです。
Public Function ~ End Function がユーザー定義関数になります。VBA側の仕掛けはこれだけです。
説明が足らず、すいませんでした。うまく機能するといいですが。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelの文字列を数字に変換する方法について 6 2023/07/31 21:18
- Excel(エクセル) エクセル データの入力規制について 3 2022/03/30 17:16
- Excel(エクセル) エクセル関数の変わった使い方 3 2022/05/13 17:12
- Excel(エクセル) エクセルの複写について 4 2022/04/10 01:02
- Excel(エクセル) Excel2019、2021の日付、曜日の表示について 2 2022/11/29 15:01
- Excel(エクセル) セルの上書き禁止について 5 2022/04/02 10:09
- Visual Basic(VBA) A列にある値をB列・C列にVBAで切り出し 3 2022/04/09 19:20
- Excel(エクセル) エクセルの使い方について。 A〜F列に10個ずつデータが入力されています。左隣のセルよりも数値が2倍 3 2022/09/28 18:03
- Excel(エクセル) Excelにの以下の設定方法について教えてください! C列にデータ入力の設定をしています。(出、入を 3 2022/06/22 01:33
- Excel(エクセル) マクロ作成初心者です。CSVファイルの日付データについて 3 2022/12/14 06:02
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
わかりませんでした。
-
今更で申し訳ないのですが、疑...
-
√2の値の計算方法を教えてくだ...
-
やば
-
2乗を平方。3乗を立方。それじ...
-
数Ⅰの問題について教えてくださ...
-
(中3数学)次の式を展開しなさ...
-
高校数学についてです。 三角関...
-
ベクトル解析についての質問で...
-
自然数 整数 有理数 実数 加法 ...
-
普通ですか?
-
次元定理以外で
-
座標空間について、点Pの座標を...
-
ならなくない??
-
分数の計算問題の解き方について
-
数学II 次の不等式が表す領域を...
-
公務員試験の資料解釈に関する...
-
ベクトル解析について質問です...
-
不完全定理により、「ある命題...
-
f(z)=tan(z)のマクローリン展開...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
整数問題 兎に角 難問です 千葉...
-
過去質『すべての自然数とすべ...
-
確率の問題 数学と実生活と
-
微分がムズいです。 新高二です...
-
逆関数の合成関数について質問...
-
初歩的な計算式の問題です。
-
下の画像の中の三角形は正方形...
-
全然わからないので質問する資...
-
a(n)=1/(n+1)! lim[z->π/2](d/d...
-
画像において、質問がございま...
-
虚数の計算を教えてください
-
三角関数の変換で納得いかない...
-
計算手順について
-
過去に 「ii) f(z)=1/(z^2-1) r...
-
数学を勉強すると論理的思考力...
-
【数学・標準偏差σ】標準偏差の...
-
計算式の答えまでの過程を教え...
-
おしえてgooに図形の問題を投稿...
-
こちらの式はtan(z)のローラン...
-
ほんとになんでうごくかわからない
おすすめ情報