당직1 [VBA] 근무계획서 만들기 두달간의 당직 근무계획서를 작성하는 구문. 조건1. 직원그룹은 모두 한번씩은 중복없이 근무를 서야한다. 조건2. 당직선 직원은 다음날 근무에서 제외한다. 중복없이 고유값을 가져오거나 랜덤하게 숫자를 섞을 때는 Collection 이 참 편하다. 더보기 Option Explicit Sub 근무계획서() Dim Col As Collection Dim Vall: Vall = [g5:g9] Dim n&, rowC&, Cnt&, i&, color&: color = 1 Dim rngX As Range: Set rngX = [b5] Do haja: Set Col = New Collection '= 컬렉션 선언 Do Until Col.Count >= 5 '= 중복되지 않은 컬렉션 아이템이 5개 될때까지 '= 무한 반복.. 2022. 12. 9. 이전 1 다음
