HOME > Q&A > Excel （一般機能）

Excel （一般機能）
Excelの一般機能に関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10全般 : Excel 2016)
組合せパターン数の計算式は？（その２）
投稿日時: 21/03/10 15:51:04
投稿者: WinArrow
投稿者のウェブサイトに移動

https://www.moug.net/faq/viewtopic.php?t=80348
 
解決したと思ったが、
 
箱が４つまでは、tだしい答えのなったが、
箱が5つの場合　⇒243　はやはりおかしい。
 
再度、お願い致します。
 
回答
投稿日時: 21/03/10 16:22:42
投稿者: hatena
投稿者のウェブサイトに移動

正しいと思います。
 
とりあえず列挙してみました。
1行目は 

問1	問2	問3	問4	問5

として2行目から列挙します。
 
Sub Proc1()
    Dim rng As Range
    Set rng = Range("A2:E2")
    
    Dim i, j, k, l, m
    For i = 1 To 3
        For j = 1 To 3
            For k = 1 To 3
                For l = 1 To 3
                    For m = 1 To 3
                        rng.Value = Array(i, j, k, l, m)
                        Set rng = rng.Offset(1)
                    Next
                Next
            Next
        Next
    Next
End Sub

 
最終行は 244 ということで件数は243でいいと思います。

回答
投稿日時: 21/03/10 16:29:50
投稿者: んなっと

重複順列　でYoutube検索してみてください。どの動画もわかりやすいです。
 
Excelの関数を無理やり使うと
3^5=PERMUTATIONA(3,5)
 
投稿日時: 21/03/10 17:10:33
投稿者: WinArrow
投稿者のウェブサイトに移動

hatena さん
 
コードをありがとうございます。
 
んなっと　さん、
 
目からうろこです。
 
ありがとうございます。
このような関数には、今迄、縁がなかったので、
PERMUT
COMBAIN
あたりを試していましたが、
なかなか、思った通りの結果がでず
パニック状態になっていました。
 
ありがとうございました。