痔になりやすい生活習慣とは?

いつもお世話になります。

タイトルにも書いてある通りエクセルでロト6の出目を全通り表示できますか?

もし表示できるのでしたら入力方法を教えてください。パソコンはビスタでエクセル2007が入っています。

よろしくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (3件)

ロト6とは1から43の番号を6個指定するので組み合わせは次の数になります。


43×43×43×43×43×43=6,321,363,049
約63億です。
Excel2007なので1シートで設定できますが、ファイルサイズが膨大になります。現実にはできないでしょう。
    • good
    • 1

くだんのマクロでは1個の出目が1行に対応しているようですが、


₄₃C₆=6096454行の出力にExcelが耐えられるかどうかはよくわかりません。
    • good
    • 0
この回答へのお礼

お答えありがとうございます。

お礼日時:2012/02/22 07:32

こちらのマクロを使って、



事例では、1~6 の数字から 3個を抜き出していますが、 これを

1~43 の数字から 6個 を抜き出す設定にして、実行してみてください。

http://www.ichikura.com/excel/percombhlp.htm

参考URL:http://www.ichikura.com/excel/percombhlp.htm
    • good
    • 0
この回答へのお礼

さっそく試してみます。お答えありがとうございました。

お礼日時:2012/02/22 07:31

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qロト6の組み合わせをExcelを使って表にランダムの数字で抽出する方法

ロト6の組み合わせをExcelを使って表にランダムの数字で抽出する方法

ロト6の組み合わせ・・・・
1~43までの数字から6つの数字を選ぶ。

それを100通り作りたいんですが、関数や数式など、方法を教えてください。
100通りの組み合わせはすべて異なる組み合わせにしたいです。

よろしくお願いします。

Aベストアンサー

関数「rand」と「int」などが使えます。
数字が43種類なので、rand()の値を1/43で割った整数部分を取って、ランダムな数字として生成できます。これだと6つの数字が互いに重複することがあるので「countif」などを使って重複した組み合わせを除外してください。結果を並び替えしてみると分かりますが、6つの数字の組み合わせが重複することは稀です(一等?の当選確率とほぼ同じ確率です)。私が生成したランダムな組み合わせも貼っておきます。

4242918218
1343321243
2015223630
27232812019
42242721931
194278165
373339231617
432924233730
38532273335
242132382729
4027213293
93815281043
391835283026
1081193331
8285411819
33422431424
2241252418
10181620739
33247423032
283826122942
272834182243
9431711223
35872717
3522310530
303923311713
3627374039
113726962
26331254311
1538202626
2520141514
5181341431
262443223932
19104253230
37152312218
16520341227
381519252035
16191322140
11438122839
43642162737
172736413742
17133991215
4112205103
40825124223
2267372240
24433313421
101539301419
20169322215
20334235194
1211221345
84334211239
6439291942
153332372919
431626649
232724134143
10197412534
6413619101
30111122034
39432921128
25289301020
10332343022
611041211
34373221138
331927354339
6207392326
42311832639
20292511141
16419244133
32211336253
1841712268
4225125147
1523117930
273242283021
2473113404
27113373336
1169422537
409818165
43183940346
382651340
365383014
2117377426
26152420417
263229371011
41219432616
13102024251
38291930153
8166433021
62625103028
41536173443
530358231
3419920116
5625263730
25930223634
2836472635
34422132627
2331062714
73121202941
316132620
5153111934
73422422918

関数「rand」と「int」などが使えます。
数字が43種類なので、rand()の値を1/43で割った整数部分を取って、ランダムな数字として生成できます。これだと6つの数字が互いに重複することがあるので「countif」などを使って重複した組み合わせを除外してください。結果を並び替えしてみると分かりますが、6つの数字の組み合わせが重複することは稀です(一等?の当選確率とほぼ同じ確率です)。私が生成したランダムな組み合わせも貼っておきます。

4242918218
1343321243
2015223630
27232812019
42242721931
19427...続きを読む

QExcelでの全通りの組み合わせ出力方法(文字列)

Excelについて全くの初心者で、教えて頂きたい質問があります。

