１２３４５６７８９の順番の並びを得るためのマクロは

質問

エクセル上でのマクロを作っています。

結果としてこのようなものが表示される様なマクロを考えています。

１　２　３　４　５　６　７　８　９
１　２　３　４　５　６　７　９　８
１　２　３　４　５　６　８　７　９
１　２　３　４　５　６　８　９　７
１　２　３　４　５　６　９　７　８
１　２　３　４　５　６　９　８　７
１　２　３　４　５　７　６　８　９
…
といった具合です。
１つ１つの文字がひとつひとつのセルに入っている様にしたいと思います。
どんなマクロを組んだらいいのか、教えて頂けるとありがたいです。
よろしくお願いいたします。

回答No.2

kokorone · ベストアンサー

おっしゃっている意味が理解できません。
１～９の順列のパターン表ということでしょうか？
そうだとすると、１０！通り（１０の階乗）＝3628800通りとなり、
Ｅｘｃｅｌでは、32767行までしか設定できないため、オーバーフロー
します。
それでもよければ、以下をどうぞ。
また、勘違いかなぁ。
Sub Macro1()
Dim r_idx As Integer
Dim c_idx1 As Integer
Dim c_idx2 As Integer
Dim c_idx3 As Integer
Dim c_idx4 As Integer
Dim c_idx5 As Integer
Dim c_idx6 As Integer
Dim c_idx7 As Integer
Dim c_idx8 As Integer
Dim c_idx9 As Integer
Dim result1 As String
Dim result2 As String
Dim result3 As String
Dim result4 As String
Dim result5 As String
Dim result6 As String
Dim result7 As String
Dim result8 As String
Dim result9 As String

r_idx = 1

For c_idx1 = 1 To 9
Cells(r_idx, 1).Value = c_idx1
result1 = "" & c_idx1
For c_idx2 = 1 To 9
If InStr(result1, "" & c_idx2) = 0 Then
result2 = result1 & c_idx2
For c_idx3 = 1 To 9
If InStr(result2, "" & c_idx3) = 0 Then
result3 = result2 & c_idx3
For c_idx4 = 1 To 9
If InStr(result3, "" & c_idx4) = 0 Then
result4 = result3 & c_idx4
For c_idx5 = 1 To 9
If InStr(result4, "" & c_idx5) = 0 Then
result5 = result4 & c_idx5
For c_idx6 = 1 To 9
If InStr(result5, "" & c_idx6) = 0 Then
result6 = result5 & c_idx6
For c_idx7 = 1 To 9
If InStr(result6, "" & c_idx7) = 0 Then
result7 = result6 & c_idx7
For c_idx8 = 1 To 9
If InStr(result7, "" & c_idx8) = 0 Then
result8 = result7 & c_idx8
For c_idx9 = 1 To 9
If InStr(result8, "" & c_idx9) = 0 Then
Cells(r_idx, 1).Value = c_idx1
Cells(r_idx, 2).Value = c_idx2
Cells(r_idx, 3).Value = c_idx3
Cells(r_idx, 4).Value = c_idx4
Cells(r_idx, 5).Value = c_idx5
Cells(r_idx, 6).Value = c_idx6
Cells(r_idx, 7).Value = c_idx7
Cells(r_idx, 8).Value = c_idx8
Cells(r_idx, 9).Value = c_idx9
result9 = result8 & c_idx9
r_idx = r_idx + 1

End If
Next c_idx9
End If
Next c_idx8
End If
Next c_idx7
End If
Next c_idx6
End If
Next c_idx5
End If
Next c_idx4
End If
Next c_idx3
End If
Next c_idx2

Next c_idx1

End Sub

お礼

度々のご回答ありがとうございます。
そうですね、オーバーフローしてしまいますね＾＾；
でも、そういったことなんです。どうもありがとうございます。
実を言いますと、次の問題の解を求めるマクロを作ろうと思っていたんです。
「ＯＯＯ＋ＯＯＯ＝ＯＯＯ
　ここに登場するあわせて９つの数字は、１～９の数字で、同じ数字が２度使われることはないものとする。このとき、式を満たす９つの数字の並びを全て書き出しなさい」といった問題です。
質問させていただいたような一覧表があれば、かんたんだなあと思った、ということなんです。
お示しいただいた方法を利用して変数に記録させれば、この問題は簡単に解けると思います。でも、もし、それ以外の方法で解くことができるというのがもしあれば、教えていただけると幸いです。

回答No.5

kokorone

#2です。
＃２で提示したマクロを少し手を加えればできますよね。
３桁を1セルに、１パターンで３列でテキストファイルに出力する
だけです。

お礼

どうもありがとうございます。
おかげで問題は解決しそうです＾＾

回答No.4

toshi_2000

８割ほどマクロが完成していたのですが、一晩のうちに皆さんに先を越されました。どうマクロにするかというところで時間を取ってしまいました。No.2さんに比べるとあまりにも貧弱なため、お見せすることもできません。マクロの勉強になりました。久しぶりに頭を使いました。

お礼

ありがとうございます。私も、頭の体操になりました。楽しいですねこういうの＾＾

回答No.3

type0000

1～9までの並び順ってことは、362880パターンの数字の並びということでしょうか？
1*2*3*4*5*6*7*8*9 = 362880
エクセルの表示結果で言うと(362880行×9列)のデータということでしょうか？

お礼

そうです、３６２８８０パターンです。
表示形式は、どのようでもかまいません。
（Ｎｏ．２のお礼の欄をご覧ください）

回答No.1

kokorone

Sub Macro1()
Dim r_idx As Integer
Dim c_idx As Integer

For r_idx = 1 To 9
For c_idx = 1 To 9
Cells(r_idx, c_idx).Value = c_idx
Next c_idx
Next r_idx

End Sub
これでいかがでしょうか？？

お礼

早速の解答ありがとうございます。
ただ、質問の意図が伝わっていなかったようで、わかりにくくてすみません。
ただ１から９を９回表示するのではなくて、質問の中にあります様な、ややこしい１から９の数字の入れ替えを表示したいのです。どうぞよろしくお願いいたします。