忙しい現代人の腰&肩のお悩み対策!

どなたかご存じでしたら回答をお願いします。
数字選択式宝くじのナンバーズ4の組み合わせは、
0000~9999までの10000通りあります。
この中で、全ての数字が異なる組み合わせは
5040通り(10×9×8×7)あると思います。
これを、「重複しないシングル組み合わせ」は
210通り(5040÷(4×3×2×1))になるかと思います。
この210通りの全ての組み合わせをエクセルで作りたいのですが、
作り方が分かりません。
同様に、ナンバーズ3については、000~999までの1000通りの
組み合わせの中から、全ての数字が異なる組み合わせは
720通り(10×9×8)あると思います。
これを、「重複しないシングル組み合わせ」は
120通り(720÷(3×2×1))の全て組み合わせをエクセルで作りたいのですが、
作り方が分かりません。

120 通りと240通りなのでエクセル又はエクセルVBAでの作り方を教えてください。

よろしくお願いします。

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

A 回答 (2件)

エクセルVBA


ナンバーズ3の場合です。

n = 0
For i = 0 To 9
 For j = i + 1 To 9
  For k = j + 1 To 9
   n = n + 1
   Cells(n, 1) = i
   Cells(n, 2) = j
   Cells(n, 3) = k
  Next
 Next
Next
    • good
    • 0
この回答へのお礼

ありがとうございます。
早速試してみます。

お礼日時:2011/01/04 20:09

「重複しないシングル組み合わせ」って具体的にどういうもの?

この回答への補足

説明不足で申し訳ありません。
具体的に言いますと、
「0123」という1つの番号があった場合、
この数字を並び変えることにより
下記の24個のシングルの番号ができあがります。
これらは「0123」の派生ですので、
結局「0123」が「重複しないシングル組み合わせ210通りの1つ」であり、
あと、209個の数字の組み合わせが知りたいところです。


0123、0132、0213、0231、0312、0321、1023、1032
1203、1230、1302、1320、2013、2031、2103、2130
2301、2310、3012、3021、3102、3120、3201、3210

数学的に言えば、

◎相異なるn個のもののr組合せの総数 :nCr=n!/r!(n-r)!

で、n=10,r=4にして計算すれば210という答えが出ると思いますが、
知りたいのは、210通りという全組み合わせをエクセルに出力する方法(又は
出力した結果)が知りたい事です。

よろしくお願いします。

補足日時:2011/01/04 19:12
    • good
    • 0

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

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

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

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

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

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ナンバーズ4の当たる確率

ナンバーズ4の当たる確率の計算の仕方を教えて下さい。
なんか、公式があったはずですが忘れてしまいました。

Aベストアンサー

ストレートであれば、単純に10000分の1です。
ボックスになると、5通りの組み合わせに対してあたりの本数が異なります。
1. 4つとも異なる数字の場合(10000分の24・10P4通り)
2. 1ペア・2つの数字が同じ(10000分の12・10P3通り)
3. 2ペア・3つの数字の組が2つ(10000分の6・10P2通り)
4. 3カード・3つの数字が同じ(10000分の4・10P2通り)
5. 4つの数字が同じ(10000分の1・10P1通り)
(nPnは、組み合わせ。つまり10P2=10*9=90)
で、次の計算で確率が求められます。
(10P4*24+10P3*12+10P2*6+10P2*4+10P1*1)/(10000*(10P4+10P3+10P2+10P2+10P1))
これを、逆数にすることで、約455.9分の1となります。

Qナンバーズ4の全通り

わかるかた、ぜひ教えてください。
ナンバーズ4を全通りストレートで買おうとしたら、、、、
9×9×9×9=6561通りでいいのでしょうか?
全部の通りをストレートで買ったら、6561×200円=1312200円でいいのでしょうか?
全通り買えば、ストレート当選金額に並ぶくらいの金額がかかるのですが、100%当選すると考えていいのでしょうか?

