ここから本文です

ロト6の組み合わせを作ろうと思っています。

hatuka0326さん

2017/12/1120:01:56

ロト6の組み合わせを作ろうと思っています。

Sub 組合せマクロ()
Dim Cno As Integer, Rno As Integer
Dim Kazu As Integer
Dim Eflg(1 To 28) As Boolean
Randomize

For Cno = 2 To 11
Erase Eflg
For Rno = 6 To 11
Do
Kazu = Int((28 - 1 + 1) * Rnd + 1)
Loop Until Eflg(Kazu) = False
Cells(Rno, Cno).Value = Kazu
Eflg(Kazu) = True
Next Rno
Next Cno
End Sub

このマクロは、1から28までの数字をB列からK列までの6行目から11行目までに各列重複の無いように組み合わせる。しかしこの最小と最大数字が頻繁に変更しなくてはならず、その都度マクロを開いて変更するのが手間です。

希望としては、どこかのセルに(例えばA1セルに最小値、A2セルに最大値)を入れれば反映できるマクロって可能でしょうか?

このマクロもネットで色々と探してようやく見つけました。
どういうマクロを書けばいいのかわかりません。どなたか詳しくご教授お願い致します。。

閲覧数:
98
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

kiku30246さん

2017/12/1206:49:13

以下参考になりますか?

以下は A 列を書き換えるだけです

エクセルで10個の数字から6個の組み合わせを表に
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q141804064...

とか
A 列に記述したものの中から、個数限定でランダム抽出するのなら

ロトの組合せについて教えて下さい。マクロ勉強
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q121755865...

  • 質問者

    hatuka0326さん

    2017/12/1318:10:25

    kiku30246さん
    早速のご返事ありがとうございました。
    私的には2017/6/20 18:02:53 にご回答されていたのが
    ピッタリです。さすがです。

    一つだけ希望ですが私の場合、D2からI51まで6個の数字を50組並ぶようにしています。そしてJ1からP 1に最新回の当選番号を表示させ50組の当選結果を確認できるようにしています。
    しかし、マクロを実行するとJ列以降が消えてしまいます。
    これは仕方ないのでしょうか?

  • その他の返信(2件)を表示

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

この質問は投票によってベストアンサーに選ばれました!

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。