Excelの文字列の全通りの組み合わせを出力がしたいのですが、その方法が分かりません。
例えばセルAに
・りんご
・みかん
・いちご

セルBに
・だいこん
・キャベツ
・トマト

があり、別のセルにその全通りの組み合わせを出力
(文字と文字の間はスペース)

りんご だいこん
りんご キャベツ
りんご トマト
みかん だいこん
みかん キャベツ
みかん トマト
いちご だいこん
いちご キャベツ
いちご トマト

この様に出来る方法はあるでしょうか?
また出来ればその裏(だいこん りんご)も出力したいと考えており、キーワードは3つまで出来るようになりたいです。

どなたかご存じでしたら、ぜひお教え下さい。
よろしくお願いします。

Aベストアンサー

A列B列は1行目からデータがあるものとします。
C列に転記するものとします。

以下の手順をおためしください。

1.Altキー+F11キーでVisualBasicEditorを呼び出します。

2.メニューから挿入、標準モジュールで出てきたコードウィンド(右側の白い広い部分)に以下のコードをコピペします。

Sub test01()
a = Cells(Rows.Count, "A").End(xlUp).Row 'A列最終行取得
b = Cells(Rows.Count, "B").End(xlUp).Row 'B列最終行取得
For i = 1 To a '1行からA列最終行まで繰り返し
For n = 1 To b '1行からB列最終行まで繰り返し
x = x + 1
Cells(x, "C") = Cells(i, "A") & " " & Cells(n, "B") 'C列に結合して転記
Next n
Next i
End Sub

3.Alt+F11キーでワークシートへもどります.

4.メニューから、ツール、マクロ、マクロで出てきたマクロ名(test01)を選択して実行

これでできます。
これがわかれば「裏」というのも簡単ですよね。
以上はVBAでの回答ですが、外していたらごめんなさい。

A列B列は1行目からデータがあるものとします。
C列に転記するものとします。

以下の手順をおためしください。

1.Altキー+F11キーでVisualBasicEditorを呼び出します。

2.メニューから挿入、標準モジュールで出てきたコードウィンド(右側の白い広い部分)に以下のコードをコピペします。

Sub test01()
a = Cells(Rows.Count, "A").End(xlUp).Row 'A列最終行取得
b = Cells(Rows.Count, "B").End(xlUp).Row 'B列最終行取得
For i = 1 To a '1行からA列最終行まで繰り返し
For n = 1 To b '1行...続きを読む

Qロト6で9個の数字を全通り購入するには84通りになりますが、それをダブ

ロト6で9個の数字を全通り購入するには84通りになりますが、それをダブらないようにする為に9つの数字を入力するだけで、84通りの6つの数字を選択できるようにエクセルにて作成する事は出来るのでしょうか?
当方はエクセルに関しましては、語句等の理解に対しましては初心者であります。

ご教示頂ければ幸いです。
よろしくお願い致します。

Aベストアンサー

数学で順列、組合せ、というのをやったかと思います。
「excel 順列 組み合わせ」で検索してみてください。

ちなみに、ロト6は1から43のうち6つを選ぶ組み合わせなので、
43C6=6096454通りです。
84通りx 200円=16800円で数億当ったら胴元が大赤字です。

QExcelでロト6の数字を決めたい

Excel関数を使って、「1~43の数字から重複しない6個の数字を算出する」方法ってありますか?マクロはよくわからないので関数で出したいです。いろいろ調べて、「RAND」とか「RANDBETWEEN」を使うといいとわかったのですが、「重複しない」ようにすることができません。お分かりになる方いらしたら、ぜひ教えて下さい。ずっと考えていたら頭が痛くなってきました・・・。

Aベストアンサー

A1に=randbetween(1,43)
B1に=randbetween(1,43)
...
F1に=randbetween(1,43)

A2に=countif($A$1:$F$1,"="&a1)
B2に=countif($A$1:$F$1,"="&b1)
...
F2に=countif($A$1:$F$1,"="&f1)

G2に=if(sum(A2:F2)=6,"OK",)