よろしくお願いします。

Aベストアンサー

0~9の10個の数字が4桁ありますから、
10000とおりではないでしょうか。

すべての組み合わせを購入するには200万円かかり、
必ず当たります。
元手の半分くらい返ってくれば御の字でありましょう。

Qナンバーズ3のボックスはすべて購入したら何通りありますか?

ナンバーズ3のボックスはすべて購入したら何通りありますか?

Aベストアンサー

計算上は、全部で220通りになりますが、
111や222など同じ数字の物はナンバーズ3(4も同様)
のルールでボックスでは買えませんので、210通りになります。
すべて買いたいならストレートで同じ数字の10通り買えばOKです。

参考URL:http://www.ts4-net.com/n3box.html

Q「ナンバーズ」「ロト」における確率論について。

確率論について、教えて下さい。
確率論を語る上で、よく例に挙げられるのが、サイコロの出目で
すが、あくまでも確率の問題であり、サイコロを振って、次に出る
目を予知することはできませんよね?
そうだとするならば、「ナンバーズ」や「ミニロト」「ロト6」にお
いて、よく週刊誌などで、「次の狙い目は、この数字だ!」みた
いな記事を見掛けますが、これは意味があるのでしょうか?
「ナンバーズ」や「ロト」の専門の雑誌も、ありますよね。
オカルトなのか、若しくは、「統計学」なのか、どうなのでしょう?

仮に、「ナンバーズ」や「ロト」における「狙い目予想」を「統計学
」だとするならば、この場合の「統計学」に意味があるとは思え
ないのですが、如何でしょうか?

Aベストアンサー

非常に興味のある質問です。

私は、確立、統計が好きで、昔、競馬をやっている時にも応用していました。

当時のPCの中身は、ほとんど競馬のデータでした(笑)


最終的には、弟と一緒に考えた方法で負けることはなくなりましたが、
競馬は、生き物が走っているので、思い入れとかあるんですよね。

それで、確立だけでやっているのが面白くなくなって、今では馬券は買わずに
見るだけになってしまいました。


現在は、ロト6を確立で当てるべく色々と試していますが
今のところ3等(61万円少し)が最高ですね。

プログラマーの方に、予想プログラムを作ってもらったこともありましたが
あまりにも多くの要素を入れたため、予想に数時間かかるので使わなくなりました。
3等を当てたのは、そのプログラムです。(購入金額は2000円でした)


雑誌は、正直あてになりません。
雑誌に書いてある予想で当たるのであれば、多くの人が当たり
配当が少なくなりますしね。


雑誌の予想方を考えた人は、当たったのかもしれませんが
まず、肝の部分はかくしていますから。


確立論を知っていれば、わかると思いますが
数字が42個なら、かなりの確立で当てることが出来ると思われます。

43個というところがミソなんですね・・・


確立論を話し始めると、とてもここでは書き込みできないくらい長くなりますが
私の考えでは、確立で当てることは出来ると思います。


1等を当てることは困難でしょうが
とりあえず、確立で購入し始めてからはマイナスはありません。


でも、多くのデータから、色々な要素を抽出して
そこから、数字を絞り込んで、組み合わせを考えて・・・


予想には、すごく時間がかかりますし
好きでないとできないでしょう。


確立論自体がまだ色々な研究がされていますので
新しい理論をどう利用していくかなどという問題もあります。


さいころの様には簡単にいきません
さいころの6個の数字でも、それぞれの数字が同じ回数に近づくには
相当な回数が必要です。


確立と言っても、最近出ていないからこれが出そうというものではないですから。

私は、パチンコはやりませんが、何の操作もないとして
その日、当たりが出ていない台と、当たりが出ている台と
どちらが当たりが出やすいかと言えば、普通なら当たりが出ていない方が
確立的には当たると思いがちですが、出ている方を選ぶのが正解です。(釘などのいろいろな条件はありますが、それは無視して確率だけで考えた場合です)


