という状態にしたいと考えています。 また、Accessを使っても似たようなことができるのでしょうか？　直積？ With Range("A2").CurrentRegion 　　 　 １　　 ３　　　２ ●知りたいこと。 B2セルに=IF($A2>$A$1,"",MOD(INT(($A2-1)/C$1/D$1),B$1)+1) 　　If Intersect(Target, rSrc) Is Nothing Then Exit Sub 　ActiveSheet.Cells.ClearContents ※　おそらく一度だけの操作になると思いますので、 =IF(COUNTIF(Sheet1!$C:$C,$A$1)>=ROW(A1),INDEX(Sheet1!A:A,LARGE(INDEX((Sheet1!$C$1:$C$500=$A$1)*ROW(Sheet1!$C$1:$C$500),),COUNTIF(Sheet1!$C:$C,$A$1)-ROW(A1)+1)),"") こうやれば簡単に出来るんですね。 C2セルに=IF($A2>$A$1,"",MOD(INT(($A2-1)/$D$1),C$1)+1) 　 １　　 ２　　　４　　 ３ 　　　　　　For k = j To MaxNum - 1 Excelの仕様上65,536行までしかないので，「８個の場合」とかいう限定された個数でもかまいません。 2. A1セルに総数 =PRODUCT(B1:D1) いちご　トマト 　「２４個から６個選択した場合の組み合わせ(24C6)」作成方法。 M5セルに葉の品数の5 b.c.a どなたかご存じでしたら、ぜひお教え下さい。 以上、ご回答よろしくお願いします。, どなたかご存じでしたら回答願います。 　　p(i) = i 　　Next i (1)(a.b.c)の３つだけの文字列を作った時のパターン数 　k = 0 以下の例で説明をお願いします。 　ご存知の方がいらっしゃいましたらご教授下さい！, 組み合わせ(順番は関係ない)という前提で 　　Application.EnableEvents = False 当選番号3個の組み合わせベストです。ロト7(loto7)の当選番号速報と予想数字分析。当選回数の多い数字や当選確率の高い数字の組み合わせなどのデータ分析による、loto7支援サイト。当選速報は抽選日に … よろしくお願いします。, ありがとうございます。 下記がその６通り b.a.c （4）最後にA2セル～最終セルを選択　→　罫線の「格子」を選択しOK lastCol = Cells(2, Columns.Count).End(xlToLeft).Column 　　Dim j As Long 抽出結果を自動的に、別の場所に、常に表示させておきたいのです。 　　Dim i As Long, j As Long, k As Long 取り急ぎ、コードのみ修正しました。 3. A1セルに総数 =PRODUCT(B1:D1) ▼同じ文字を二度使ってもよい場合なら Cells(j, j - 1).Borders(xlDiagonalDown).LineStyle = xlContinuous 【肉類】【根菜】【葉野菜】の列、または （Alt+F8キー　→　マクロ　→　マクロ実行です） があり、別のセルにその全通りの組み合わせを出力 例えば ▽検証 選べる英数字は毎回36通り ＃２を元に書き換えています。 (2)ロト６の場合は、下記のように６×４マスに重複しない数字が入っています。 C1セルに「根菜」の組み合わせ数 =COMBIN(4,2) 　If i < N Then 　Dim i As Long 　「２５個から５個選択した場合の組み合わせ（25C5)」作成方法 J3セルに =IF(I3<>I2,I3+1,J2+1) (1)ミニロトの場合は、３１個から５個全てが一致すると一等ですが、 (1)ミニロトの場合は、下記のように５×５マス...続きを読む, 過去のQ&A（参考URL）を参照なさってはいかがでしょう？ D2セルに=IF($A2>$A$1,"",MOD($A2-1,D$1)+1) 　　　　Next j Excel2010を使用しており、VBAは初心者です。 Sub Sample1() 'この行から a.b.c c.b.a 宜しくお願いします。, ※各種外部サービスのアカウントをお持ちの方はこちらから簡単に登録できます。 つまり「菓子A、菓子A、菓子A」も「菓子A、菓子A、菓子B」もあり　ですね。 この場合、すべての組合せの数は Excelの関数で求めることができるようで COMBIN(10+3-1,3) = 220 通りあることまではわかりましたが、このすべての組合せの一覧をどのようにして出力したらいいのかがわかりません。 Private Sub Worksheet_Change(ByVal Target As Range) ・だいこん Next j №2さんのコードをお借りして 　Dim i As Long 　　For i = 0 To MaxNum - 1 B1セルに「肉」の組み合わせ数 =COMBIN(4,2) Private Sub Worksheet_Change(ByVal Target As Range) C1セルに「根菜」の組み合わせ数 =COMBIN(4,2) みかん　だいこん Excelの文字列の全通りの組み合わせを出力がしたいのですが、その方法が分かりません。 K5セルに根菜の品数の4 　　　　　　　　Cells(rowX, 1).Value = myStr(i) 　　　　For i = tnFld To 1 Step -1 　　Application.EnableEvents = False それぞれ、どのような設定・関数を用いればよいのでしょうか？, こんばんは！ 1. ここから４桁を選ぶのだから 方程式というか中学生で習う確率の授業をちゃんとやればわかります。難しいとこは 　　Dim nConti As Long １　と　２　という２個の数字(文字)がある場合， たぶん、大丈夫だと思います。後は、65536を超えないようにしてください。 以下は、再帰を使った、順列生成のアルゴリズムです。 　　Dim nRc As Long End Sub, >同じものを複数選ぶのはありですが「菓子A、菓子B、菓子C」と「菓子B、菓子C、菓 　　myStr = Split("A B C D E F G H I J") 牛肉、魚肉、大根、たまねぎ、レタス、ほうれん草 10 4 11 13 5 22 A2:D2下へオートフィル連番360まで ＃２を元に書き換えています。 取り急ぎ、コードのみ修正しました。 このような表があって、100円を含む行をそのままの形で、 ▼同じ文字を二度使わない場合 　　 t = p(i): p(i) = p(j): p(j) = t 全くなく基本です。 ▽三回目は５つから選べる c.a.b 方程式というか中学生で習う確率の授業をちゃんとやればわかります。難しいとこは （1）2行目データを範囲指定　→　右クリック　→　コピー Private Sub perm(i As Long) 　 １　　 ２　　　３　　 ４ りんご　トマト Const N As Integer = 3 '生成する順列数 下記がその６通り 【肉類】として 画像のように のような感じです。 VisualBasicが全然出来なかったので、お教え頂いた方法は目から鱗でした。 　　数字は毎回変わります。 For j = 2 To lastCol + 1 　ActiveSheet.Cells.ClearContents 　 Next j =IF(A1="『どんな文字でも』","",+B1-C1) 　 1 　 2 5 6 7 19 できればセルに入力すれば自動的に組合せが追加されていくのが理想です。 [a,b,c,d,e,f,g]の中から4文字をつかった文字列のパターン数。, ちゃんと中学で確率を勉強しましたか？ 　　　　With .Cells(2, 1).Resize(nConti) b.c.a 　Dim j As Long, t As Long Excelについて全くの初心者で、教えて頂きたい質問があります。 　　数字は毎回変わります。 Dim k As Long I1セルに肉の品数の4 　　　　　　nRow = 2 5等保証の購入法での組み合わせを自動表示してくれるツールです。少ない投資でロト7を楽しみたい方は一度お試しください。 クイックピック 普通のクイックピック機能の他、軸の指定や特定の数字の削除、指定などできます。 Xto7生成ツール 19 22 23 24 27 画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面のカーソルが点滅しているところに Dim k As Long （4）最後にA2セル～最終セルを選択　→　罫線の「格子」を選択しOK ▽最初にa.b.cの３つのうちのひとつが選べる Copyright © 2020 宝くじ生活 All Rights Reserved. G2セルに葉 a.c.b 　　Application.EnableEvents = True 　　　　　　nConti = nConti * (nRc - 1) http://oshiete.goo.ne.jp/qa/4122783.html Const N As Integer = 3 '生成する順列数 　 ２　　 １ ミニロトとロト６をエクセルを使用して予想に利用しております。 　 For j = i To N...続きを読む, どなたかご存じでしたら回答願います。 a.c.b 　　　　　　For i = 2 To tnFld 各組合せ 10 4 11 13 15 ●入力 　　Call PrintCombi(rSrc) 　　　　　　　　Cells(rowX, 2).Value = myStr(j) =INDEX(P:P,INDEX(I:I,B2+1)+1)&" "&INDEX(P:P,INDEX(J:J,B2+1)+1) 8 9 17 21 28 23 ３×２×１＝６ (1)２行目のデータを、関数・オートフィルを用いて２列目に並べなおす 　Next i 　　ＶＢＡを実行すると、新シートにそれぞれ、25C5又は、24C6の全組み合わせが出力される。 キャベツ　白菜　キャベツ　レタス　ほうれん草　の中から２つ選ぶ、 どなたかご存じでしたら、ぜひお教え下さい。 　　 k = k + 1 Sub perm_test() 　　tnFld = rSrc.Columns.Count D1セルに「葉」の組み合わせ数 =COMBIN(5,2) こういった流れになると思います。 （1）2行目データを範囲指定　→　右クリック　→　コピー ロト7全組合せ(TEXT) ロト7の全組合せ10,295,472通りを記載したテキストデータです。 各数字は、半角カンマ[ , ]で区切っています。 Excelなどの環境によっては正常に表示できない為、テキストファイルとして提供しています。 　　　　　　For j = 2 To nRc 例えばセルＡに B1セルに「肉」の組み合わせ数 =COMBIN(4,2) ３×２×１＝６ 　 ３　　 １　　　２ 　　Application.EnableEvents = False 　　1 　 2 5 6 7 学校の宿題とかではありませんよね。 【葉野菜】として 　A列　B列 ・りんご 　A列　B列　C列 　perm 1 WordPress Luxeritas Theme is provided by "Thought is free". ▽二回目は６つから選べる (添付図の罫線で囲まれた部分しか使わない) ロト7の37個の数字からX個選び出し7個の数字の組合せを全て買う方法です。 1つ目の項目から順番に項目を設定し、計算開始ボタンをクリックすると組合せの一覧と組合せ数と金額が表示されます。 ▽次に最初に選んだもの以外の２つのうちのひとつが選べる 実際に使用したい選択肢の総数が１００個ほどあり、手入力には多すぎるので 　　Dim rSrc As Range その中で知りたいのは、下記の場合のエクセルＶＢＡのソースです。 ７×７×７×７＝２４０１ 　　For i = 0 To MaxNum - 1 F2セルに根菜 あれの方程式などはあるのでしょうか。 .HorizontalAlignment = xlCenter (1)ミニロトの場合は、３１個から５個全てが一致すると一等ですが、 　　p(i) = i 7/3　みかん　100円 　 ４　　 ３　　　２　　 １ =INDEX(R:R,INDEX(M:M,D2+1)+1)&" "&INDEX(R:R,INDEX(N:N,D2+1)+1) にあった質問より、もう少し複雑な組み合わせを出力したいと思っています。 (2)ロト６の場合は、４３個から６個全てが一致すると一等ですが、 [a,b,c]の3つだけの文字列を作った時のパターン数 同じものを複数選ぶのはありですが「菓子A、菓子B、菓子C」と「菓子B、菓子C、菓子A」は選んだ順が違うだけで同じ組合せなので、どちらか片方だけにします。 ２４０１通り, ちゃんと中学で確率を勉強しましたか？ （2）A3セルを選択　→　右クリック　→　形式を選択して貼り付け　→　「行列を入れ替える」にチェックを入れOK Range("A3").PasteSpecial Paste:=xlPasteAll, Transpose:=True その場合はソルバーの機能を利用します。 　　Dim tnFld As Long 　　　　.CurrentRegion.Clear 【根菜】として ・トマト （文字と文字の間はスペース） なんとかExcelで出来たらと思ってるのですが……。 ●出力 日付のセル書式は「日付」形式に再設定してください 　　　　　　Next j 以下は、再帰を使った、順列生成のアルゴリズムです。 ほんとありがとうございます！！, ありがとうございます。 　　Dim i As Long Dim p(1 To N) 条件を入力したら「キャンセル」して元のダイアログを表示して、「OK」します。 　　　　　　Next k ●入力 ▽毎回７つから選択できる 抽出するだけならオートフィルターでもできますが、 全くなく基本です。 Option Explicit 　For i = 1 To N Range(Cells(2, "B"), Cells(2, lastCol)).Copy （イメージ添付あり） 数字は10種類 　　Set rSrc = Range("B2").CurrentRegion セルA～Eに、数がまちまちのアイテム名が入っています。 A2セルに連番として 1 また，123，132，213，…,321　という具合に数値として１列に並べる方法でもかまいません。 牛肉　豚肉　鶏肉　魚肉　　の中から２つ選び 　　 t = p(i): p(i) = p(j): p(j) = t 　　Dim myStr As Variant 文字が入っていなければB1セルからC1セルを引く、という状態です。 Option Explicit ▼同じ英数字を二度使ってもかまわないので 　　　・使用しているエクセルは２０１０です。 たぶん、大丈夫だと思います。後は、65536を超えないようにしてください。 ●知りたいこと。 ▽検証 ・キャベツ 　Else ▽四回目は４つから選べる この『どんな文字でも』の部分に何を入れればいいのか教えてください。 D1セルに「葉」の組み合わせ数 =COMBIN(5,2) 【注意事項】 1679616通り 　　Dim rowX As Long あれこれ調べてみたのですが私自身関数が得意というわけでもなく…こちらで質問させていただきます。 End Sub, こんにちは。 　「２４個から６個選択した場合の組み合わせ(24C6)」作成方法。 a.b.c Sub perm_test() (3)(a.b.c.d.e.f.g)の中から4文字を使った文字列のパターン 14 16 18 20 25 ▽次に最初に選んだもの以外の２つのうちのひとつが選べる りんご　だいこん データ範囲は５００行までとしていますが、必要に応じて変更して下さい, エクセルのＩＦ関数で文字が入力されていたならば～、という論理式を組み立てたいと思っています。 　　If Intersect(Target, rSrc) Is Nothing Then Exit Sub 別シートのA1セルに「100円」と入力し、そのシートの任意のセルに以下の式を貼り付けて下さい。後は、下方向、右方向にコピー。 数字選択式宝くじのロト7は1等賞金が6億円で、キャリーオーバーがあると最大10億円というとんでもない宝くじです。, 数字選択式のロト7は37個の数字の中から7個の数字を選んで、抽選された本数字とピタリと合えば1等当選となります。, これは約1030万通りという数となり1等当選確率は約1/1030万という事になるため、毎週行われるロト7では1等当選者に該当なしという事も多いです。, 37C7＝（37×36×35×34×33×32×31）/（7×6×5×4×3×2×1） ＊「C」はコンビネーション, ロト7は全部で10295472通りあり、その内の1つを当てることで1等当選となるのです。, ロト7の当たる確率は1等で約1/1030万ですが、1等の他にも2～6等まであります。, 1等:申込数字が本数字7個すべて一致 2等:申込数字が本数字6個と一致し,更にボーナス数字2個のうち1個と一致 3等:申込数字が本数字6個と一致 4等:申込数字が本数字5個と一致 5等:申込数字が本数字4個と一致 6等:申込数字が本数字3個と一致し,更にボーナス数字1個または2個に一致, 3等：73万円×196≒1億4308万円 4等：9100円×9135≒8313万1140円 5等：1400円×142993≒2億19万200円 6等：1000×245130≒2億4513万285円, もちろんキャリーオーバーが発生した場合はこの限りではないので、大幅に期待値や還元率は増えるでしょう。, （当せん金付証票の当せん金品の限度） 第五条 　当せん金付証票の当せん金品の金額又は価格の総額は、その発売総額の五割に相当する額（加算型当せん金付証票にあつては、その額に加算金（第二条第二項の加算金をいう。以下同じ。）の額を加えた額）をこえてはならない。, ロト7の組合せ数は全部で何通りなのか、その当たる確率や期待値、還元率とともにまとめました。, ロト7に限らず他の宝くじでも還元率は50％を越えず、払い戻し総額は少ない中からの分配になります。, ただ、一等賞金額が非常に大きいので、ロトをはじめジャンボ宝くじなどもその夢のために購入する方が多いですね。, 1等や2等が当たれば大きいですが、やはり当たる確率から見てもかなり厳しそうですね。, などなど、ロト7の疑問点や実際に購入した様子、当選確率や当選金額といったロト7の中身について書いた記事をまとめたページを用意しました！, 最初の購入はいろいろ不安点も多いですが、まずはコチラで流し読みでもしてもらうと必要な知識が身についていくと思います！. 私自身はどういう仕組みで動いているのか全然わかりませんが出来ました！（＾＾；； 　 １　　 ２　　　３ つまり「菓子A、菓子A、菓子A」も「菓子A、菓子A、菓子B」もあり　ですね。 　　 perm i + 1 　If i < N Then ▼３つだけを使うので同じものは２回使えない その中で知りたいのは、下記の場合のエクセルＶＢＡのソースです。 Dim j As Long, lastCol As Long 　　Dim nRow As Long E2セルに肉 １　２　３　という３個の数字(文字)がある場合， 初歩的な質問だと思いますが、検索しても分からなかったので、よろしくお願いします。, 同じ質問が結構よく出てますが、そんなに初歩的でもありません ・みかん 　k = 0 　　Dim myStr As Variant 　　　　　　For k = j To MaxNum - 1 36×36×36×36＝1679616 8 9 17 21 28 　　 Next j 　　Application.EnableEvents = True 別のセル（同じシート内）に抜き出したいのですが。 　　　　Cells(1).Resize(, tnFld).Copy .Cells(1) 質問の操作に関しては関数云々というより、コツコツ手を動かして操作するしかないと思います。 7/3　みかん　100円 エクセルで作成した数字の表を利用して、その表の中の任意の数字の組み合わせの合計が、ある数字ぴったりの組み合わせを探し出すにはどうすればいいでしょうか？表の数字は50くらいあります。, ご希望の操作は、50個のセルに入力されている値の中からいくつかの数字を選択して、その数字の合計が特定の値になる組み合わせを探したいということでしょうか？ C2セルに=IF($A2>$A$1,"",MOD(INT(($A2-1)/$D$1),C$1)+1) 　　　　　　nRc = Cells(Rows.Count, i).End(xlUp).Row (1)(a.b.c)の３つだけの文字列を作った時のパターン数 I3:J3セルを右へ下へオートフィル また昇り順でなくてもかまいません。　よろしくおねがいします。, こんにちは。 参考URL：http://oshiete.goo.ne.jp/qa/5571459.html, エクセルで、指定した条件に一致するセルを含む行をすべて抜き出す方法が知りたいです。 （セルA～Eというのは例で、変則的に全てのアイテム数は増減します。） 　　myStr = Split("A B C D E F G H I J") ミニロトとロト６をエクセルを使用して予想に利用しております。 いちご　キャベツ 　「２５個から５個選択した場合の組み合わせ（25C5)」作成方法 みかん　トマト I3セルに =(COUNTIF(I$2:I2,I2)>=I$1-I2)+I2 りんご　キャベツ 　perm 1 　　　　　　　　rowX = rowX + 1 次の条件のような場合、Excelですべての組合せ（重複組合せ）をVBAで出力するにはどうしたらいいのでしょうか？ 　　　　For j = i To MaxNum - 1 　　　　　　　　Cells(rowX, 3).Value = myStr(k) よろしくお願いします。, ＃１、２、ｃｊです。＃１、２、補足欄へのレスです。 できれば、3個固定ではなく5個の場合も出来るとうれしいです。 Sub Test() 英数字のみのパスワード4桁のパターン数 たとえばA1からA50セルに任意の数字が入力されている場合、C1セルに「=SUMPRODUCT(A1:A50,B1:B50)」と入力しこのセルを選択しておき、「ツール」「ソルバー」（表示されない場合は「アドイン」からソルバーにチェックを入れます）から、目標値の「値」の欄にチェックを入れ、合計する目標数字を入力し、変化させるセルの欄は「B1:B50」セルを選択し、制約条件で「追加」ボタンを押し、左側の欄に「B1:B50」セル、真ん中を「データ」にして「OK」します。 またＩＦ関数以外でも同様のことができれば構いません。 この様に出来る方法はあるでしょうか？ たとえば、 　Dim j As Long, t As Long №2さんのコードをお借りして 14 16 18 20 25 24 よろしくお願いします。, >同じものを複数選ぶのはありですが「菓子A、菓子B、菓子C」と「菓子B、菓子C、菓 (D2セルから考えた) 　　Const MaxNum = 10 　 ２　　 １　　　３ これで目標値が見つかりましたと表示された場合、B列に１と表示されているA列の数字の組み合わせが、求める組み合わせデータとなります。, エクセル2007で俗に言う総当り表を作りたいのですが、分からないことがあり作成が進みません。 End Sub (2)英数字のみのパスワード４桁 表を作成したい元データはB2セルから列方向に並んでいるとします。 質問の操作に関しては関数云々というより、コツコツ手を動かして操作するしかないと思います。 End With みかん　キャベツ 　　rowX = 1 =INDEX(Q:Q,INDEX(K:K,C2+1)+1)&" "&INDEX(Q:Q,INDEX(L:L,C2+1)+1) 　　　　End With A1セルに『どんな文字でも』入っていたならば、空白に。 　　 For j = 1 To N (2)英数字のみの...続きを読む, こんにちは。 (D2セルから考えた) で答えは６通り 　　　　　　　　Cells(j, i).Copy Destination:=.Cells(nRow, i).Resize(nConti) ８４０通り D2セルに=IF($A2>$A$1,"",MOD($A2-1,D$1)+1) 　 ２　　 ３　　　１ 7/1　りんご　100円 　　　　　　　　Range(.Cells(1, i), .Cells(.Cells.Count + 1, i).End(xlUp)).Copy Destination:=.Columns(i) 　　Dim rSrc As Range ▼３つだけを使うので同じものは２回使えない End Sub 　　　　　　　...続きを読む, よくこの組み合わせは全部で1万通りのパターンが存在するというようなことを聞きますが、 で答えは６通り ７×６×５×４＝８４０ 【肉類１】【肉類２】【根菜１】【根菜２】【葉野菜１】【葉野菜２】の列に出力する事は出来るものでしょうか？ 　　　　　　Next i Sub Test() 　　　　For j = i To MaxNum - 1 　For i = 1 To N セルＢに こういった流れになると思...続きを読む, 例えば ロト7の当選番号の一覧 ... ・H・I・Jの赤・黄・橙・緑・青・紺・紫に色分けされた43個の10種類のボールの組み合わせがあり、各数字に偏りが出ないように 毎回変更して使用しています。 　　　 Cells(k + 1, j).Value = p(j) K5セルに根菜の品数の4...続きを読む, エクセルの初心者です。 　　Application.EnableEvents = True わざわざマクロでやるよりご自身で手を動かした方が良いと思います。m(_ _)m, こんばんは！ という具合に ｎ 個の数字(文字)がある場合，過不足無く列挙させるマクロ(VBA)を教えてください。 7/2　ぶどう　200円 全ての組合せをセルG～Kに各々書き出してくれる方法はあるでしょうか？ （2）A3セルを選択　→　右クリック　→　形式を選択して貼り付け　→　「行列を入れ替える」にチェックを入れOK Sub PrintCombi(ByVal rSrc As Range) いろいろ検索した結果、順列という方法は見つかりましたが、重複組合せでの方法は見つけることができませんでした。 I2に1、J2に2 右へコピー Dim p(1 To N) b.a.c ちなみに 考え方を理解するようにしてください, 組み合わせ(順番は関係ない)という前提で (1)ミニロトの場合は、下記のように５×５マスに重複しない数字が入っています。 　　　　　　　　nRow = nRow + nConti また出来ればその裏（だいこん　りんご）も出力したいと考えており、キーワードは３つまで出来るようになりたいです。 Excelについて全くの初心者で、教えて頂きたい質問があります。Excelの文字列の全通りの組み合わせを出力がしたいのですが、その方法が分かりません。例えばセルAに・りんご・みかん・いちごセルBに・だいこん・キャベツ・トマトがあり ・いちご 大根　にんじん　たまねぎ　サツマイモ　の中から２つ選び (2)ロト６の場合は、４３個から６個全てが一致すると一等ですが、 　　Dim i As Long, j As Long, k As Long 　　Set rSrc = Range("B2").CurrentRegion 7/1　りんご　100円 お客様の許可なしに外部サービスに投稿することはございませんのでご安心ください。, Excelでの全通りの組み合わせから、特定の人が選ばれるパターン数についての質問です, excel 日付書式のセルに、文字列関数で12/24と出力しても指定した形式で出力されない, EXCELでセル(文字列)と任意のシートの行を比較して結果を出力したいのですが・・・. ▽最後に１つ残る ありがとうございました。, 初めての出産を控えるプレママ。子育てをしながら出産を迎えるママ。 期待と不安の入り混じる妊娠中の2人に、肌研究家であるベテランママがアドバイス。, Excelでデータ全通り組み合わせ出力方法について教えて頂けますと助かります。 　　　～　省略　～ ▽最初は７つ選べる 　　　　Next i 従って 　　Application.EnableEvents = False ▽最後に１つ残る 各組合せ c.b.a Private Sub perm(i As Long) 　Next i いちご　だいこん 　　Application.EnableEvents = True End Sub, ＃１、２、ｃｊです。＃１、２、補足欄へのレスです。 （3）Ctrlキーを押しながら斜線を入れたいセルを選択　→　右クリック　→　セルの書式設定　→　「罫線」タブで「右下がりの斜線」を選択しOK 　　Dim rowX As Long 数字選択式宝くじのロト7は1等賞金が6億円で、キャリーオーバーがあると最大10億円というとんでもない宝くじです。 そんなロト7の組合せ数は全部で何通りあるのか？ 1等～6等の当たる確率とその期待値、還元率とともにまとめました。 ロト7の組み合わせ数は全部で何通り？ 　　Const MaxNum = 10 A2:D2下へオートフィル連番360まで 　 ３　　 ２　　　１ 10種類のお菓子の中から、好きなものを3個選んでセットにするとします。 E2:G2セル フィルハンドルダブルクリック これを自動で！というコトであればVBAになってしまいますが、一例です。 組み合わせ例としては、 End Sub 'この行まで 　 １　　 ２ B2セルに=IF($A2>$A$1,"",MOD(INT(($A2-1)/C$1/D$1),B$1)+1) .Borders.LineStyle = xlContinuous （3）Ctrlキーを押しながら斜線を入れたいセルを選択　→　右クリック　→　セルの書式設定　→　「罫線」タブで「右下がりの斜線」を選択しOK アルファベットは26文字 　　rowX = 1 7/2　すいか　300円 ...続きを読む, Excelですべての組合せ（重複組合せ）を出力するには？ ↓のコードをコピー＆ペースト　→　Excel画面に戻りマクロを実行してみてください。 I1セルに肉の品数の4 学校の宿題とかではありませんよね。 　　End With 　　Call PrintCombi(rSrc) c.a.b といった場合の全ての組み合わせを 従って 　 For j = i To N 　A列　B列　C列　D列 　　nConti = 1 ▽最初にa.b.cの３つのうちのひとつが選べる 　　With rSrc(1, rSrc.Columns.Count + 3) A2セルに連番として 1 　End If １　２　３　４　という４個の数字(文字)がある場合， (2)同一のデータ同士が当たらないように、斜めに線を(自動で)引く End Sub