[& Chronicle] 경우의 수 구하기

https://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=321105342에 올라온 질문입니다.

5개의 경우이므로 순환문을 다섯개로 하드하게 했습니다.

Chronicle 님은 함수 한 줄로 멋지게 해결했습니다.

함수의 세계는 알면 알 수록 무궁무진한 것 같습니다.

https://blog.naver.com/asaph16/221465069552

통합 문서1.xlsm

Option Base 1 Sub Macro()       Dim a As Integer     Dim b As Integer     Dim c As Integer     Dim d As Integer     Dim e As Integer     Dim v(2) As String     Dim tmp(5) As String     Dim r As Integer          r = 1     v(1) = "a"     v(2) = "b"          For a = 1 To 2                  For b = 1 To 2                      For c = 1 To 2                              For d = 1 To 2                                      For e = 1 To 2                                                  tmp(1) = v(a)                         tmp(2) = v(b)                         tmp(3) = v(c)                         tmp(4) = v(d)                         tmp(5) = v(e)                                                  Cells(r, 1).Resize(, 5) = tmp                         r = r + 1                                              Next                                      Next                              Next                      Next              Next      End Sub   Colored by Color Scripter

cs