=종료일셀-시작일셀+1
예시: =E2-D2+1

J1셀에 프로젝트 시작일 입력 (예: 2024-01-01)
K1셀에 수식: =J1+1
K1셀을 오른쪽으로 드래그해서 원하는 기간만큼 복사
(예: 90일 프로젝트면 90개 열 생성)

=AND(J$1>=$D2, J$1<=$E2)

설명:
J$1 = 현재 열의 날짜 헤더 (행 고정, 열 유동)
$D2 = 해당 행의 시작일 (열 고정, 행 유동)
$E2 = 해당 행의 종료일 (열 고정, 행 유동)

→ 날짜 헤더가 시작일과 종료일 사이에 있으면 색칠!

Sub 간트차트생성()
    Dim ws As Worksheet
    Dim ganttWs As Worksheet
    Dim lastRow As Long
    Dim startDate As Date
    Dim endDate As Date
    Dim projectStart As Date
    Dim projectEnd As Date
    Dim i As Long, j As Long
    Dim col As Long
    
    ' 데이터 시트 설정
    Set ws = ThisWorkbook.Sheets("데이터")
    
    ' 간트 차트 시트 생성 또는 초기화
    On Error Resume Next
    Set ganttWs = ThisWorkbook.Sheets("간트차트")
    On Error GoTo 0
    
    If ganttWs Is Nothing Then
        Set ganttWs = ThisWorkbook.Sheets.Add(After:=ws)
        ganttWs.Name = "간트차트"
    Else
        ganttWs.Cells.Clear
    End If
    
    ' 마지막 행 찾기
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 프로젝트 전체 기간 계산
    projectStart = Application.WorksheetFunction.Min(ws.Range("D2:D" & lastRow))
    projectEnd = Application.WorksheetFunction.Max(ws.Range("E2:E" & lastRow))
    
    ' 헤더 작성
    ganttWs.Cells(1, 1).Value = "작업명"
    ganttWs.Cells(1, 2).Value = "담당자"
    ganttWs.Cells(1, 3).Value = "진행률"
    
    ' 날짜 헤더 생성
    col = 4
    Dim d As Date
    For d = projectStart To projectEnd
        ganttWs.Cells(1, col).Value = d
        ganttWs.Cells(1, col).NumberFormat = "d"
        ganttWs.Columns(col).ColumnWidth = 3
        col = col + 1
    Next d
    
    ' 헤더 스타일
    With ganttWs.Rows(1)
        .Interior.Color = RGB(106, 174, 214)
        .Font.Color = RGB(255, 255, 255)
        .Font.Bold = True
    End With
    
    ' 데이터 행 작성
    For i = 2 To lastRow
        ganttWs.Cells(i, 1).Value = ws.Cells(i, 2).Value  ' 작업명
        ganttWs.Cells(i, 2).Value = ws.Cells(i, 3).Value  ' 담당자
        ganttWs.Cells(i, 3).Value = ws.Cells(i, 7).Value  ' 진행률
        
        startDate = ws.Cells(i, 4).Value  ' 시작일
        endDate = ws.Cells(i, 5).Value    ' 종료일
        
        ' 간트 막대 색칠
        col = 4
        For d = projectStart To projectEnd
            If d >= startDate And d <= endDate Then
                ' 완료된 부분 계산
                Dim progress As Double
                progress = ws.Cells(i, 7).Value / 100
                Dim completedDate As Date
                completedDate = startDate + (endDate - startDate) * progress
                
                If d <= completedDate Then
                    ' 완료된 부분 - 진한 파란색
                    ganttWs.Cells(i, col).Interior.Color = RGB(44, 95, 122)
                Else
                    ' 남은 부분 - 연한 파란색
                    ganttWs.Cells(i, col).Interior.Color = RGB(200, 230, 245)
                End If
            End If
            col = col + 1
        Next d
        
        ' 짝수/홀수 행 배경색
        If i Mod 2 = 0 Then
            ganttWs.Cells(i, 1).Interior.Color = RGB(244, 249, 252)
            ganttWs.Cells(i, 2).Interior.Color = RGB(244, 249, 252)
            ganttWs.Cells(i, 3).Interior.Color = RGB(244, 249, 252)
        End If
    Next i
    
    ' 열 너비 자동 조정
    ganttWs.Columns("A:C").AutoFit
    
    MsgBox "간트 차트가 생성되었습니다! 🎉", vbInformation
End Sub

' 전체 작업 수
=COUNTA(데이터!B2:B100)

' 완료된 작업 수
=COUNTIF(데이터!H2:H100,"완료")

' 진행중인 작업 수
=COUNTIF(데이터!H2:H100,"진행중")

' 지연된 작업 수
=COUNTIF(데이터!H2:H100,"지연")

' 전체 완료율 (%)
=COUNTIF(데이터!H2:H100,"완료")/COUNTA(데이터!B2:B100)*100