競馬でも、天候や馬場状態が関係してきますが、ほとんど無視できます。(ロトでいえば、当日のセット球などですね)


確立で、さいころの次の目を予知することはできません
それは、その通りですが、次に出る目を絞る事は出来ますから。


ロトで、確立を使うと言うことはそういうことです。
43個の数字を、半分、またはそれ以下に絞ることは出来ます。


そこまで減らすことが出来れば、予想もやりやすくなると言うことです。

今日現在はわかりませんが、私が確立で予想し始めた時は
クイックピックでの1等当選はありませんでした。
適当に選んだ数字では当たらないのです。

また、参考までに、1等に同じ数字の組み合わせが出ていない
これだけでも、その組み合わせを排除することが出来ます。
(世界中のロトでも、ほとんど皆無だと記憶しています)


そうなると、回数を重ねてデータが増えてくると
消せる組み合わせも増えてきます。
まだまだ、日本のロトはデータが十分ではないと思います
競馬の予想をしていた時は、過去20年以上のデータをもっていました。


ロトで確立論が発揮されるのは、これからでしょう
データが多いほど、威力を発揮します。


今では、投資の世界でも、確立論が実用化されていることでも
確立論というのが、どれだけ優れているかがわかると思います。

非常に興味のある質問です。

私は、確立、統計が好きで、昔、競馬をやっている時にも応用していました。

当時のPCの中身は、ほとんど競馬のデータでした(笑)


最終的には、弟と一緒に考えた方法で負けることはなくなりましたが、
競馬は、生き物が走っているので、思い入れとかあるんですよね。

それで、確立だけでやっているのが面白くなくなって、今では馬券は買わずに
見るだけになってしまいました。


