프로젝트 투입 인력 관리 매크로

프로젝트를 관리하다보면 투입인력 현황을 체크해야 하는 상황이 발생합니다. 

이걸 매일 관리하기도 힘들고 그렇다고 한달에 한번만하기도 그렇고...

그래서 만들었습니다. 인력관리매크로

첫페이지에 투입인력 정보를 입력합니다. 

두번째 페이지에 해당 인력의 투입내역이 나타나는 구조입니다. 

먼저 인력 정보를 입력하는 화면입니다 

이름 소속사 업무 투입일과 철수일 등급을 입력합니다.

그리고 전체처리 버튼을 클릭합니다. 

그러면 다음페이지에 아래와 같은 모양이 나타납니다. 

먼저 회사 업무 등 의 타이틀과 날짜는 입력해 두어야 합니다. 

7번째 행은 현재까지 인력별 투입일수입니다. 

세번째 열은 현재 투입되어 있는 인력의 수 입니다. 

철수일은 오늘을 기준으로 철수한 인력에만 표시됩니다. 

오늘 날짜에 노란색 채우기가 된 부분은 자동서식을 적용했습니다. 

셀값 = today()를 사용하였습니다. 

여기서부터 매크로 소스입니다. 

간단한 소스입니다. 그래도 편리하게 사용하실 수 있습니다. 

Sub setHPlanAll()

    Sheets(2).Select

    Range(Cells(1, 4), Cells(6, 120)).ClearContents

    Range(Cells(8, 4), Cells(300, 120)).ClearContents

    

    Sheets(1).Select

        

    i = 4

    Do While i < 100

        '회사'

        Sheets(2).Cells(1, i) = Cells(i, 3)

        

        '업무'

        Sheets(2).Cells(2, i) = Cells(i, 4)

        

        '이름'

        Sheets(2).Cells(3, i) = Cells(i, 2)

        

        '등급'

        Sheets(2).Cells(4, i) = Cells(i, 9)

        

        '투입일

        Sheets(2).Cells(5, i) = Cells(i, 5)

        

        '철수일

        outDate = Cells(i, 6)

        If outDate <= Date Then

                    Sheets(2).Cells(6, i) = Cells(i, 6)

        Else

        End If

        '다 했으면 종료

        If Cells(i, 2) = "" Then

            Exit Do

        End If

        

        '투입일'

        inDate = Cells(i, 5)

        '철수일'

                

        '2번 시트로 이동함

        Sheets(2).Select

        dd = 8

        Do While dd < 300

            sdDate = Cells(dd, 1)

            If inDate <= sdDate Then

                Cells(dd, i) = 1

            End If

            If sdDate = outDate Then

                Exit Do

            End If

            If sdDate = Date Then

                Exit Do

            End If

            

            dd = dd + 1

        Loop

        

        '1번 시트로 이동함

        Sheets(1).Select

        

        i = i + 1

        

    Loop

    

    '2번 시트로 이동함

    Sheets(2).Select

    

End Sub