と入力してください。つまり、A1からF1に同じ数字がなければ
G2にOKと表示されます。

あとは、適当な回数だけファンクションキーF9を押してください。
シートが再計算され、乱数が更新されます。
OKと表示されたときの数字を使ってください。

QExcelでデータ全通り組み合わせ出力方法

Excelでデータ全通り組み合わせ出力方法について教えて頂けますと助かります。

セルA~Eに、数がまちまちのアイテム名が入っています。
(セルA~Eというのは例で、変則的に全てのアイテム数は増減します。)

全ての組合せをセルG~Kに各々書き出してくれる方法はあるでしょうか?
(イメージ添付あり)

できればセルに入力すれば自動的に組合せが追加されていくのが理想です。
Excel2010を使用しており、VBAは初心者です。


どなたかご存じでしたら、ぜひお教え下さい。
よろしくお願いします。

Aベストアンサー

#1、2、cjです。#1、2、補足欄へのレスです。

取り急ぎ、コードのみ修正しました。
#2を元に書き換えています。

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rSrc As Range
  Application.EnableEvents = False
  Set rSrc = Range("B2").CurrentRegion
  Application.EnableEvents = True
  If Intersect(Target, rSrc) Is Nothing Then Exit Sub
  Application.EnableEvents = False
  Call PrintCombi(rSrc)
  Application.EnableEvents = True
End Sub

Sub PrintCombi(ByVal rSrc As Range)
  Dim tnFld As Long
  Dim nRc As Long
  Dim nConti As Long
  Dim nRow As Long
  Dim i As Long
  Dim j As Long

  tnFld = rSrc.Columns.Count
  nConti = 1
  With rSrc(1, rSrc.Columns.Count + 3)
    .CurrentRegion.Clear
    Cells(1).Resize(, tnFld).Copy .Cells(1)
    For i = tnFld To 1 Step -1
      nRc = Cells(Rows.Count, i).End(xlUp).Row
      nRow = 2
      For j = 2 To nRc
        Cells(j, i).Copy Destination:=.Cells(nRow, i).Resize(nConti)
        nRow = nRow + nConti
      Next j
      nConti = nConti * (nRc - 1)
    Next i
    With .Cells(2, 1).Resize(nConti)
      For i = 2 To tnFld
        Range(.Cells(1, i), .Cells(.Cells.Count + 1, i).End(xlUp)).Copy Destination:=.Columns(i)
      Next i
    End With
  End With
End Sub

#1、2、cjです。#1、2、補足欄へのレスです。

取り急ぎ、コードのみ修正しました。
#2を元に書き換えています。

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rSrc As Range
  Application.EnableEvents = False
  Set rSrc = Range("B2").CurrentRegion
  Application.EnableEvents = True
  If Intersect(Target, rSrc) Is Nothing Then Exit Sub
  Application.EnableEvents = False
  Call PrintCombi(rSrc)
  Application.EnableEvents = True
...続きを読む

QExcelですべての組合せ(重複組合せ)を出力するには?

Excelですべての組合せ(重複組合せ)を出力するには?

次の条件のような場合、Excelですべての組合せ(重複組合せ)をVBAで出力するにはどうしたらいいのでしょうか?

10種類のお菓子の中から、好きなものを3個選んでセットにするとします。
同じものを複数選ぶのはありですが「菓子A、菓子B、菓子C」と「菓子B、菓子C、菓子A」は選んだ順が違うだけで同じ組合せなので、どちらか片方だけにします。

この場合、すべての組合せの数は Excelの関数で求めることができるようで COMBIN(10+3-1,3) = 220 通りあることまではわかりましたが、このすべての組合せの一覧をどのようにして出力したらいいのかがわかりません。

いろいろ検索した結果、順列という方法は見つかりましたが、重複組合せでの方法は見つけることができませんでした。
また、Accessを使っても似たようなことができるのでしょうか? 直積?

できれば、3個固定ではなく5個の場合も出来るとうれしいです。
よろしくお願いします。

Aベストアンサー