現在は、ロト6を確立で当てるべく色々と試していますが
今のところ3等(61万円...続きを読む

Q数字3桁の組み合わせの何通りありますか?

フリーナンバーのロック式鍵があり自分で番号を決めれるのですが、厄介な事に誤動作で番号が変わってしまいロックを解除出来ません!!!数字3桁で0から9まであるのですが、何通りありますか?また、全ての組み合わせ数字を教えて下さい。確か昔小学校で習ったような記憶があるのですが、、、お願いします。例  111 123 124 125 126 246等凄い地道な作業になるのは覚悟しております。

Aベストアンサー

10桁x10桁x10桁
だから1000通り

000から999までです。

1秒に1パターンやれば1000秒です笑

Qロト ナンバーズ攻略

よく色んなところで聞いたりするのが、
過去の出目から次に出やすい数字を予想して攻略するようなことを聞いたり見たりします。統計学というものでしょうか?。
よく知りませんが、
1番は10回連続で出ているから次は出なさそうとか、
1番は10回連続で出てないから次は出るかもしれないとか、
種類はいっぱいあると思いますがこんな感じのことで、過去の出目を判断材料にしていることです。
周りの人間にも本気でこれを信じて、実行している人がいます。
そしてナンバーズ3で1等当てた人もいます(自分はたんなる偶然と思っています)
前に床屋に髪を切りに行ったときもオーナーがロト6攻略みたいな統計学がどうたらこうたらで毎月1万円ずつ買っているとか言ってました。

ちなみに自分は完全否定派で、
ロトやナンバーズの抽選機械がどんな仕組みか知りませんが、
機械の抽選には機械で対抗するというのがポリシーで、
過去の出目は気にせず毎回機械ランダム選択で買っている者です。

実際に厳密なところどうなのでしょうか。
完全ランダムで買うよりもなにかしらそれなりに数学的に考えて選んだほうが当たりやすいのでしょうか。
もしだとしたら抽選する機械に怪しいプログラムが仕込まれているとしか思えないのですが。

あと、ロト6でいうと、
02 09 15 20 32 36
というような一見よくありがちな当たりそうな(?)組み合わせで選ぶのと、
01 02 03 04 05 06
という一見こんなのありえなさそうな組み合わせで選んでも、
当選確率は同じなんですよね?
自分は同じと思っていますが詳しい方々の意見をお聞きしてみたいです。

よく色んなところで聞いたりするのが、
過去の出目から次に出やすい数字を予想して攻略するようなことを聞いたり見たりします。統計学というものでしょうか?。
よく知りませんが、
1番は10回連続で出ているから次は出なさそうとか、
1番は10回連続で出てないから次は出るかもしれないとか、
種類はいっぱいあると思いますがこんな感じのことで、過去の出目を判断材料にしていることです。
周りの人間にも本気でこれを信じて、実行している人がいます。
そしてナンバーズ3で1等当てた人もいます(自分はた...続きを読む

Aベストアンサー

 自分もナンバーズやロトくじはよく買います。
 抽選方法も知っていますが人為的な操作が入る余地は見当たらず、確率的にどんな番号でも当たる確率は同じと思っていますし、事実上そうだと思います。

 どうしても人気のある番号がどうしても出ますので、どうせ買うなら、あまり人の買いそうにない番号にしています。(ナンバーズ3や4では、日付の形になる番号(0312とか、1225とか)だと決まって安いのでそれを避けるとかですね。

 さて、攻略法ですが、「当たりやすい」攻略法はないと思います。
 上記のような手法で買う人の心理をついた「確率は同じだけど当たったら高い」攻略サイトなら可能ですが、やはり嘘でも「当たる」サイトの方が人気が出るでしょうね。

 統計学をかたるサイトは、一見統計の手法を使っていて、実際は「当たり前のことを述べている」、「データサンプルが少なく、統計的手法は不適当」のどちらかが多いです。 でも、結局は当たる確率は一緒ですので、そういうのを見たり、参考にして買うというのも楽しみかたのひとつで、よいと思いますよ。

 さて、今適当に思いついた攻略ですが。これはどうでしょう。既にどこかの攻略サイトでやっていたらすみません。

>> 今思いついた攻略法「ロト6で、選ぶ数字は奇数を3個に、偶数から3個にすると当たりやすい」
>> なんと過去3回(7/12,7/5,6/28)は全てこのパターンです。


●種明かし(というほどのものではないですが)

 計算すると、奇数3個偶数3個で買える組み合わせは200万通り以上あります。
 これは全ての買い方の組み合わせの1/3ほどを占めます。
 つまり、特に珍しいわけでなく、この現象が3回くらい続くのは全然珍しくありません。

 攻略サイト主催者なら、奇数が0個、1個、2個、3個、4個、5個、6個の7つにパターン分けし、そのうち「奇数3個(偶数3個)」に当選が偏っています! だいたい1/3です。とかやるところでしょう。

 実際に、確率の偏った分類をし(素人目には一見そう見えないのがポイント)た上、その中の「買い方が多い」パターンを「よく当たる買い方」等と紹介していたりします。

 上の例の他にも、「同じ番号が続く」「ゾーンから1個づつかうのが良い」「今週の当たる数字」等、統計を利用した攻略で「当たりやすい」という結果を出しているのは、たいてい上のようなカラクリがあり、「確率的には特に偏ったものでない」のです。また、偏っている場合は明らかにサンプル数が少なかったりします。

 こういうのを探すのが好きで攻略サイトを見るを楽しんでいたりします。(ただ、「サンプル数が少ない」でごまかしているのが多く、なかなか面白いのは見つかりませんが)

 質問者さんがあたり安そうに上げていた番号「02 09 15 20 32 36」はたぶん「数字がいい感じでばらけているから」でしょうね。実際当たり番号のほとんどはばらけています。でも、短に「ばらけている」買い方が多いだけです。
 ばらけているという定義さえいただければ、確率は計算でき、「買い方がどのくらいあるか」わかります。多分すごく多いはずですよ。

 自分もナンバーズやロトくじはよく買います。
 抽選方法も知っていますが人為的な操作が入る余地は見当たらず、確率的にどんな番号でも当たる確率は同じと思っていますし、事実上そうだと思います。

 どうしても人気のある番号がどうしても出ますので、どうせ買うなら、あまり人の買いそうにない番号にしています。(ナンバーズ3や4では、日付の形になる番号(0312とか、1225とか)だと決まって安いのでそれを避けるとかですね。

 さて、攻略法ですが、「当たりやすい」攻略法はないと思います。
 ...続きを読む

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
       ...続きを読む

Q4ケタの暗証番号 何通り?

0~9の数字からなる4ケタの暗証番号ありますよね?
よく携帯とかでみられる・・・
もしどの数字を押したかが分かるとしたら何通りのパターンがあるんですか?
1・2・3・4を使っているとしたならば、全部違う数字という制約がつくので24通りですよね?
他にも1・2・3だけ使っているとしたらどれかが重複しているという事になります
これだとまた何通りかは変わってくるはず。
他にもいろいろなパターンがあるはずです
全部のパターン教えてください
例えば暗証番号を押させて、そのボタンについている指紋をとってどの数字を使っているのか
調査するというやり方をしたら
何通りのパターンがあるのですか?

Aベストアンサー

【1】 使われている数字が1種類の場合
 並べ方は1つしかありません。それが0~9まであるので、10通り。
 0000,1111,2222,~ 9999


【2】 使われている数字が2種類の場合
 その2つの数字をa,b としてみると、並べ方は、
(aが3つ、bが1つのとき) aaab,aaba,abaa,baaa
 (aが2つ、bが2つのとき) aabb,abab,abba,bbaa,baba,baab
(aが1つ、bが3つのとき) abbb,babb,bbab,bbba

の14通り。
0~9のうち2つを取り出す組み合わせは、10C2=45

よって、14×45=630通り。

【3】 使われている数字が3種類の場合
 その3つの数字をa,b,c としてみると、いずれかひとつが重複していることになります。
 重複しているのが a だとすれば、その置き方は、
 aa--
a-a-
a--a
-aa-
-a-a
--aa
の6パターンあり、-の部分にb,c が入りますから、それぞれ2種類のため、計12パターンです。

そして、重複しているのがb の場合、c の場合、とありますから、結局、12×3=36パターンあります。

0~9のうち、3つを取り出す組み合わせは、10C3=120

よって、36×120=4,320通り。

【4】使われている数字が4種類の場合
 あなたもおっしゃるとおり、24通りです。

0~9のうち、4つを取り出す組み合わせは、10C4=210通り。

よって、24×210=5,040通り。

【1】~【4】 を全部足せば、

10 + 630 + 4,320 +5,040 =10,000

となります。
0000~9999 までの10,000通りです。

【1】 使われている数字が1種類の場合
 並べ方は1つしかありません。それが0~9まであるので、10通り。
 0000,1111,2222,~ 9999


【2】 使われている数字が2種類の場合
 その2つの数字をa,b としてみると、並べ方は、
(aが3つ、bが1つのとき) aaab,aaba,abaa,baaa
 (aが2つ、bが2つのとき) aabb,abab,abba,bbaa,baba,baab
(aが1つ、bが3つのとき) abbb,babb,bbab,bbba

の14通り。
0~9のうち2つを取り出す組み合わせは、10C2=45

よって、14×45=630通り。

【3】 使われている数字が3種類...続きを読む

Q3つの数の組み合わせの求め方

情けない質問なんですが、朝からずっと考えていて結局あきらめました。

1~18まで3つの数字を組み合わせる場合の式を教えてください。同じ数字の組み合わせはありません。
18までだと816通りありますが、例えば12までの組み合わせが何通りになるかと言う計算式が知りたいのです。

最初 1-2-3 2番目 1-2-4 … 18までの場合の最後16-17-18

よろしくお願いします。

Aベストアンサー

計算式は、(12×11×10)÷(3×2×1)となります。


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング