배열나누기1 [VBA] 등급별 랜덤 순번과 전체순번을 구하라 등급은 A,B,C,D,E 총 5 등급이 있다. 등급을 나누는 조건은 또 있는데 5등급을 임의로 나누어서 셀에 뿌려 놓았다. 영역 [F1:G6]는 전체 영역에서 각 등급의 구성갯수를 엑셀의 Countif를 통해서 구하였다. 랜덤값을 구해야 함으로 Application.Randbetween(1 to 마지막값)을 구해야 한다. 각 등급별로 마지막값이 다르므로 전체영역을 순환하면서 등급을 확인 후 해당 등급의 구성값을 끌어와서 랜덤값을 도출하여야 한다. 도출된 값이 기존에 있던 값인지 결과배열(임시배열)에서 찾아본 후 값이 정상적으로 도출이 된다면 값이 중복 되었다는 것이고 값이 "Error"로 도출이 된다면 중복이 되지 않았다는 뜻이므로 셀에 출력 후 다음을 위해 중복 되지 않은 값을 배열에 담아주는 방식으로.. 2022. 4. 12. 이전 1 다음