>同じものを複数選ぶのはありですが「菓子A、菓子B、菓子C」と「菓子B、菓子C、菓
つまり「菓子A、菓子A、菓子A」も「菓子A、菓子A、菓子B」もあり ですね。
№2さんのコードをお借りして
Sub Test()
  Dim myStr As Variant
  Dim rowX As Long
  Dim i As Long, j As Long, k As Long
  Const MaxNum = 10

  myStr = Split("A B C D E F G H I J")
  rowX = 1
  For i = 0 To MaxNum - 1
    For j = i To MaxNum - 1
      For k = j To MaxNum - 1
        Cells(rowX, 1).Value = myStr(i)
        Cells(rowX, 2).Value = myStr(j)
        Cells(rowX, 3).Value = myStr(k)
        rowX = rowX + 1
      Next k
    Next j
  Next i
End Sub

>同じものを複数選ぶのはありですが「菓子A、菓子B、菓子C」と「菓子B、菓子C、菓
つまり「菓子A、菓子A、菓子A」も「菓子A、菓子A、菓子B」もあり ですね。
№2さんのコードをお借りして
Sub Test()
  Dim myStr As Variant
  Dim rowX As Long
  Dim i As Long, j As Long, k As Long
  Const MaxNum = 10

  myStr = Split("A B C D E F G H I J")
  rowX = 1
  For i = 0 To MaxNum - 1
    For j = i To MaxNum - 1
      For k = j To MaxNum - 1
       ...続きを読む

QエクセルでnCr (組み合わせ)の作成方法

どなたかご存じでしたら回答願います。
ミニロトとロト6をエクセルを使用して予想に利用しております。
その中で知りたいのは、下記の場合のエクセルVBAのソースです。

●知りたいこと。

(1)ミニロトの場合は、31個から5個全てが一致すると一等ですが、
 「25個から5個選択した場合の組み合わせ(25C5)」作成方法

(2)ロト6の場合は、43個から6個全てが一致すると一等ですが、
 「24個から6個選択した場合の組み合わせ(24C6)」作成方法。

●入力

(1)ミニロトの場合は、下記のように5×5マスに重複しない数字が入っています。
  数字は毎回変わります。
  1   2 5 6 7
10 4 11 13 15
8 9 17 21 28
14 16 18 20 25
19 22 23 24 27

(2)ロト6の場合は、下記のように6×4マスに重複しない数字が入っています。
  数字は毎回変わります。

  1   2 5 6 7 19
10 4 11 13 5 22
8 9 17 21 28 23
14 16 18 20 25 24

●出力

  VBAを実行すると、新シートにそれぞれ、25C5又は、24C6の全組み合わせが出力される。

【注意事項】
   ・使用しているエクセルは2010です。

以上、ご回答よろしくお願いします。

どなたかご存じでしたら回答願います。
ミニロトとロト6をエクセルを使用して予想に利用しております。
その中で知りたいのは、下記の場合のエクセルVBAのソースです。

●知りたいこと。

(1)ミニロトの場合は、31個から5個全てが一致すると一等ですが、
 「25個から5個選択した場合の組み合わせ(25C5)」作成方法

(2)ロト6の場合は、43個から6個全てが一致すると一等ですが、
 「24個から6個選択した場合の組み合わせ(24C6)」作成方法。

●入力

(1)ミニロトの場合は、下記のように5×5マス...続きを読む

Aベストアンサー

過去のQ&A(参考URL)を参照なさってはいかがでしょう?

参考URL:http://oshiete.goo.ne.jp/qa/5571459.html

Qロト6、二等当選しました

銀行ATMで毎週月曜日にロト&ナンバーズ一週間分を買い続けて8年目。
これまでの最高当選額は10万円ちょいが数回です。抽選日翌日から銀行営業日の2日目には口座に入金されているというシステムです。

しかし、今回まさかのロト6が二等当選です。何度も何度も見返しましたが間違いありません。
当たるとどうなるものか楽しみでしたが、意外と冷静です。
億に満たない額ですが数千万の当選も月曜日には入金されているものでしょうか?

