-
[& Chronicle] 경우의 수 구하기VB(A)/당근쨈 & Chronicle 2019. 2. 13. 21:07
https://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=321105342에 올라온 질문입니다.
5개의 경우이므로 순환문을 다섯개로 하드하게 했습니다.
Chronicle 님은 함수 한 줄로 멋지게 해결했습니다.
함수의 세계는 알면 알 수록 무궁무진한 것 같습니다.
https://blog.naver.com/asaph16/221465069552
Option Base 1Sub Macro()Dim a As IntegerDim b As IntegerDim c As IntegerDim d As IntegerDim e As IntegerDim v(2) As StringDim tmp(5) As StringDim r As Integerr = 1v(1) = "a"v(2) = "b"For a = 1 To 2For b = 1 To 2For c = 1 To 2For d = 1 To 2For e = 1 To 2tmp(1) = v(a)tmp(2) = v(b)tmp(3) = v(c)tmp(4) = v(d)tmp(5) = v(e)Cells(r, 1).Resize(, 5) = tmpr = r + 1NextNextNextNextNextEnd Subcs 'VB(A) > 당근쨈 & Chronicle' 카테고리의 다른 글
[& Chronicle] 지정기간의 합 구하기 (0) 2019.02.22 [& Chronicle] 정규식으로 특수문자 제외하고 문자와 숫자만 분리하기 (0) 2019.02.15 [& Chronicle] 연속근무 일수 구하기 (0) 2019.02.13 [& Chronicle] 원하는 글자 추출하기 (0) 2017.05.14 [& Chronicle] 표 구조 바꾸기 (0) 2017.05.11 댓글