No.2ベストアンサー
- 回答日時:
>B1を起点に(10個の中から、6個取る重複順列を列挙する場合)なら210通りすべての組み合わせを表示
B列~G列に210行表示しました。
Sub 組合せ()
Dim i As Long, v As Variant
Dim n1 As Long, n2 As Long, n3 As Long, n4 As Long, n5 As Long, n6 As Long
v = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J")
For n1 = 1 To 10 - 5
For n2 = n1 + 1 To 10 - 4
For n3 = n2 + 1 To 10 - 3
For n4 = n3 + 1 To 10 - 2
For n5 = n4 + 1 To 10 - 1
For n6 = n5 + 1 To 10
i = i + 1
Cells(i, "B").Value = v(n1 - 1)
Cells(i, "C").Value = v(n2 - 1)
Cells(i, "D").Value = v(n3 - 1)
Cells(i, "E").Value = v(n4 - 1)
Cells(i, "F").Value = v(n5 - 1)
Cells(i, "G").Value = v(n6 - 1)
Next n6
Next n5
Next n4
Next n3
Next n2
Next n1
End Sub
No.1
- 回答日時:
結果をどう得たいのか、補足してください。
#そのそも「何の」マクロなんでしょうかね?ExcelのVBA?
#ロト6とminiロトの予想アプリを探すほうが楽かも
この回答への補足
マクロって色々あるんですか?知りませんでした。ぼくの知りたいのはエクセルのVBAのことです。なにぶん最近、パソコンを始めたばかりで知らないことだらけです。質問の仕方が悪かったみたいで、失礼しました。
お察しの通り、ぼくのしたいことはロト6の予想をする時に組み合わせを自分なりに組んでみたいと思ったのです。なので、ご指摘の予想アプリを探したほうが楽だとは思いますが、自分で作ったもので色々検討しながら組み合わせの予想をしてみたいのです。そのほうが見えない何かを見いだせるのではないかと考えています。
初心者には無理だと言われれば、それまでなのですが自分でどこまでできるのかを試してみたいと思っています。お時間のあればご指導ください。
ぼくの知りたい結果は、例えば、A1セルでマクロをスタートさせたら、B1を起点に(10個の中から、6個取る重複順列を列挙する場合)なら210通りすべての組み合わせを表示させたいと思っています。
よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
VBAで順列を表示させる方法
PowerPoint(パワーポイント)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで特定の列が0表示の場...
-
メッセージボックスのOKボタ...
-
ExcelのVBA。public変数の値が...
-
Excel・Word リサーチ機能を無...
-
Excel マクロ VBA プロシー...
-
Excel VBAからAccessマクロを実...
-
ファイルが見つからない時、ス...
-
c言語で言うところの #define
-
Excel 毎日手作業で時間がかか...
-
エクセルに張り付けた写真のフ...
-
エクセルマクロにて
-
Excel マクロでShearePoint先の...
-
EXCELのVBAマクロでパソコンを...
-
Office365 (Excel) におけるシ...
-
Accessのテーブル、クエリをCSV...
-
オートフィルターとExcelマクロ...
-
マクロのクリア設定がシートの...
-
印刷枚数を指定して印刷(印刷...
-
UWLSの記録でマクロを作成し使...
-
FOM出版 Excelビジネス活用編...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
特定のPCだけ動作しないVBAマク...
-
Excel・Word リサーチ機能を無...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
-
エクセルに張り付けた写真のフ...
-
Excel VBAからAccessマクロを実...
-
Excel マクロでShearePoint先の...
-
特定文字のある行の前に空白行...
-
エクセルで別のセルにあるふり...
-
TERA TERMを隠す方法
-
wordを起動した際に特定のペー...
-
マクロ実行時、ユーザーフォー...
-
ExcelVBAでPDFを閉じるソース
-
【EXCEL VBA】オートシェイプを...
-
Excel_マクロ_現在開いているシ...
-
EXCELマクロでのThisisWor...
-
ソース内の行末に\\
おすすめ情報