' 평균 진행률
=AVERAGE(데이터!G2:G100)

' 오늘 기준 지연 작업 (종료일이 오늘보다 이전인데 완료 안 된 것)
=COUNTIFS(데이터!E2:E100,"<"&TODAY(),데이터!H2:H100,"<>완료")

' 오늘 기준 3일 이내 마감 (아직 완료 안 된 것)
=AND($E2-TODAY()<=3, $E2-TODAY()>=0, $H2<>"완료")

' 이미 지연된 작업
=AND($E2<TODAY(), $H2<>"완료")

' 오늘 마감인 작업
=AND($E2=TODAY(), $H2<>"완료")

' 시작일로부터 10 영업일 후 날짜
=WORKDAY(시작일, 10)

' 시작일로부터 10 영업일 후 (공휴일 제외)
=WORKDAY(시작일, 10, 공휴일범위)

' 두 날짜 사이의 영업일 수
=NETWORKDAYS(시작일, 종료일)

' 공휴일 제외한 영업일 수
=NETWORKDAYS(시작일, 종료일, 공휴일범위)

예시:
=WORKDAY(D2, 10)  → D2 날짜로부터 10 영업일 후
=NETWORKDAYS(D2, E2)  → D2~E2 사이 영업일 수

' I열에 선행 작업 ID가 있을 때 (예: "T001")
' 선행 작업의 종료일 + 1일을 시작일로 자동 설정

=IF(I2="", D2, VLOOKUP(I2, $A$2:$E$100, 5, 0)+1)

설명:
- I2가 비어있으면 수동 입력한 시작일(D2) 사용
- I2에 선행 작업 ID가 있으면 해당 작업의 종료일(5번째 컬럼) + 1일

' 여러 선행 작업이 있을 때 (가장 늦은 종료일 기준)
=IF(I2="", D2, 
  MAX(IFERROR(VLOOKUP(TRIM(MID(SUBSTITUTE(I2,",",REPT(" ",100)),
  (ROW(INDIRECT("1:"&LEN(I2)-LEN(SUBSTITUTE(I2,",",""))+1))-1)*100+1,100)),
  $A$2:$E$100,5,0),0))+1)

' 간트 차트 날짜 헤더 행에 조건부 서식 추가
' 오늘 날짜 열 강조

=J$1=TODAY()

' 서식: 진한 테두리 + 연한 노란색 배경
' 이 규칙을 날짜 헤더 행과 전체 간트 영역에 동시 적용하면
' 오늘 날짜 열 전체가 강조되어 현재 위치를 쉽게 파악 가능!

' 수식 탭 → 이름 정의
작업목록 = 데이터!$B$2:$B$100
시작일목록 = 데이터!$D$2:$D$100
종료일목록 = 데이터!$E$2:$E$100
상태목록 = 데이터!$H$2:$H$100

' 이름 정의 후 수식이 이렇게 바뀜
=COUNTIF(상태목록,"완료")  ← 훨씬 읽기 쉽지?

Sub 버전저장()
    Dim fileName As String
    fileName = "프로젝트관리_" & Format(Now(), "YYYYMMDD_HHMMSS") & ".xlsx"
    ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & fileName
    MsgBox "백업 저장 완료: " & fileName
End Sub

' 페이지 레이아웃 탭에서
- 용지 방향: 가로
- 배율: 페이지에 맞춤 (1페이지 너비 × 자동 높이)
- 인쇄 영역 설정: 필요한 범위만 선택 후 인쇄 영역 설정
- 반복할 행: 1행 (날짜 헤더가 모든 페이지에 반복 출력)

' 날짜 기반 예상 진행률 (%)
=IF(TODAY()<D2, 0,                          ← 아직 시작 안 함
  IF(TODAY()>E2, 100,                        ← 이미 종료일 지남
    ROUND((TODAY()-D2)/(E2-D2)*100, 0)))     ← 진행 중

' D2=시작일, E2=종료일

' 실제 진행률 vs 예상 진행률 비교 (지연 여부 판단)
=G2 - IF(TODAY()<D2, 0, IF(TODAY()>E2, 100, ROUND((TODAY()-D2)/(E2-D2)*100,0)))
' 양수 = 예상보다 빠름, 음수 = 예상보다 느림 (지연)

' 번다운 차트 데이터 구성
날짜 | 이상적 남은 작업 | 실제 남은 작업
D1   | 전체 작업 수     | 전체 작업 수
D2   | =D1-이상적감소량 | 실제 미완료 작업 수
D3   | =D2-이상적감소량 | 실제 미완료 작업 수
...

' 이상적 감소량 = 전체 작업 수 / 전체 기간(일)
' 실제 남은 작업 = COUNTIF(상태목록,"<>완료")

' 이 데이터로 꺾은선형 차트 생성하면 번다운 차트 완성!