VBAにて ひらがな３個の総組合せを作りたい

質問

セルＡ１に”あああ”、Ａ２に”ああい”、Ａ３に”ああう”、・・・、”んんん”

というふうに、ひらがな３個を使った総組合せをＡ列に
作りたいのですが、お分かりの方教えてください。

回答No.4

mshr1962 · ベストアンサー

#3です。すみませんVBAででしたね。
単純な方法ならFor To Next文かDo loop文での繰り返しで出来ます。

Sub hiraganaset()
Dim hkana As String
Dim X1, X2, X3 As Integer
hkana = "あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわをんがぎぐげござじずぜぞだぢづでどばびぶべぼぱぴぷぺぽ"
For X1 = 1 To 71
For X2 = 1 To 71
For X3 = 1 To 71
ActiveSheet.Cells((X2 - 1) * 71 + X3, X1).Value = Mid(hkana, X1, 1) & Mid(hkana, X2, 1) & Mid(hkana, X3, 1)
Next X3
Next X2
Next X1
End Sub

お礼

回答ありがとうございます。
ものすごく処理時間が掛かるものなのですね。
でも目的は達成できたので満足です。

回答No.3

mshr1962

５０音（４６文字）、濁点（２０文字）、半濁点（５文字）だと
７１×７１×７１で３５７，９１１通りですがいいのでしょうか？
第一段階として
A1:A72に７１のひらがなを入力してください。
B1=OFFSET($A$1,MOD(COLUMN()-2,71))&OFFSET($A$1,MOD(ROW()-1,71))&OFFSET($A$1,MOD((ROW()-1)/71,71))
としてこの式をB1:BT5041の範囲にコピー＆ペースト

お礼

回答ありがとうございます。

回答No.2

m3_maki

「総組合せ」ということで
「ああい」と「あいあ」と「いああ」は同じものと考えてよろしいのでしょうか？
だとすると、17296個ですが。
濁点、半濁点、小文字は含まず、
ヤ行：ヤユヨ
ワ行：ワヲ
の条件で。

Access ならクエリで簡単にできるんですけどね。

お礼

回答ありがとうございます。

>「ああい」と「あいあ」と「いああ」は同じものと考えてよろしいのでしょうか？

別のものとして下さい。

>濁点、半濁点、小文字は含まず、

すみません。気づいていませんでした。
出来れば濁点も含めたいです。

>ヤ行：ヤユヨ
>ワ行：ワヲ
>の条件で。

これはこれでＯＫです。

>Access ならクエリで簡単にできるんですけどね。

すみません。将来の拡張性も考えるとＶＢＡでやりたいのですが。

回答No.1

ASIMOV

エクセルのＡ列は、６５，５３６行です
”あああ”．．．”んんん”の組み合わせ数は、９７，３３６個

．．．どうしましょう？

お礼

回答ありがとうございます。

贅沢を言えば、B列に移動してもいいですし、
A列で出来る組み合わせまででもいいです。