Aベストアンサー

 人から聞いた話ですが、先に郵便で連絡が来るのだそうです。

 銀行に行くと銀行員から説明を聞かされて、宝くじの副読本を貰えるはずです。その後で、口座への入金などの話があるはずです。これは2等当選ではなくても、300万円以上の当選金であれば、同じ対応をされます。

Qロト6で、セット球別の出目表が見れるホームページ

ロト6の過去の当選数字で、セット球別に出目表が見れるホームページを教えてください。

過去10回の出目なら以下のサイトがあるのですが、
第1回から最新回までの出目表をセット球別に見たいのです。
http://lototool2.g-fan.jp/sq10.html

よろしくお願いします。

Aベストアンサー

セット球と当選とは何の関係もありません。
調べるだけ無駄ですよ。

セット球について論じてる人たちが、実際に当てて億万長者になっていますか?
当てられないから、いかにもそういう方法が有効のように言ったりしているだけなんです。

セット球についての本を出版してる人たちが、実際に当てて億万長者になっていますか?
当てられないから、本を出して印税で儲けるしかないのです。

QLoto6の当選番号に連続番号が発生する確率は?

先日、テレビで3000回以上、5等以上(当選番号6個中3個以上を当てた)を当てている人が紹介されました。
その秘密の1つが、「連続番号を含む、数字列を選ぶ」です。
過去の当選番号を調べたら、「連続番号あり:連続番号なし」は、「1:1」のイーブンの様です。
43個の数字から2個連続する組合せは、1と2、2と3、・・・42と43まで42個あります。
同様に、3個連続は、41個。4個連続は40個、5個連続は39個、6個連続は38個。・・・こんなに少ない組合せ数です。

ここまでは計算できますが、組合せ計算は大の苦手です。
一クラスに同じ誕生日の人がいる確率が高いことは、実体験として分かりますが、その計算はサッパリであったことを思い出します。

私の直感では、連続番号を含む組み合わせの方が少ないと感じます。
しかし、実績はイーブン。Loto6に応募する方は、押しなべて連続番号を選びます。何か可笑しな気分です。

「43個の数字を6個選んだ時、連続番号が含まれる組合せ数」を教えてください。分かりやすく教えていただけたら、幸いです。

Aベストアンサー

そんな人がいるんですね!

その番組は見ていなかったのですが、疑問点があります。
(1)一回につき、何口買っているのか?
1000円買う人と10000円買う人とでは、単純に10倍当たりやすいですよね。
(2)当たった回は、すべて連続番号が絡んでいたのか?

ロト6は現在110回ですよね。3000回当たったといっても、毎回30口近く当たっているわけです。連番購入と当選が100%リンクしているなら、連番がでる当選確率は約半分なのですから、当選回は約60口!?当たっていることになる。尋常じゃないですね。要するに、連番どころじゃなく、むちゃくちゃ買っている人なんじゃないでしょうか?回数よりも、当選確率のほうが興味あります。

ここから確率のおはなし。
計算がややこしくなるので、両端は考えません。
確率の問題は、#1の方の(39C4)でいいと思います。
(39C4)=82,251通り
しかし、連番の頭を選ぶ確率が2~41=40通りあるわけですから、40x82251=3,290,040通り
通常のLOTO6の確率が(43C6)=6,096,454通りですから、たいした効果はないようです。

この人が本物なら、連番の効果よりも、当選数字を必ず的中させる能力(それともコツ?)のほうが重要かと思います。個人的には、このコツを知りたいです!

計算間違っていたら、ごめんなさい。

そんな人がいるんですね!

その番組は見ていなかったのですが、疑問点があります。
(1)一回につき、何口買っているのか?
1000円買う人と10000円買う人とでは、単純に10倍当たりやすいですよね。
(2)当たった回は、すべて連続番号が絡んでいたのか?

ロト6は現在110回ですよね。3000回当たったといっても、毎回30口近く当たっているわけです。連番購入と当選が100%リンクしているなら、連番がでる当選確率は約半分なのですから、当選回は約60口!?当たっていることになる。尋常じゃないですね。要...続きを読む


人気Q&Aランキング