AI, VBA, Python으로 끝내는 MS 오피스 자동화

교육 안내문 써줘

너는 대기업 인사팀 사원이야.
다음 주 화요일에 진행하는 사내 엑셀 교육에 대한 안내문을 작성해줘.

- 교육명: 엑셀 데이터 분석 실무
- 일시: 2026년 3월 24일(화) 14:00~17:00
- 장소: 본사 8층 대회의실
- 대상: 전 직원 (선착순 30명)
- 신청 방법: 사내 인트라넷 > 교육 신청
- 마감: 3월 20일(금)

공식적이지만 딱딱하지 않은 톤으로, 300자 내외로 작성해줘.

다음 조건에 맞는 체크리스트를 만들어줘.

- 대상: 신입사원 온보딩
- 기간: 입사 후 첫 1주일
- 항목 수: 10개
- 카테고리: 행정, IT, 팀 적응
- 형식: 체크박스가 있는 표

# 역할
너는 10년 경력의 HR 컨설턴트야.

# 작업
아래 직원 데이터를 분석하여 이직 위험군을 식별해줘.

# 데이터
- 직원 수: 1,470명
- 컬럼: 나이, 퇴사여부, 부서, 직무만족도, 월급, 초과근무, 근속연수

# 출력 형식
- 이직 위험 요인 3가지
- 각 요인별 근거
- 대응 방안 1줄씩

직원 피드백을 긍정/부정/중립으로 분류해줘.

"팀 분위기가 좋아서 출근이 즐겁습니다."

직원 피드백을 분류해줘. 아래 예시와 같은 형식으로 출력해줘.

예시)
피드백: "급여가 시장 대비 낮은 것 같습니다."
분류: 부정
키워드: 급여, 불만족

---

피드백: "팀 분위기가 좋아서 출근이 즐겁습니다."

직원 피드백을 분류해줘. 아래 예시들과 같은 형식으로 출력해줘.

예시 1)
피드백: "급여가 시장 대비 낮은 것 같습니다."
분류: 부정
키워드: 급여, 불만족

예시 2)
피드백: "재택근무 제도가 잘 되어 있어요."
분류: 긍정
키워드: 근무환경, 만족

예시 3)
피드백: "교육 프로그램이 다양했으면 합니다."
분류: 중립
키워드: 교육, 개선요청

---

아래 피드백들을 같은 형식으로 분류해줘.

1. "팀 분위기가 좋아서 출근이 즐겁습니다."
2. "야근이 너무 잦아 힘듭니다."
3. "사내 동호회 활동이 활발합니다."

[1단계: 초안 요청]
사내 교육 안내문을 작성해줘.

[2단계: 구체화]
좀 더 공식적인 톤으로 바꿔줘. 교육 일시와 장소를 강조해줘.

[3단계: 형식 조정]
핵심 정보를 표로 정리하고, 하단에 문의처를 추가해줘.

[4단계: 세부 수정]
"신청 마감"을 빨간색 강조 표시로 바꾸고, 전체 길이를 200자로 줄여줘.

처음: "HR 데이터 분석 보고서 목차를 만들어줘"
이어서: "2번 항목을 더 세분화해줘"
이어서: "각 항목에 예상 분량(페이지 수)을 추가해줘"
이어서: "이 목차에 맞는 서론을 500자로 써줘"

교육 안내문 써줘

너는 대기업 인사팀 사원이야.
다음 주 화요일에 진행하는 사내 엑셀 교육에 대한 안내문을 작성해줘.

- 교육명: 엑셀 데이터 분석 실무
- 일시: 2026년 3월 24일(화) 14:00~17:00
- 장소: 본사 8층 대회의실
- 대상: 전 직원 (선착순 30명)
- 신청 방법: 사내 인트라넷 > 교육 신청
- 마감: 3월 20일(금)
- 톤: 공식적이지만 딱딱하지 않게
- 분량: 300자 내외

엑셀에서 O열에 직급 데이터(1~5)가 있어.
AJ1에 "직급", AK1에 "인원수" 헤더를 넣고,
AJ2:AJ6에 직급 번호 1~5를 넣고,
AK2:AK6에 각 직급별 인원 수를 COUNTIF로 구하는 수식을 알려줘.

데이터는 2행부터 1471행까지 있어.

엑셀에서 E열에 부서(영업, 연구개발, 인사), S열에 월급 데이터가 있어.
AM1에 "부서", AN1에 "평균월급" 헤더를 넣고,
AM2에 "영업", AM3에 "연구개발", AM4에 "인사"를 넣고,
AN2:AN4에 각 부서별 평균 월급을 AVERAGEIF로 구하는 수식을 알려줘.

데이터는 2행부터 1471행까지 있어.

엑셀에서 E열에 부서 데이터가 있어.
AP1에 "고유부서목록" 헤더를 넣고,
AP2에 UNIQUE 함수로 고유한 부서 목록을 추출하는 수식을 알려줘.

엑셀에서 O열에 직급 데이터가 있어.
직급이 1인 행 전체를 주황색 배경으로 강조하는 조건부 서식을 설정하는 방법을 알려줘.

엑셀에서 다음 조건으로 필터링하는 방법을 알려줘.
- E열(부서) = "영업"
- S열(월급) >= 5000

엑셀에서 Y열에 성과등급(1~4)이 있어.
AJ1에 "평가등급텍스트" 헤더를 넣고,
AJ2에 IF 함수로 1=미흡, 2=보통, 3=우수, 4=탁월로 변환하는 수식을 알려줘.

엑셀에서 다음 조건을 모두 만족하면 "관리대상", 아니면 공백을 반환하는 수식을 알려줘.
- Q열(직무만족도) <= 2
- K열(환경만족도) <= 2
- AE열(워라밸) <= 2

AK1에 "관리대상여부" 헤더를 넣고, AK2에 수식을 넣을 거야.

엑셀 VBA 매크로를 작성해줘.

# 데이터
- 시트명: Sheet1
- O열: 직급 (1~5), 2행~1471행

# 작업
- AJ1에 "직급", AK1에 "인원수" 헤더 입력
- AJ2:AJ6에 직급 번호 1~5 입력
- AK2:AK6에 각 직급별 인원 수를 COUNTIF 수식으로 입력
- 완료 후 MsgBox로 완료 메시지 표시

# 주의
- 한글은 ChrW() 함수를 사용할 것

Sub 직급별인원수()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    ' 헤더 입력
    ws.Range("AJ1").Value = ChrW(51649) & ChrW(44553)  ' 직급
    ws.Range("AK1").Value = ChrW(51064) & ChrW(50896) & ChrW(49688)  ' 인원수

    ' 직급 번호 입력
    Dim i As Long
    For i = 1 To 5
        ws.Cells(i + 1, 36).Value = i  ' AJ열 = 36번째
    Next i

    ' COUNTIF 수식 입력
    For i = 2 To 6
        ws.Cells(i, 37).Formula = "=COUNTIF($O$2:$O$1471,AJ" & i & ")"  ' AK열 = 37번째
    Next i

    MsgBox ChrW(51649) & ChrW(44553) & ChrW(48324) & " " & ChrW(51064) & ChrW(50896) & ChrW(49688) & " " & ChrW(44228) & ChrW(49328) & ChrW(51060) & " " & ChrW(50756) & ChrW(47308) & ChrW(46104) & ChrW(50632) & ChrW(49845) & ChrW(45768) & ChrW(45796) & "."
    ' "직급별 인원수 계산이 완료되었습니다."
End Sub

엑셀 VBA 매크로를 작성해줘.

# 데이터
- 시트명: Sheet1
- E열: 부서 (영업, 연구개발, 인사), 2행~1471행
- S열: 월급

# 작업
- AM1에 "부서", AN1에 "평균월급" 헤더 입력
- AM2에 "영업", AM3에 "연구개발", AM4에 "인사" 입력
- AN2:AN4에 각 부서별 평균 월급을 AVERAGEIF 수식으로 입력
- 완료 후 MsgBox로 완료 메시지 표시

# 주의
- 한글은 ChrW() 함수를 사용할 것

Sub 부서별평균월급()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    ' 헤더 입력
    ws.Range("AM1").Value = ChrW(48512) & ChrW(49436)  ' 부서
    ws.Range("AN1").Value = ChrW(54217) & ChrW(44512) & ChrW(50900) & ChrW(44553)  ' 평균월급

    ' 부서명 입력
    ws.Range("AM2").Value = ChrW(50689) & ChrW(50629)  ' 영업
    ws.Range("AM3").Value = ChrW(50672) & ChrW(44396) & ChrW(44060) & ChrW(48156)  ' 연구개발
    ws.Range("AM4").Value = ChrW(51064) & ChrW(49324)  ' 인사

    ' AVERAGEIF 수식 입력
    Dim i As Long
    For i = 2 To 4
        ws.Cells(i, 40).Formula = "=AVERAGEIF($E$2:$E$1471,AM" & i & ",$S$2:$S$1471)"  ' AN열 = 40번째
    Next i

    MsgBox ChrW(48512) & ChrW(49436) & ChrW(48324) & " " & ChrW(54217) & ChrW(44512) & ChrW(50900) & ChrW(44553) & " " & ChrW(44228) & ChrW(49328) & ChrW(51060) & " " & ChrW(50756) & ChrW(47308) & ChrW(46104) & ChrW(50632) & ChrW(49845) & ChrW(45768) & ChrW(45796) & "."
    ' "부서별 평균월급 계산이 완료되었습니다."
End Sub

엑셀 VBA 매크로를 작성해줘.

# 데이터
- 시트명: Sheet1
- E열: 부서, 2행~1471행

# 작업
- AP1에 "고유부서목록" 헤더 입력
- E열에서 고유한 부서 값을 추출하여 AP2부터 아래로 입력
- Collection 또는 Dictionary를 사용하여 중복 제거
- 완료 후 MsgBox로 완료 메시지 표시

# 주의
- 한글은 ChrW() 함수를 사용할 것

Sub 고유부서목록()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    ' 헤더 입력
    ws.Range("AP1").Value = ChrW(44256) & ChrW(50976) & ChrW(48512) & ChrW(49436) & ChrW(47785) & ChrW(47197)  ' 고유부서목록

    ' Collection으로 고유값 추출
    Dim col As New Collection
    Dim cell As Range
    Dim val As String

    On Error Resume Next
    For Each cell In ws.Range("E2:E1471")
        val = cell.Value
        If val <> "" Then
            col.Add val, val
        End If
    Next cell
    On Error GoTo 0

    ' 고유값 입력
    Dim i As Long
    For i = 1 To col.Count
        ws.Cells(i + 1, 42).Value = col(i)  ' AP열 = 42번째
    Next i

    MsgBox ChrW(44256) & ChrW(50976) & " " & ChrW(48512) & ChrW(49436) & " " & ChrW(47785) & ChrW(47197) & ChrW(51060) & " " & ChrW(52628) & ChrW(52636) & ChrW(46104) & ChrW(50632) & ChrW(49845) & ChrW(45768) & ChrW(45796) & "."
    ' "고유 부서 목록이 추출되었습니다."
End Sub

엑셀 VBA 매크로를 작성해줘.

# 데이터
- 시트명: Sheet1
- O열: 직급, 2행~1471행
- 데이터 범위: A2:AI1471

# 작업
- O열(직급)이 1인 행 전체에 주황색 배경 조건부 서식 적용
- 조건부 서식 수식: =$O2=1
- 배경색: 주황색 (RGB 255, 165, 0)
- 완료 후 MsgBox로 완료 메시지 표시

# 주의
- 한글은 ChrW() 함수를 사용할 것

Sub 조건부서식적용()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    ' 데이터 범위 설정
    Dim rng As Range
    Set rng = ws.Range("A2:AI1471")

    ' 기존 조건부 서식 제거 (선택)
    rng.FormatConditions.Delete

    ' 조건부 서식 추가: O열 = 1이면 주황색 배경
    Dim fc As FormatCondition
    Set fc = rng.FormatConditions.Add(Type:=xlExpression, Formula1:="=$O2=1")
    fc.Interior.Color = RGB(255, 165, 0)
    fc.StopIfTrue = False

    MsgBox ChrW(51649) & ChrW(44553) & "=1 " & ChrW(54665) & ChrW(50640) & " " & ChrW(51452) & ChrW(54889) & ChrW(49353) & " " & ChrW(48176) & ChrW(44221) & ChrW(49353) & ChrW(51060) & " " & ChrW(51201) & ChrW(50857) & ChrW(46104) & ChrW(50632) & ChrW(49845) & ChrW(45768) & ChrW(45796) & "."
    ' "직급=1 행에 주황색 배경색이 적용되었습니다."
End Sub

엑셀 VBA 매크로를 작성해줘.

# 데이터
- 시트명: Sheet1
- E열(5번째): 부서
- S열(19번째): 월급
- 데이터 범위: A1:AI1471 (1행은 헤더)

# 작업
- E열 = "영업" AND S열 >= 5000 조건으로 AutoFilter 적용
- 완료 후 MsgBox로 완료 메시지 표시

# 주의
- 한글은 ChrW() 함수를 사용할 것

Sub 필터링실습()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    ' 기존 필터 해제
    If ws.AutoFilterMode Then ws.AutoFilterMode = False

    ' AutoFilter 적용
    Dim rng As Range
    Set rng = ws.Range("A1:AI1471")

    rng.AutoFilter Field:=5, Criteria1:=ChrW(50689) & ChrW(50629)  ' 부서 = "영업"
    rng.AutoFilter Field:=19, Criteria1:=">=5000"  ' 월급 >= 5000

    MsgBox ChrW(48512) & ChrW(49436) & "=" & ChrW(50689) & ChrW(50629) & ", " & ChrW(50900) & ChrW(44553) & ">=5000 " & ChrW(54596) & ChrW(53552) & ChrW(47553) & ChrW(51060) & " " & ChrW(51201) & ChrW(50857) & ChrW(46104) & ChrW(50632) & ChrW(49845) & ChrW(45768) & ChrW(45796) & "."
    ' "부서=영업, 월급>=5000 필터링이 적용되었습니다."
End Sub

엑셀 VBA 매크로를 작성해줘.

# 데이터
- 시트명: Sheet1
- Y열(25번째): 성과등급 (1~4), 2행~1471행

# 작업
- AJ1에 "평가등급텍스트" 헤더 입력
- AJ2:AJ1471에 IF 수식 입력: 1=미흡, 2=보통, 3=우수, 4=탁월
- 완료 후 MsgBox로 완료 메시지 표시

# 주의
- 한글은 ChrW() 함수를 사용할 것
- 수식 내 한글도 ChrW()로 처리

Sub 평가등급열추가()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    ' 헤더 입력
    ws.Range("AJ1").Value = ChrW(54217) & ChrW(44032) & ChrW(46321) & ChrW(44553) & ChrW(53581) & ChrW(49828) & ChrW(53944)  ' 평가등급텍스트

    ' IF 수식 입력
    Dim i As Long
    Dim formula As String

    ' 한글 텍스트를 변수에 저장
    Dim txt1 As String, txt2 As String, txt3 As String, txt4 As String
    txt1 = ChrW(48120) & ChrW(55121)  ' 미흡
    txt2 = ChrW(48372) & ChrW(53685)  ' 보통
    txt3 = ChrW(50864) & ChrW(49688)  ' 우수
    txt4 = ChrW(53441) & ChrW(50900)  ' 탁월

    For i = 2 To 1471
        ws.Cells(i, 36).Value = ""
        Select Case ws.Cells(i, 25).Value
            Case 1: ws.Cells(i, 36).Value = txt1
            Case 2: ws.Cells(i, 36).Value = txt2
            Case 3: ws.Cells(i, 36).Value = txt3
            Case 4: ws.Cells(i, 36).Value = txt4
        End Select
    Next i

    MsgBox ChrW(54217) & ChrW(44032) & ChrW(46321) & ChrW(44553) & ChrW(53581) & ChrW(49828) & ChrW(53944) & " " & ChrW(50676) & ChrW(51060) & " " & ChrW(52628) & ChrW(44032) & ChrW(46104) & ChrW(50632) & ChrW(49845) & ChrW(45768) & ChrW(45796) & "."
    ' "평가등급텍스트 열이 추가되었습니다."
End Sub

엑셀 VBA 매크로를 작성해줘.

# 데이터
- 시트명: Sheet1
- Q열(17번째): 직무만족도, 2행~1471행
- K열(11번째): 환경만족도
- AE열(31번째): 워라밸

# 작업
- AK1에 "관리대상여부" 헤더 입력
- AK2:AK1471에 값 입력
  - 직무만족도 <= 2 AND 환경만족도 <= 2 AND 워라밸 <= 2 이면 "관리대상"
  - 아니면 빈 문자열
- 완료 후 MsgBox로 완료 메시지 표시

# 주의
- 한글은 ChrW() 함수를 사용할 것

Sub 관리대상여부열추가()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    ' 헤더 입력
    ws.Range("AK1").Value = ChrW(44288) & ChrW(47532) & ChrW(45824) & ChrW(49345) & ChrW(50668) & ChrW(48512)  ' 관리대상여부

    ' 관리대상 판별
    Dim i As Long
    Dim txtTarget As String
    txtTarget = ChrW(44288) & ChrW(47532) & ChrW(45824) & ChrW(49345)  ' 관리대상

    For i = 2 To 1471
        If ws.Cells(i, 17).Value <= 2 And ws.Cells(i, 11).Value <= 2 And ws.Cells(i, 31).Value <= 2 Then
            ws.Cells(i, 37).Value = txtTarget
        Else
            ws.Cells(i, 37).Value = ""
        End If
    Next i

    MsgBox ChrW(44288) & ChrW(47532) & ChrW(45824) & ChrW(49345) & ChrW(50668) & ChrW(48512) & " " & ChrW(50676) & ChrW(51060) & " " & ChrW(52628) & ChrW(44032) & ChrW(46104) & ChrW(50632) & ChrW(49845) & ChrW(45768) & ChrW(45796) & "."
    ' "관리대상여부 열이 추가되었습니다."
End Sub

엑셀 VBA 매크로를 작성해줘.

# 데이터
- 시트명: Sheet1
- AJ1:AK6에 직급별 인원수 데이터가 있음 (AJ=직급, AK=인원수)

# 작업
- 직급별 인원수 막대 차트를 생성
- 차트 제목: "직급별 인원 수"
- 차트를 새 시트가 아닌 같은 시트에 삽입
- 완료 후 MsgBox로 완료 메시지 표시

# 주의
- 한글은 ChrW() 함수를 사용할 것

"나는 VBA를 모르지만, 원하는 작업을 설명할 수 있다"
→ ChatGPT가 코드를 작성해준다
→ 복사하여 실행하면 된다

# 데이터 정보
- 파일명, 시트명
- 데이터 범위 (행, 열)
- 컬럼 설명

# 원하는 작업
- 구체적인 동작 설명
- 순서대로 나열

# 출력 결과
- 파일 저장 위치, 파일명 규칙
- 완료 메시지

# 주의사항
- 한글 처리 (ChrW 사용)
- 오류 처리
- 기타 제약 조건

엑셀 VBA 매크로를 작성해줘.

# 데이터
- 파일명: HR데이터.xlsx
- 시트명: Sheet1
- 데이터 범위: A1:AI1471 (1행은 헤더, 2~1471행은 데이터)
- E열: 부서 (영업, 연구개발, 인사)

# 작업
- E열(부서)의 고유값을 기준으로 데이터를 분리
- 각 부서별로 새 워크북을 생성
- 헤더(1행)를 각 파일에 포함
- 해당 부서의 데이터만 복사
- 원본 파일과 같은 폴더에 "부서명.xlsx"로 저장
- 저장 후 워크북 닫기
- 완료 후 MsgBox로 완료 메시지 표시

# 주의
- 한글은 ChrW() 함수를 사용할 것
- 이미 같은 이름의 파일이 있으면 덮어쓰기
- Application.ScreenUpdating을 False로 설정하여 속도 향상

엑셀 파일 분리하는 VBA 코드 써줘

HR데이터.xlsx (1,470명)
  ├── 영업.xlsx (446명)
  ├── 연구개발.xlsx (961명)
  └── 인사.xlsx (63명)

엑셀 VBA 매크로를 작성해줘.

# 데이터
- 현재 열려 있는 워크북의 Sheet1 시트
- A1:AI1471 (1행: 헤더, 2~1471행: 데이터, 35개 컬럼)
- E열(5번째 컬럼): 부서 (영업, 연구개발, 인사)

# 작업
1. E열에서 고유한 부서 값을 추출
2. 각 부서별로 새 워크북 생성
3. 헤더(1행)를 새 워크북에 복사
4. 해당 부서의 데이터 행만 새 워크북에 복사
5. `자동화실행결과/부서별분리/` 폴더에 "부서명.xlsx"로 저장
6. 저장 후 새 워크북 닫기
7. 모든 부서 처리 후 MsgBox로 "부서별 파일 분리가 완료되었습니다." 메시지 표시

# 주의
- 한글은 ChrW() 함수를 사용할 것
- Application.ScreenUpdating = False로 속도 향상
- Application.DisplayAlerts = False로 덮어쓰기 경고 무시
- 작업 완료 후 ScreenUpdating, DisplayAlerts를 True로 복원

Sub 부서별파일분리()
    Dim wsSource As Worksheet
    Set wsSource = ThisWorkbook.Sheets("Sheet1")

    Dim savePath As String
    ' 결과를 자동화실행결과\부서별분리 폴더에 저장
    Dim resultBase As String
    resultBase = ThisWorkbook.Path & "\..\자동화실행결과\"
    If Dir(resultBase, vbDirectory) = "" Then MkDir resultBase
    savePath = resultBase & "부서별분리\"
    If Dir(savePath, vbDirectory) = "" Then MkDir savePath

    ' 속도 향상 설정
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    ' E열에서 고유 부서 추출
    Dim deptCol As New Collection
    Dim cell As Range
    Dim deptName As String

    On Error Resume Next
    For Each cell In wsSource.Range("E2:E1471")
        deptName = cell.Value
        If deptName <> "" Then
            deptCol.Add deptName, deptName
        End If
    Next cell
    On Error GoTo 0

    ' 데이터 범위 설정
    Dim lastCol As Long
    lastCol = wsSource.Cells(1, wsSource.Columns.Count).End(xlToLeft).Column

    ' 각 부서별 파일 생성
    Dim d As Long
    For d = 1 To deptCol.Count
        deptName = deptCol(d)

        ' 새 워크북 생성
        Dim wbNew As Workbook
        Set wbNew = Workbooks.Add(xlWBATWorksheet)
        Dim wsNew As Worksheet
        Set wsNew = wbNew.Sheets(1)

        ' 헤더 복사
        wsSource.Range(wsSource.Cells(1, 1), wsSource.Cells(1, lastCol)).Copy wsNew.Range("A1")

        ' 해당 부서 데이터 복사
        Dim targetRow As Long
        targetRow = 2
        Dim i As Long
        For i = 2 To 1471
            If wsSource.Cells(i, 5).Value = deptName Then
                wsSource.Range(wsSource.Cells(i, 1), wsSource.Cells(i, lastCol)).Copy wsNew.Cells(targetRow, 1)
                targetRow = targetRow + 1
            End If
        Next i

        ' 열 너비 자동 맞춤
        wsNew.Cells.EntireColumn.AutoFit

        ' 파일 저장 및 닫기
        wbNew.SaveAs savePath & deptName & ".xlsx", xlOpenXMLWorkbook
        wbNew.Close SaveChanges:=False
    Next d

    ' 설정 복원
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

    MsgBox ChrW(48512) & ChrW(49436) & ChrW(48324) & " " & ChrW(54028) & ChrW(51068) & " " & ChrW(48516) & ChrW(47532) & ChrW(44032) & " " & ChrW(50756) & ChrW(47308) & ChrW(46104) & ChrW(50632) & ChrW(49845) & ChrW(45768) & ChrW(45796) & "."
    ' "부서별 파일 분리가 완료되었습니다."
End Sub

영업.xlsx (446명)
연구개발.xlsx (961명)     →     HR데이터_취합.xlsx (1,470명)
인사.xlsx (63명)

엑셀 VBA 매크로를 작성해줘.

# 작업 환경
- 현재 열려 있는 워크북에서 실행
- `자동화실행결과/부서별분리/` 폴더에 있는 .xlsx 파일들을 취합

# 작업
1. `자동화실행결과/부서별분리/` 폴더에서 .xlsx 파일 목록을 가져옴
2. 새 워크북을 생성
3. 첫 번째 파일에서 헤더(1행) 포함하여 데이터 복사
4. 나머지 파일에서는 헤더 제외(2행부터) 데이터 복사
5. 모든 파일의 데이터를 순서대로 아래에 이어 붙이기
6. `자동화실행결과/` 폴더에 "HR데이터_취합.xlsx"로 저장
8. 완료 후 MsgBox로 "파일 취합이 완료되었습니다. (총 X건)" 메시지 표시

# 주의
- 한글은 ChrW() 함수를 사용할 것
- Application.ScreenUpdating = False로 속도 향상
- Dir 함수로 파일 목록 순회
- 각 파일을 열고 데이터 복사 후 닫기

Sub 파일취합()
    Dim folderPath As String
    ' 자동화실행결과\부서별분리 폴더에서 읽기
    folderPath = ThisWorkbook.Path & "\..\자동화실행결과\부서별분리\"

    Dim thisFileName As String
    thisFileName = ThisWorkbook.Name

    ' 속도 향상 설정
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    ' 새 워크북 생성
    Dim wbResult As Workbook
    Set wbResult = Workbooks.Add(xlWBATWorksheet)
    Dim wsResult As Worksheet
    Set wsResult = wbResult.Sheets(1)

    Dim nextRow As Long
    nextRow = 1
    Dim isFirst As Boolean
    isFirst = True
    Dim totalCount As Long
    totalCount = 0

    ' 폴더 내 xlsx 파일 순회
    Dim fileName As String
    fileName = Dir(folderPath & "*.xlsx")

    Do While fileName <> ""
        ' 현재 파일과 결과 파일 제외
        If fileName <> thisFileName And fileName <> "HR" & ChrW(45936) & ChrW(51060) & ChrW(53552) & "_" & ChrW(52712) & ChrW(54633) & ".xlsx" Then
            ' 파일 열기
            Dim wbSource As Workbook
            Set wbSource = Workbooks.Open(folderPath & fileName, ReadOnly:=True)
            Dim wsSource As Worksheet
            Set wsSource = wbSource.Sheets(1)

            ' 데이터 범위 확인
            Dim lastRow As Long
            Dim lastCol As Long
            lastRow = wsSource.Cells(wsSource.Rows.Count, 1).End(xlUp).Row
            lastCol = wsSource.Cells(1, wsSource.Columns.Count).End(xlToLeft).Column

            If isFirst Then
                ' 첫 파일: 헤더 포함 복사
                wsSource.Range(wsSource.Cells(1, 1), wsSource.Cells(lastRow, lastCol)).Copy wsResult.Cells(nextRow, 1)
                nextRow = nextRow + lastRow
                totalCount = totalCount + (lastRow - 1)
                isFirst = False
            Else
                ' 이후 파일: 헤더 제외 (2행부터)
                If lastRow >= 2 Then
                    wsSource.Range(wsSource.Cells(2, 1), wsSource.Cells(lastRow, lastCol)).Copy wsResult.Cells(nextRow, 1)
                    nextRow = nextRow + (lastRow - 1)
                    totalCount = totalCount + (lastRow - 1)
                End If
            End If

            wbSource.Close SaveChanges:=False
        End If

        fileName = Dir()
    Loop

    ' 열 너비 자동 맞춤
    wsResult.Cells.EntireColumn.AutoFit

    ' 결과 파일 저장
    Dim resultName As String
    resultName = "HR" & ChrW(45936) & ChrW(51060) & ChrW(53552) & "_" & ChrW(52712) & ChrW(54633) & ".xlsx"
    Dim resultPath As String
    resultPath = ThisWorkbook.Path & "\..\자동화실행결과\"
    wbResult.SaveAs resultPath & resultName, xlOpenXMLWorkbook
    wbResult.Close SaveChanges:=False

    ' 설정 복원
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

    MsgBox ChrW(54028) & ChrW(51068) & " " & ChrW(52712) & ChrW(54633) & ChrW(51060) & " " & ChrW(50756) & ChrW(47308) & ChrW(46104) & ChrW(50632) & ChrW(49845) & ChrW(45768) & ChrW(45796) & "." & vbCrLf & "(" & ChrW(52509) & " " & totalCount & ChrW(44148) & ")"
    ' "파일 취합이 완료되었습니다." & vbCrLf & "(총 X건)"
End Sub

Debug.Print "현재 부서: " & deptName
Debug.Print "행 번호: " & i

엑셀 VBA 매크로 실행 중 오류가 발생했어.

# 오류 메시지
실행 시간 오류 '9': 첨자 사용이 잘못되었습니다.

# 오류 발생 위치
Set ws = ThisWorkbook.Sheets("Sheet1")

# 상황
- 시트 이름이 "데이터"로 되어 있음
- 코드에서는 "Sheet1"을 참조하고 있음

이 오류를 해결해줘.

[엑셀 명단]          [PPT 템플릿]           [결과물]
이름|사번|부서명  →  {{이름}}, {{사번}}  →  개인별 슬라이드
20명 데이터          1장 양식               20장 슬라이드

파워포인트 VBA 코드를 작성해줘.

- 현재 열려 있는 PPT의 첫 번째 슬라이드가 수료증 템플릿이야
- 같은 폴더에 있는 "실습_교육수료증-명단.xlsx" 파일을 읽어야 해
- 시트 이름은 "수료자명단"이야
- 엑셀 구조: A열=이름, B열=사번, C열=부서명, D열=교육명, E열=수료증번호, F열=이메일
- 1행은 헤더이고 2행부터 데이터야 (총 20명)
- 1페이지(템플릿 양식)는 그대로 유지해줘
- 2페이지부터 인원수만큼 슬라이드를 복제해서 개인 정보를 반영해줘
- 각 슬라이드에서 아래 플레이스홀더를 치환해:
  - {{이름}} → A열 값
  - {{사번}} → B열 값
  - {{부서명}} → C열 값
  - {{교육명}} → D열 값
  - {{수료증번호}} → E열 값
- 완료되면 MsgBox로 생성된 슬라이드 수를 알려줘

Sub 수료증_슬라이드_일괄생성()
    '=============================================================
    ' [모듈1] 엑셀 명단을 읽어 2페이지부터 수료증 슬라이드 생성
    '         1페이지 템플릿 양식은 그대로 유지
    '=============================================================

    Dim prs As Presentation
    Dim templateSlide As Slide
    Dim newSlide As Slide
    Dim xlApp As Object
    Dim xlWb As Object
    Dim xlWs As Object
    Dim lastRow As Long
    Dim i As Long
    Dim basePath As String
    Dim excelPath As String
    Dim shp As Shape
    Dim shpKey As String
    Dim origTexts As Object
    Dim totalCount As Long

    Set prs = ActivePresentation
    basePath = prs.Path & "\"
    excelPath = basePath & "실습_교육수료증-명단.xlsx"

    ' --- 엑셀 파일 존재 확인 ---
    If Dir(excelPath) = "" Then
        MsgBox "명단 파일을 찾을 수 없습니다." & vbCrLf & excelPath, vbExclamation, "오류"
        Exit Sub
    End If

    ' --- 기존 복사 슬라이드 제거 (템플릿 1장만 유지) ---
    Do While prs.Slides.Count > 1
        prs.Slides(prs.Slides.Count).Delete
    Loop

    ' --- 엑셀 열기 ---
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = False
    xlApp.DisplayAlerts = False
    Set xlWb = xlApp.Workbooks.Open(excelPath, ReadOnly:=True)
    Set xlWs = xlWb.Sheets("수료자명단")

    ' --- 데이터 행 수 파악 ---
    lastRow = xlWs.Cells(xlWs.Rows.Count, 1).End(-4162).Row

    If lastRow < 2 Then
        MsgBox "명단 데이터가 없습니다.", vbExclamation, "오류"
        GoTo CleanUp
    End If

    ' --- 템플릿 슬라이드 원본 텍스트 백업 ---
    Set origTexts = CreateObject("Scripting.Dictionary")
    Set templateSlide = prs.Slides(1)

    For Each shp In templateSlide.Shapes
        If shp.HasTextFrame Then
            shpKey = shp.Name
            origTexts.Add shpKey, shp.TextFrame.TextRange.Text
        End If
    Next shp

    totalCount = lastRow - 1

    ' === 인원수만큼 슬라이드 복사 (2페이지부터) ===
    For i = 2 To lastRow
        templateSlide.Copy
        DoEvents
        prs.Slides.Paste prs.Slides.Count + 1
        DoEvents
        Set newSlide = prs.Slides(prs.Slides.Count)

        ' 복사된 슬라이드의 텍스트를 원본으로 복원 후 치환
        For Each shp In newSlide.Shapes
            If shp.HasTextFrame Then
                shpKey = shp.Name
                If origTexts.Exists(shpKey) Then
                    shp.TextFrame.TextRange.Text = origTexts(shpKey)
                End If
            End If
        Next shp

        ' 데이터 삽입
        Call 슬라이드에_데이터삽입(newSlide, _
            Trim(CStr(xlWs.Cells(i, 1).Value)), _
            Trim(CStr(xlWs.Cells(i, 2).Value)), _
            Trim(CStr(xlWs.Cells(i, 3).Value)), _
            Trim(CStr(xlWs.Cells(i, 4).Value)), _
            Trim(CStr(xlWs.Cells(i, 5).Value)))
    Next i

CleanUp:
    xlWb.Close False
    xlApp.Quit
    Set xlWs = Nothing
    Set xlWb = Nothing
    Set xlApp = Nothing

    MsgBox "수료증 슬라이드 " & totalCount & "장 생성 완료!" & vbCrLf & _
           "(1페이지: 템플릿 / 2~" & (totalCount + 1) & "페이지: 개인별 수료증)", vbInformation, "완료"

End Sub


Private Sub 슬라이드에_데이터삽입(ByRef sld As Slide, _
    ByVal sName As String, ByVal sEmpNo As String, ByVal sDept As String, _
    ByVal sEdu As String, ByVal sCertNo As String)
    '----------------------------------------------
    ' 슬라이드 내 플레이스홀더를 실제 데이터로 치환
    '----------------------------------------------
    Dim shp As Shape
    Dim fullText As String
    For Each shp In sld.Shapes
        If shp.HasTextFrame Then
            fullText = shp.TextFrame.TextRange.Text

            If InStr(fullText, "{{") > 0 Then
                fullText = Replace(fullText, "{{이름}}", sName)
                fullText = Replace(fullText, "{{사번}}", sEmpNo)
                fullText = Replace(fullText, "{{부서명}}", sDept)
                fullText = Replace(fullText, "{{교육명}}", sEdu)
                fullText = Replace(fullText, "{{수료증번호}}", sCertNo)
                shp.TextFrame.TextRange.Text = fullText
            End If
        End If
    Next shp
End Sub

파워포인트 VBA 코드를 작성해줘.

- 같은 폴더에 있는 "실습_교육수료증-명단.xlsx"의 "수료자명단" 시트를 읽어야 해
- 엑셀 구조: A열=이름, B열=사번, C열=부서명, D열=교육명, E열=수료증번호
- 1행은 헤더이고 2행부터 데이터야 (총 20명)
- 코드 순서:
  1. 실습1처럼 인원수만큼 개인별 슬라이드를 2페이지부터 만든다
  2. 새 PPTX를 열고 개인 수료증 슬라이드 1장만 복사한다 (마스터 디자인, 레이아웃 유지)
  3. 그 PPTX를 PDF로 저장하고 닫는다
  4. 인원수만큼 반복한다
- 저장 폴더: "자동화실행결과\수료증생성결과_PDF" (같은 폴더 하위)
- 파일명 규칙: "수료증_이름_수료증번호.pdf"
- 완료 후 개인 슬라이드를 삭제하고 1페이지 템플릿만 남겨줘
- 완료되면 MsgBox로 생성된 PDF 수와 저장 위치를 알려줘

Sub 수료증_개인별_PDF생성()
    '=============================================================
    ' [모듈2] 개인별 수료증 PDF 파일 생성
    '   1) 모듈1처럼 개인별 슬라이드를 모두 만든다
    '   2) 새 PPTX를 열고 개인 슬라이드 1장만 복사
    '   3) PDF로 저장하고 PPTX를 닫는다
    '   4) 인원수만큼 반복
    '   저장: 자동화실행결과\수료증생성결과_PDF\수료증_이름_번호.pdf
    '=============================================================

    Dim prs As Presentation
    Dim xlApp As Object
    Dim xlWb As Object
    Dim xlWs As Object
    Dim lastRow As Long
    Dim i As Long
    Dim basePath As String
    Dim excelPath As String
    Dim pdfFolder As String
    Dim pdfPath As String
    Dim fso As Object
    Dim shp As Shape
    Dim shpKey As String
    Dim origTexts As Object
    Dim totalCount As Long
    Dim successCount As Long
    Dim sName As String
    Dim sEmpNo As String
    Dim sDept As String
    Dim sEdu As String
    Dim sCertNo As String
    Dim fullText As String
    Dim parentFolder As String
    Dim tempPrs As Presentation
    Dim newSlide As Slide

    Set prs = ActivePresentation
    basePath = prs.Path & "\"
    excelPath = basePath & "실습_교육수료증-명단.xlsx"
    pdfFolder = basePath & "자동화실행결과\수료증생성결과_PDF"

    ' --- 엑셀 파일 존재 확인 ---
    If Dir(excelPath) = "" Then
        MsgBox "명단 파일을 찾을 수 없습니다." & vbCrLf & excelPath, vbExclamation, "오류"
        Exit Sub
    End If

    ' --- PDF 폴더 생성 (상위 폴더 포함) ---
    Set fso = CreateObject("Scripting.FileSystemObject")
    parentFolder = basePath & "자동화실행결과"
    If Not fso.FolderExists(parentFolder) Then
        fso.CreateFolder parentFolder
    End If
    If Not fso.FolderExists(pdfFolder) Then
        fso.CreateFolder pdfFolder
    End If

    ' --- 엑셀 열기 ---
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = False
    xlApp.DisplayAlerts = False
    Set xlWb = xlApp.Workbooks.Open(excelPath, ReadOnly:=True)
    Set xlWs = xlWb.Sheets("수료자명단")

    lastRow = xlWs.Cells(xlWs.Rows.Count, 1).End(-4162).Row

    If lastRow < 2 Then
        MsgBox "명단 데이터가 없습니다.", vbExclamation, "오류"
        GoTo CleanUp
    End If

    ' --- 기존 복사 슬라이드 제거 (템플릿 1장만 유지) ---
    Do While prs.Slides.Count > 1
        prs.Slides(prs.Slides.Count).Delete
    Loop

    ' --- 템플릿 슬라이드 원본 텍스트 백업 ---
    Set origTexts = CreateObject("Scripting.Dictionary")
    For Each shp In prs.Slides(1).Shapes
        If shp.HasTextFrame Then
            shpKey = shp.Name
            origTexts.Add shpKey, shp.TextFrame.TextRange.Text
        End If
    Next shp

    totalCount = lastRow - 1
    successCount = 0

    ' ========================================
    ' STEP 1: 인원수만큼 슬라이드 복사 & 데이터 삽입 (2페이지부터)
    ' ========================================
    For i = 2 To lastRow
        prs.Slides(1).Copy
        DoEvents
        prs.Slides.Paste prs.Slides.Count + 1
        DoEvents

        Set newSlide = prs.Slides(prs.Slides.Count)

        ' 텍스트 원본 복원
        For Each shp In newSlide.Shapes
            If shp.HasTextFrame Then
                shpKey = shp.Name
                If origTexts.Exists(shpKey) Then
                    shp.TextFrame.TextRange.Text = origTexts(shpKey)
                End If
            End If
        Next shp

        ' 데이터 삽입
        sName = Trim(CStr(xlWs.Cells(i, 1).Value))
        sEmpNo = Trim(CStr(xlWs.Cells(i, 2).Value))
        sDept = Trim(CStr(xlWs.Cells(i, 3).Value))
        sEdu = Trim(CStr(xlWs.Cells(i, 4).Value))
        sCertNo = Trim(CStr(xlWs.Cells(i, 5).Value))

        For Each shp In newSlide.Shapes
            If shp.HasTextFrame Then
                fullText = shp.TextFrame.TextRange.Text
                If InStr(fullText, "{{") > 0 Then
                    fullText = Replace(fullText, "{{이름}}", sName)
                    fullText = Replace(fullText, "{{사번}}", sEmpNo)
                    fullText = Replace(fullText, "{{부서명}}", sDept)
                    fullText = Replace(fullText, "{{교육명}}", sEdu)
                    fullText = Replace(fullText, "{{수료증번호}}", sCertNo)
                    shp.TextFrame.TextRange.Text = fullText
                End If
            End If
        Next shp
    Next i

    ' ========================================
    ' STEP 2: 개인별 슬라이드를 새 PPTX로 복사 → PDF 저장
    ' ========================================
    For i = 2 To prs.Slides.Count
        ' 슬라이드에서 이름, 수료증번호 추출 (파일명용)
        sName = Trim(CStr(xlWs.Cells(i, 1).Value))
        sCertNo = Trim(CStr(xlWs.Cells(i, 5).Value))

        ' 새 프레젠테이션 생성
        Set tempPrs = Application.Presentations.Add(msoFalse)

        ' 슬라이드 크기 맞추기 (A4 세로)
        tempPrs.PageSetup.SlideWidth = prs.PageSetup.SlideWidth
        tempPrs.PageSetup.SlideHeight = prs.PageSetup.SlideHeight

        ' 원본 슬라이드 복사 → 새 프레젠테이션에 붙여넣기
        prs.Slides(i).Copy
        DoEvents
        tempPrs.Slides.Paste
        DoEvents

        ' 마스터/레이아웃 디자인 유지
        tempPrs.Slides(1).Design = prs.Slides(i).Design
        tempPrs.Slides(1).CustomLayout = prs.Slides(i).CustomLayout

        ' PDF 저장
        pdfPath = pdfFolder & "\" & "수료증_" & sName & "_" & sCertNo & ".pdf"

        tempPrs.ExportAsFixedFormat _
            Path:=pdfPath, _
            FixedFormatType:=2, _
            Intent:=1, _
            FrameSlides:=0

        ' 임시 PPTX 닫기 (저장 안 함)
        tempPrs.Close
        Set tempPrs = Nothing

        successCount = successCount + 1
        DoEvents
    Next i

    ' --- 생성된 개인 슬라이드 제거 (템플릿만 남기기) ---
    Do While prs.Slides.Count > 1
        prs.Slides(prs.Slides.Count).Delete
    Loop

CleanUp:
    xlWb.Close False
    xlApp.Quit
    Set xlWs = Nothing
    Set xlWb = Nothing
    Set xlApp = Nothing
    Set fso = Nothing

    MsgBox "개인별 PDF " & successCount & "개 생성 완료!" & vbCrLf & _
           "저장 위치: " & pdfFolder, vbInformation, "완료"

End Sub

자동화실행결과/수료증생성결과_PDF/
├── 수료증_김민수_CERT-2026-001.pdf
├── 수료증_이지은_CERT-2026-002.pdf
├── 수료증_박준혁_CERT-2026-003.pdf
├── 수료증_최수정_CERT-2026-004.pdf
├── 수료증_정우진_CERT-2026-005.pdf
├── 수료증_한서연_CERT-2026-006.pdf
└── ... (총 20개)

[1단계] ChatGPT로 보고서 초안 생성 (텍스트)
    ↓
[2단계] 워드 문서에 텍스트 삽입
    ↓
[3단계] VBA로 서식 자동 적용 (제목, 본문, 표, 여백 등)
    ↓
[4단계] PDF로 저장

HR 인사 분석 보고서 초안을 작성해줘.

- 보고서 제목: "2025년 상반기 인사 현황 분석 보고서"
- 구성:
  1. 개요 (3~4줄)
  2. 인력 현황 (부서별 인원, 직급별 분포)
  3. 퇴사 현황 분석 (퇴사율, 주요 원인)
  4. 교육 이수 현황
  5. 종합 의견 및 제언
- 각 섹션은 ##로 구분해줘
- 분량: A4 2~3페이지 분량

Word VBA 코드를 작성해줘.

- 새 워드 문서를 생성하고 HR 보고서 내용을 삽입해줘
- 페이지 설정: 여백 상하좌우 2cm
- 보고서 제목: "2025년 상반기 인사 현황 분석 보고서"
  - 스타일: 제목 1, 가운데 정렬, 맑은 고딕 18pt, 굵게
- 섹션 제목 5개: 개요, 인력 현황, 퇴사 현황 분석, 교육 이수 현황, 종합 의견 및 제언
  - 스타일: 제목 2, 맑은 고딕 14pt, 굵게
- 각 섹션 본문: 맑은 고딕 11pt, 줄간격 1.5줄
- 본문 내용은 각 섹션에 3~4줄씩 예시 텍스트를 넣어줘
- 한글 문자열은 ChrW()를 사용해줘
- 완료되면 MsgBox로 알려줘

Sub CreateHRReport()
    Dim doc As Document
    Dim sel As Selection

    ' 새 문서 생성
    Set doc = Documents.Add

    ' 페이지 설정 - 여백 2cm (1cm = 28.35pt)
    With doc.PageSetup
        .TopMargin = CentimetersToPoints(2)
        .BottomMargin = CentimetersToPoints(2)
        .LeftMargin = CentimetersToPoints(2)
        .RightMargin = CentimetersToPoints(2)
    End With

    Set sel = Selection

    ' === 보고서 제목 ===
    ' "2025년 상반기 인사 현황 분석 보고서"
    sel.Style = ActiveDocument.Styles(ChrW(51228) & ChrW(47785) & " 1")  ' "제목 1"
    sel.Font.Name = ChrW(47567) & ChrW(51008) & " " & ChrW(44256) & ChrW(46357)  ' "맑은 고딕"
    sel.Font.Size = 18
    sel.Font.Bold = True
    sel.ParagraphFormat.Alignment = wdAlignParagraphCenter
    sel.TypeText "2025" & ChrW(45380) & " " & ChrW(49345) & ChrW(48152) & ChrW(44592) & " " & _
                 ChrW(51064) & ChrW(49324) & " " & ChrW(54788) & ChrW(54889) & " " & _
                 ChrW(48516) & ChrW(49437) & " " & ChrW(48372) & ChrW(44256) & ChrW(49436)
    ' "2025년 상반기 인사 현황 분석 보고서"
    sel.TypeParagraph
    sel.TypeParagraph

    ' === 1. 개요 ===
    sel.Style = ActiveDocument.Styles(ChrW(51228) & ChrW(47785) & " 2")  ' "제목 2"
    sel.Font.Name = ChrW(47567) & ChrW(51008) & " " & ChrW(44256) & ChrW(46357)
    sel.Font.Size = 14
    sel.Font.Bold = True
    sel.ParagraphFormat.Alignment = wdAlignParagraphLeft
    sel.TypeText "1. " & ChrW(44060) & ChrW(50836)  ' "1. 개요"
    sel.TypeParagraph

    ' 개요 본문
    sel.Style = ActiveDocument.Styles(ChrW(48376) & ChrW(47928))  ' "본문"
    sel.Font.Name = ChrW(47567) & ChrW(51008) & " " & ChrW(44256) & ChrW(46357)
    sel.Font.Size = 11
    sel.Font.Bold = False
    sel.ParagraphFormat.LineSpacingRule = wdLineSpace1pt5
    sel.ParagraphFormat.Alignment = wdAlignParagraphLeft
    sel.TypeText ChrW(48376) & " " & ChrW(48372) & ChrW(44256) & ChrW(49436) & ChrW(45716) & " 2025" & ChrW(45380) & " " & _
                 ChrW(49345) & ChrW(48152) & ChrW(44592) & " " & ChrW(51064) & ChrW(49324) & " " & _
                 ChrW(54788) & ChrW(54889) & ChrW(51012) & " " & ChrW(51333) & ChrW(54633) & ChrW(51201) & ChrW(51004) & ChrW(47196) & " " & _
                 ChrW(48516) & ChrW(49437) & ChrW(54616) & ChrW(50668) & " " & ChrW(51064) & ChrW(47141) & " " & _
                 ChrW(50868) & ChrW(50689) & ChrW(44284) & " " & ChrW(53748) & ChrW(49324) & " " & ChrW(46041) & ChrW(54693) & ", " & _
                 ChrW(44368) & ChrW(50977) & " " & ChrW(51060) & ChrW(49688) & " " & ChrW(54788) & ChrW(54889) & ChrW(51012) & " " & _
                 ChrW(45812) & ChrW(44256) & " " & ChrW(51080) & ChrW(49845) & ChrW(45768) & ChrW(45796) & "."
    ' "본 보고서는 2025년 상반기 인사 현황을 종합적으로 분석하여 인력 운영과 퇴사 동향, 교육 이수 현황을 담고 있습니다."
    sel.TypeParagraph
    sel.TypeParagraph

    ' === 2. 인력 현황 ===
    sel.Style = ActiveDocument.Styles(ChrW(51228) & ChrW(47785) & " 2")
    sel.Font.Name = ChrW(47567) & ChrW(51008) & " " & ChrW(44256) & ChrW(46357)
    sel.Font.Size = 14
    sel.Font.Bold = True
    sel.TypeText "2. " & ChrW(51064) & ChrW(47141) & " " & ChrW(54788) & ChrW(54889)  ' "2. 인력 현황"
    sel.TypeParagraph

    sel.Style = ActiveDocument.Styles(ChrW(48376) & ChrW(47928))
    sel.Font.Name = ChrW(47567) & ChrW(51008) & " " & ChrW(44256) & ChrW(46357)
    sel.Font.Size = 11
    sel.Font.Bold = False
    sel.ParagraphFormat.LineSpacingRule = wdLineSpace1pt5
    sel.TypeText ChrW(51204) & ChrW(52404) & " " & ChrW(51064) & ChrW(50896) & " 1,470" & ChrW(47749) & ChrW(51004) & " " & _
                 ChrW(45824) & ChrW(54644) & ", " & ChrW(48512) & ChrW(49436) & ChrW(48324) & " " & _
                 ChrW(51064) & ChrW(50896) & " " & ChrW(48516) & ChrW(54252) & ChrW(45716) & " " & _
                 ChrW(50500) & ChrW(47000) & ChrW(50752) & " " & ChrW(44057) & ChrW(49845) & ChrW(45768) & ChrW(45796) & "."
    ' "전체 인원 1,470명에 대해, 부서별 인원 분포는 아래와 같습니다."
    sel.TypeParagraph
    sel.TypeParagraph

    ' === 3. 퇴사 현황 분석 ===
    sel.Style = ActiveDocument.Styles(ChrW(51228) & ChrW(47785) & " 2")
    sel.Font.Name = ChrW(47567) & ChrW(51008) & " " & ChrW(44256) & ChrW(46357)
    sel.Font.Size = 14
    sel.Font.Bold = True
    sel.TypeText "3. " & ChrW(53748) & ChrW(49324) & " " & ChrW(54788) & ChrW(54889) & " " & ChrW(48516) & ChrW(49437)
    ' "3. 퇴사 현황 분석"
    sel.TypeParagraph

    sel.Style = ActiveDocument.Styles(ChrW(48376) & ChrW(47928))
    sel.Font.Name = ChrW(47567) & ChrW(51008) & " " & ChrW(44256) & ChrW(46357)
    sel.Font.Size = 11
    sel.Font.Bold = False
    sel.ParagraphFormat.LineSpacingRule = wdLineSpace1pt5
    sel.TypeText ChrW(49345) & ChrW(48152) & ChrW(44592) & " " & ChrW(53748) & ChrW(49324) & ChrW(50984) & ChrW(51008) & " 16.1%" & _
                 ChrW(47196) & " " & ChrW(51204) & ChrW(45380) & " " & ChrW(46041) & ChrW(44592) & " " & _
                 ChrW(45824) & ChrW(48708) & " " & ChrW(49548) & ChrW(54253) & " " & ChrW(44048) & ChrW(49548) & ChrW(54616) & ChrW(50688) & ChrW(49845) & ChrW(45768) & ChrW(45796) & "."
    ' "상반기 퇴사율은 16.1%로 전년 동기 대비 소폭 감소하였습니다."
    sel.TypeParagraph
    sel.TypeParagraph

    ' === 4. 교육 이수 현황 ===
    sel.Style = ActiveDocument.Styles(ChrW(51228) & ChrW(47785) & " 2")
    sel.Font.Name = ChrW(47567) & ChrW(51008) & " " & ChrW(44256) & ChrW(46357)
    sel.Font.Size = 14
    sel.Font.Bold = True
    sel.TypeText "4. " & ChrW(44368) & ChrW(50977) & " " & ChrW(51060) & ChrW(49688) & " " & ChrW(54788) & ChrW(54889)
    ' "4. 교육 이수 현황"
    sel.TypeParagraph

    sel.Style = ActiveDocument.Styles(ChrW(48376) & ChrW(47928))
    sel.Font.Name = ChrW(47567) & ChrW(51008) & " " & ChrW(44256) & ChrW(46357)
    sel.Font.Size = 11
    sel.Font.Bold = False
    sel.ParagraphFormat.LineSpacingRule = wdLineSpace1pt5
    sel.TypeText ChrW(49345) & ChrW(48152) & ChrW(44592) & " " & ChrW(54596) & ChrW(49688) & " " & ChrW(44368) & ChrW(50977) & " " & _
                 ChrW(51060) & ChrW(49688) & ChrW(50984) & ChrW(51008) & " 78.5%" & ChrW(51060) & ChrW(47728) & ", " & _
                 ChrW(47785) & ChrW(54364) & " " & ChrW(44368) & ChrW(50977) & " " & ChrW(51060) & ChrW(49688) & ChrW(50984) & " " & _
                 ChrW(51228) & ChrW(44256) & ChrW(47484) & " " & ChrW(54596) & ChrW(50836) & ChrW(54633) & ChrW(45768) & ChrW(45796) & "."
    ' "상반기 필수 교육 이수율은 78.5%이며, 목표 교육 이수율 제고를 위해 필요합니다."
    sel.TypeParagraph
    sel.TypeParagraph

    ' === 5. 종합 의견 및 제언 ===
    sel.Style = ActiveDocument.Styles(ChrW(51228) & ChrW(47785) & " 2")
    sel.Font.Name = ChrW(47567) & ChrW(51008) & " " & ChrW(44256) & ChrW(46357)
    sel.Font.Size = 14
    sel.Font.Bold = True
    sel.TypeText "5. " & ChrW(51333) & ChrW(54633) & " " & ChrW(51032) & ChrW(44204) & " " & _
                 ChrW(48143) & " " & ChrW(51228) & ChrW(50616)
    ' "5. 종합 의견 및 제언"
    sel.TypeParagraph

    sel.Style = ActiveDocument.Styles(ChrW(48376) & ChrW(47928))
    sel.Font.Name = ChrW(47567) & ChrW(51008) & " " & ChrW(44256) & ChrW(46357)
    sel.Font.Size = 11
    sel.Font.Bold = False
    sel.ParagraphFormat.LineSpacingRule = wdLineSpace1pt5
    sel.TypeText ChrW(51064) & ChrW(47141) & " " & ChrW(50868) & ChrW(50689) & ChrW(51032) & " " & _
                 ChrW(54952) & ChrW(50984) & ChrW(49457) & ChrW(51012) & " " & ChrW(45458) & ChrW(51060) & ChrW(44256) & " " & _
                 ChrW(53748) & ChrW(49324) & ChrW(50984) & " " & ChrW(44048) & ChrW(49548) & ChrW(47484) & " " & _
                 ChrW(50948) & ChrW(54644) & " " & ChrW(51648) & ChrW(49549) & ChrW(51201) & ChrW(51064) & " " & _
                 ChrW(51064) & ChrW(49324) & " " & ChrW(44288) & ChrW(47532) & ChrW(44032) & " " & _
                 ChrW(54596) & ChrW(50836) & ChrW(54633) & ChrW(45768) & ChrW(45796) & "."
    ' "인력 운영의 효율성을 높이고 퇴사율 감소를 위해 지속적인 인사 관리가 필요합니다."
    sel.TypeParagraph

    ' 완료 메시지
    MsgBox ChrW(48372) & ChrW(44256) & ChrW(49436) & " " & ChrW(47928) & ChrW(49436) & " " & _
           ChrW(49373) & ChrW(49457) & " " & ChrW(48143) & " " & ChrW(49436) & ChrW(49885) & " " & _
           ChrW(51201) & ChrW(50857) & " " & ChrW(50756) & ChrW(47308) & "!", vbInformation
    ' "보고서 문서 생성 및 서식 적용 완료!"
End Sub

Word VBA 코드를 작성해줘.

- 현재 열려 있는 워드 문서의 커서 위치에 표를 삽입해줘
- 표 구조: 6행 3열
  - 1행(머리글): 부서명, 인원수, 비율
  - 2행: 경영지원부, 63명, 4.3%
  - 3행: 인사부, 52명, 3.5%
  - 4행: 영업부, 446명, 30.3%
  - 5행: 연구개발부, 961명, 65.4%
  - 6행(합계): 합계, 1,470명, 100%
- 서식:
  - 표 너비: 문서 폭에 자동 맞춤
  - 머리글 행: 배경색 진한 파랑(RGB 0,51,102), 글자 흰색, 굵게, 가운데 정렬
  - 합계 행: 굵게, 배경색 연한 회색
  - 모든 셀: 맑은 고딕 10pt, 세로 가운데 정렬
  - 테두리: 모든 테두리 표시
- 한글 문자열은 ChrW()를 사용해줘

Sub InsertDepartmentTable()
    Dim doc As Document
    Dim tbl As Table
    Dim rng As Range

    Set doc = ActiveDocument
    Set rng = Selection.Range

    ' 6행 3열 표 삽입
    Set tbl = doc.Tables.Add(rng, 6, 3)

    ' 표 너비 자동 맞춤
    tbl.AutoFitBehavior wdAutoFitWindow

    ' 머리글 행 데이터 입력
    tbl.Cell(1, 1).Range.Text = ChrW(48512) & ChrW(49436) & ChrW(47749)  ' "부서명"
    tbl.Cell(1, 2).Range.Text = ChrW(51064) & ChrW(50896) & ChrW(49688)  ' "인원수"
    tbl.Cell(1, 3).Range.Text = ChrW(48708) & ChrW(50984)  ' "비율"

    ' 데이터 입력
    tbl.Cell(2, 1).Range.Text = ChrW(44221) & ChrW(50689) & ChrW(51648) & ChrW(50896) & ChrW(48512)  ' "경영지원부"
    tbl.Cell(2, 2).Range.Text = "63" & ChrW(47749)  ' "63명"
    tbl.Cell(2, 3).Range.Text = "4.3%"

    tbl.Cell(3, 1).Range.Text = ChrW(51064) & ChrW(49324) & ChrW(48512)  ' "인사부"
    tbl.Cell(3, 2).Range.Text = "52" & ChrW(47749)
    tbl.Cell(3, 3).Range.Text = "3.5%"

    tbl.Cell(4, 1).Range.Text = ChrW(50689) & ChrW(50629) & ChrW(48512)  ' "영업부"
    tbl.Cell(4, 2).Range.Text = "446" & ChrW(47749)
    tbl.Cell(4, 3).Range.Text = "30.3%"

    tbl.Cell(5, 1).Range.Text = ChrW(50672) & ChrW(44396) & ChrW(44060) & ChrW(48156) & ChrW(48512)  ' "연구개발부"
    tbl.Cell(5, 2).Range.Text = "961" & ChrW(47749)
    tbl.Cell(5, 3).Range.Text = "65.4%"

    tbl.Cell(6, 1).Range.Text = ChrW(54633) & ChrW(44228)  ' "합계"
    tbl.Cell(6, 2).Range.Text = "1,470" & ChrW(47749)
    tbl.Cell(6, 3).Range.Text = "100%"

    ' === 서식 적용 ===

    ' 전체 표 폰트 설정
    tbl.Range.Font.Name = ChrW(47567) & ChrW(51008) & " " & ChrW(44256) & ChrW(46357)  ' "맑은 고딕"
    tbl.Range.Font.Size = 10

    ' 전체 셀 세로 가운데 정렬
    Dim c As Cell
    For Each c In tbl.Range.Cells
        c.VerticalAlignment = wdCellAlignVerticalCenter
        c.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Next c

    ' 머리글 행 서식 (1행)
    Dim i As Long
    For i = 1 To 3
        With tbl.Cell(1, i)
            .Shading.BackgroundPatternColor = RGB(0, 51, 102)
            .Range.Font.Color = RGB(255, 255, 255)
            .Range.Font.Bold = True
        End With
    Next i

    ' 합계 행 서식 (6행)
    For i = 1 To 3
        With tbl.Cell(6, i)
            .Shading.BackgroundPatternColor = RGB(217, 217, 217)
            .Range.Font.Bold = True
        End With
    Next i

    ' 테두리 설정
    With tbl.Borders
        .InsideLineStyle = wdLineStyleSingle
        .OutsideLineStyle = wdLineStyleSingle
        .InsideLineWidth = wdLineWidth050pt
        .OutsideLineWidth = wdLineWidth050pt
    End With

    MsgBox ChrW(54364) & " " & ChrW(49341) & ChrW(51077) & " " & ChrW(48143) & " " & _
           ChrW(49436) & ChrW(49885) & " " & ChrW(51201) & ChrW(50857) & " " & _
           ChrW(50756) & ChrW(47308) & "!", vbInformation
    ' "표 삽입 및 서식 적용 완료!"
End Sub

Word VBA 코드를 작성해줘.

- 현재 열려 있는 워드 문서에서 문구를 일괄 치환해줘
- 치환 목록:
  1. "2025년 상반기" → "2025년 하반기"
  2. "인사팀" → "인사부"
  3. "작성일: 2025.06.30" → "작성일: 2025.12.31"
- 각 치환 후 몇 건이 변경되었는지 카운트해줘
- 한글 문자열은 ChrW()를 사용해줘
- 완료되면 MsgBox로 치환 결과를 알려줘

Sub ReplaceTextInDocument()
    Dim doc As Document
    Dim totalCount As Long
    Dim msg As String

    Set doc = ActiveDocument
    totalCount = 0
    msg = ""

    ' --- 치환 1: "2025년 상반기" → "2025년 하반기" ---
    Dim findText1 As String
    Dim replaceText1 As String
    Dim count1 As Long

    findText1 = "2025" & ChrW(45380) & " " & ChrW(49345) & ChrW(48152) & ChrW(44592)
    ' "2025년 상반기"
    replaceText1 = "2025" & ChrW(45380) & " " & ChrW(54616) & ChrW(48152) & ChrW(44592)
    ' "2025년 하반기"

    count1 = CountAndReplace(doc, findText1, replaceText1)
    msg = msg & findText1 & " -> " & replaceText1 & ": " & count1 & ChrW(44148) & vbCrLf
    totalCount = totalCount + count1

    ' --- 치환 2: "인사팀" → "인사부" ---
    Dim findText2 As String
    Dim replaceText2 As String
    Dim count2 As Long

    findText2 = ChrW(51064) & ChrW(49324) & ChrW(54016)   ' "인사팀"
    replaceText2 = ChrW(51064) & ChrW(49324) & ChrW(48512) ' "인사부"

    count2 = CountAndReplace(doc, findText2, replaceText2)
    msg = msg & findText2 & " -> " & replaceText2 & ": " & count2 & ChrW(44148) & vbCrLf
    totalCount = totalCount + count2

    ' --- 치환 3: "작성일: 2025.06.30" → "작성일: 2025.12.31" ---
    Dim findText3 As String
    Dim replaceText3 As String
    Dim count3 As Long

    findText3 = ChrW(51089) & ChrW(49457) & ChrW(51068) & ": 2025.06.30"   ' "작성일: 2025.06.30"
    replaceText3 = ChrW(51089) & ChrW(49457) & ChrW(51068) & ": 2025.12.31" ' "작성일: 2025.12.31"

    count3 = CountAndReplace(doc, findText3, replaceText3)
    msg = msg & findText3 & " -> " & replaceText3 & ": " & count3 & ChrW(44148) & vbCrLf
    totalCount = totalCount + count3

    ' 결과 메시지
    msg = ChrW(47928) & ChrW(44396) & " " & ChrW(51068) & ChrW(44292) & " " & _
          ChrW(52824) & ChrW(54872) & " " & ChrW(50756) & ChrW(47308) & "!" & vbCrLf & vbCrLf & msg & _
          vbCrLf & ChrW(52509) & " " & ChrW(52824) & ChrW(54872) & " " & ChrW(44148) & ChrW(49688) & ": " & totalCount & ChrW(44148)
    ' "문구 일괄 치환 완료!" & 상세내역 & "총 치환 건수: N건"

    MsgBox msg, vbInformation
End Sub

Function CountAndReplace(doc As Document, findStr As String, replStr As String) As Long
    Dim cnt As Long
    cnt = 0

    ' 먼저 횟수 세기
    With doc.Content.Find
        .ClearFormatting
        .Text = findStr
        .Forward = True
        .Wrap = wdFindStop
        .MatchCase = False
        .MatchWholeWord = False

        Do While .Execute
            cnt = cnt + 1
        Loop
    End With

    ' 실제 치환
    With doc.Content.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = findStr
        .Replacement.Text = replStr
        .Forward = True
        .Wrap = wdFindContinue
        .MatchCase = False
        .MatchWholeWord = False
        .Execute Replace:=wdReplaceAll
    End With

    CountAndReplace = cnt
End Function

[엑셀 명단]              [첨부 파일 폴더]           [발송]
부서명 | 이메일      →    부서명.xlsx              →  SMTP 서버
경영지원부 | a@b.com      경영지원부_인사현황.xlsx      → 수신자에게 전달

경영지원부 담당자님께,

안녕하세요. 인사부입니다.
2025년 상반기 인사현황 자료를 송부드립니다.
첨부 파일을 확인해 주시기 바랍니다.

감사합니다.
인사부 드림

엑셀 VBA 코드를 작성해줘. CDO.Message를 이용한 이메일 자동 발송이야.

- SMTP 서버: smtp.naver.com, 포트 465, SSL 사용
- 발신자 이메일: InputBox로 입력받아
- 비밀번호: InputBox로 입력받아 (코드에 직접 넣지 않아)
- 수신자 명단은 현재 시트에 있어:
  - A열: 부서명 (2행부터 데이터)
  - B열: 이메일
  - C열: 발송상태 (빈칸이면 발송, "완료"면 건너뜀)
- 첨부 파일: 엑셀 파일과 같은 폴더의 "부서별파일" 하위 폴더에서 "부서명_인사현황.xlsx" 파일을 찾아
- 이메일 제목: "[부서명] 2025년 상반기 인사현황 자료 송부"
- 이메일 본문: HTML 형식으로 아래 내용 포함
  - "부서명 담당자님께," (줄바꿈)
  - "안녕하세요. 인사부입니다." (줄바꿈)
  - "2025년 상반기 인사현황 자료를 송부드립니다." (줄바꿈)
  - "첨부 파일을 확인해 주시기 바랍니다." (줄바꿈 2번)
  - "감사합니다." (줄바꿈)
  - "인사부 드림"
- 발송 성공하면 C열에 "완료"와 발송 시각 기록
- 발송 실패하면 C열에 "실패: 에러메시지" 기록
- 한글 문자열은 ChrW()를 사용해줘
- 각 발송 사이에 2초 대기 (서버 부하 방지)
- 완료되면 MsgBox로 발송 건수를 알려줘

Sub SendEmailWithAttachment()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim sendCount As Long
    Dim failCount As Long

    Dim senderEmail As String
    Dim senderPassword As String
    Dim basePath As String
    Dim attachFolderPath As String

    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    ' 발신자 정보 입력받기 (코드에 직접 넣지 않음)
    senderEmail = InputBox(ChrW(48156) & ChrW(49888) & ChrW(51088) & " " & ChrW(51060) & ChrW(47700) & ChrW(51068) & ChrW(51012) & " " & ChrW(51077) & ChrW(47141) & ChrW(54616) & ChrW(49464) & ChrW(50836) & ":" & vbCrLf & _
                           ChrW(50696) & ") userid@naver.com", _
                           ChrW(48156) & ChrW(49888) & ChrW(51088) & " " & ChrW(51060) & ChrW(47700) & ChrW(51068))
    ' "발신자 이메일을 입력하세요: 예) userid@naver.com"
    If senderEmail = "" Then Exit Sub

    senderPassword = InputBox(ChrW(50528) & ChrW(54540) & ChrW(47532) & ChrW(52992) & ChrW(51060) & ChrW(49496) & " " & _
                              ChrW(48708) & ChrW(48128) & ChrW(48264) & ChrW(54840) & ChrW(47484) & " " & ChrW(51077) & ChrW(47141) & ChrW(54616) & ChrW(49464) & ChrW(50836) & ":", _
                              ChrW(48708) & ChrW(48128) & ChrW(48264) & ChrW(54840))
    ' "애플리케이션 비밀번호를 입력하세요:", "비밀번호"
    If senderPassword = "" Then Exit Sub

    ' 첨부 파일 폴더 경로
    basePath = ThisWorkbook.Path
    ' "부서별파일" 폴더
    attachFolderPath = basePath & "\" & ChrW(48512) & ChrW(49436) & ChrW(48324) & ChrW(54028) & ChrW(51068) & "\"

    sendCount = 0
    failCount = 0

    For i = 2 To lastRow
        ' C열이 비어있는 경우에만 발송
        If Trim(ws.Cells(i, 3).Value) = "" Then

            Dim deptName As String
            Dim recipientEmail As String
            Dim attachFilePath As String
            Dim emailSubject As String
            Dim emailBody As String

            deptName = ws.Cells(i, 1).Value      ' 부서명
            recipientEmail = ws.Cells(i, 2).Value ' 이메일

            ' 첨부 파일 경로: 부서명_인사현황.xlsx
            ' 인사현황 = ChrW(51064) & ChrW(49324) & ChrW(54788) & ChrW(54889)
            attachFilePath = attachFolderPath & deptName & "_" & _
                             ChrW(51064) & ChrW(49324) & ChrW(54788) & ChrW(54889) & ".xlsx"

            ' 이메일 제목: "[부서명] 2025년 상반기 인사현황 자료 송부"
            emailSubject = "[" & deptName & "] 2025" & ChrW(45380) & " " & _
                           ChrW(49345) & ChrW(48152) & ChrW(44592) & " " & _
                           ChrW(51064) & ChrW(49324) & ChrW(54788) & ChrW(54889) & " " & _
                           ChrW(51088) & ChrW(47308) & " " & ChrW(49569) & ChrW(48512)
            ' "[부서명] 2025년 상반기 인사현황 자료 송부"

            ' 이메일 본문 (HTML)
            emailBody = "<html><body style='font-family: Malgun Gothic, sans-serif; font-size: 10pt;'>"
            emailBody = emailBody & "<p>" & deptName & " " & _
                        ChrW(45812) & ChrW(45817) & ChrW(51088) & ChrW(45784) & ChrW(44760) & ",</p>"
            emailBody = emailBody & "<p>" & ChrW(50504) & ChrW(45397) & ChrW(54616) & ChrW(49464) & ChrW(50836) & ". " & _
                        ChrW(51064) & ChrW(49324) & ChrW(48512) & ChrW(51077) & ChrW(45768) & ChrW(45796) & ".</p>"
            emailBody = emailBody & "<p>2025" & ChrW(45380) & " " & _
                        ChrW(49345) & ChrW(48152) & ChrW(44592) & " " & _
                        ChrW(51064) & ChrW(49324) & ChrW(54788) & ChrW(54889) & " " & _
                        ChrW(51088) & ChrW(47308) & ChrW(47484) & " " & _
                        ChrW(49569) & ChrW(48512) & ChrW(46300) & ChrW(47549) & ChrW(45768) & ChrW(45796) & ".</p>"
            emailBody = emailBody & "<p>" & ChrW(52392) & ChrW(48512) & " " & _
                        ChrW(54028) & ChrW(51068) & ChrW(51012) & " " & _
                        ChrW(54869) & ChrW(51064) & ChrW(54644) & " " & _
                        ChrW(51452) & ChrW(49884) & ChrW(44592) & " " & _
                        ChrW(48148) & ChrW(46989) & ChrW(45768) & ChrW(45796) & ".</p>"
            emailBody = emailBody & "<br>"
            emailBody = emailBody & "<p>" & ChrW(44048) & ChrW(49324) & ChrW(54633) & ChrW(45768) & ChrW(45796) & ".</p>"
            emailBody = emailBody & "<p>" & ChrW(51064) & ChrW(49324) & ChrW(48512) & " " & _
                        ChrW(46300) & ChrW(47548) & "</p>"
            emailBody = emailBody & "</body></html>"

            ' CDO.Message로 이메일 발송
            On Error Resume Next

            Dim cdoMsg As Object
            Dim cdoConfig As Object

            Set cdoMsg = CreateObject("CDO.Message")
            Set cdoConfig = CreateObject("CDO.Configuration")

            With cdoConfig.Fields
                .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
                .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.naver.com"
                .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
                .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
                .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
                .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = senderEmail
                .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = senderPassword
                .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
                .Update
            End With

            With cdoMsg
                Set .Configuration = cdoConfig
                .From = senderEmail
                .To = recipientEmail
                .Subject = emailSubject
                .HTMLBody = emailBody

                ' 첨부 파일 추가 (파일이 존재하는 경우)
                If Dir(attachFilePath) <> "" Then
                    .AddAttachment attachFilePath
                End If

                .Send
            End With

            If Err.Number = 0 Then
                ' 발송 성공: C열에 "완료" + 시각 기록
                ws.Cells(i, 3).Value = ChrW(50756) & ChrW(47308) & " (" & Format(Now, "yyyy-mm-dd hh:nn:ss") & ")"
                ' "완료 (2025-01-15 14:30:00)"
                sendCount = sendCount + 1
            Else
                ' 발송 실패: C열에 에러 메시지 기록
                ws.Cells(i, 3).Value = ChrW(49892) & ChrW(54056) & ": " & Err.Description
                ' "실패: 에러메시지"
                failCount = failCount + 1
                Err.Clear
            End If

            On Error GoTo 0

            Set cdoMsg = Nothing
            Set cdoConfig = Nothing

            ' 서버 부하 방지를 위한 2초 대기
            Application.Wait Now + TimeValue("00:00:02")
        End If
    Next i

    ' 비밀번호 변수 초기화 (메모리에서 제거)
    senderPassword = ""

    ' 완료 메시지
    MsgBox ChrW(51060) & ChrW(47700) & ChrW(51068) & " " & ChrW(48156) & ChrW(49569) & " " & _
           ChrW(50756) & ChrW(47308) & "!" & vbCrLf & vbCrLf & _
           ChrW(49457) & ChrW(44277) & ": " & sendCount & ChrW(44148) & vbCrLf & _
           ChrW(49892) & ChrW(54056) & ": " & failCount & ChrW(44148), vbInformation
    ' "이메일 발송 완료!" & "성공: N건" & "실패: N건"
End Sub

엑셀 VBA 코드를 작성해줘.

- 현재 시트의 C열에 이메일 발송 상태가 기록되어 있어
- A열: 부서명, B열: 이메일, C열: 발송상태
- C열 값이 "완료"로 시작하는 행 수, "실패"로 시작하는 행 수, 빈 행 수를 세줘
- 결과를 MsgBox로 보여줘:
  - 전체: N건
  - 발송 완료: N건
  - 발송 실패: N건
  - 미발송: N건
- 한글 문자열은 ChrW()를 사용해줘

Sub CheckSendStatus()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long

    Dim totalCount As Long
    Dim successCount As Long
    Dim failCount As Long
    Dim pendingCount As Long

    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    totalCount = 0
    successCount = 0
    failCount = 0
    pendingCount = 0

    For i = 2 To lastRow
        totalCount = totalCount + 1

        Dim statusVal As String
        statusVal = Trim(ws.Cells(i, 3).Value)

        If Left(statusVal, 2) = ChrW(50756) & ChrW(47308) Then
            ' "완료"로 시작
            successCount = successCount + 1
            ' 완료 행 배경색: 연한 녹색
            ws.Range("A" & i & ":C" & i).Interior.Color = RGB(198, 239, 206)
        ElseIf Left(statusVal, 2) = ChrW(49892) & ChrW(54056) Then
            ' "실패"로 시작
            failCount = failCount + 1
            ' 실패 행 배경색: 연한 빨강
            ws.Range("A" & i & ":C" & i).Interior.Color = RGB(255, 199, 206)
        Else
            ' 빈 칸 = 미발송
            pendingCount = pendingCount + 1
        End If
    Next i

    ' 결과 메시지
    Dim msg As String
    msg = ChrW(48156) & ChrW(49569) & " " & ChrW(49345) & ChrW(53468) & " " & ChrW(54869) & ChrW(51064) & vbCrLf & vbCrLf
    ' "발송 상태 확인"

    ' "전체: N건"
    msg = msg & ChrW(51204) & ChrW(52404) & ": " & totalCount & ChrW(44148) & vbCrLf
    ' "발송 완료: N건"
    msg = msg & ChrW(48156) & ChrW(49569) & " " & ChrW(50756) & ChrW(47308) & ": " & successCount & ChrW(44148) & vbCrLf
    ' "발송 실패: N건"
    msg = msg & ChrW(48156) & ChrW(49569) & " " & ChrW(49892) & ChrW(54056) & ": " & failCount & ChrW(44148) & vbCrLf
    ' "미발송: N건"
    msg = msg & ChrW(48120) & ChrW(48156) & ChrW(49569) & ": " & pendingCount & ChrW(44148)

    MsgBox msg, vbInformation, ChrW(48156) & ChrW(49569) & " " & ChrW(49345) & ChrW(53468)
    ' 제목: "발송 상태"
End Sub

[HR데이터.xlsx] → pandas 로딩 → 집계/시각화 → [엑셀 보고서] + [PPT 보고서] → 이메일 발송

# 방법 1: 파일 직접 업로드
from google.colab import files
uploaded = files.upload()  # 파일 선택 창이 열립니다

import pandas as pd
df = pd.read_excel('HR데이터.xlsx')

# 방법 2: 구글 드라이브 마운트
from google.colab import drive
drive.mount('/content/drive')

import pandas as pd
df = pd.read_excel('/content/drive/MyDrive/HR데이터.xlsx')

import pandas as pd
from pathlib import Path
from datetime import datetime

# HR데이터.xlsx는 같은 실습파일 폴더에 있음
df = pd.read_excel('HR데이터.xlsx')

# 결과 저장 폴더 설정 (자동화실행결과/)
OUTPUT_DIR = Path('../자동화실행결과')
OUTPUT_DIR.mkdir(exist_ok=True)

# 타임스탬프 생성 (파일명에 사용)
TIMESTAMP = datetime.now().strftime('%Y%m%d_%H%M%S')

# 데이터 크기 확인
print(df.shape)  # (1470, 35)

# 처음 5행 미리보기
df.head()

# 전체 컬럼 정보
df.info()

# 기술 통계량
df.describe()

# 각 컬럼의 데이터 유형 확인
print(df.dtypes)

# 학력을 범주형으로 변환하는 예시
학력_매핑 = {1: '고졸이하', 2: '전문대졸', 3: '대졸', 4: '석사', 5: '박사'}
df['학력명'] = df['학력'].map(학력_매핑)

# 문자열을 범주형(category)으로 변환
df['부서'] = df['부서'].astype('category')
df['직무'] = df['직무'].astype('category')

print(df.dtypes)

import matplotlib.pyplot as plt
import seaborn as sns
from datetime import datetime

# 한글 폰트 설정
plt.rcParams['font.family'] = 'Malgun Gothic'    # Windows
# plt.rcParams['font.family'] = 'AppleGothic'    # Mac
plt.rcParams['axes.unicode_minus'] = False

# 타임스탬프 (결과 파일명에 사용)
timestamp = datetime.now().strftime('%Y%m%d_%H%M%S')

dept_counts = df['부서'].value_counts()

plt.figure(figsize=(8, 5))
plt.bar(dept_counts.index, dept_counts.values, color=['#4472C4', '#ED7D31', '#70AD47'])
plt.title('부서별 인원 현황', fontsize=14)
plt.xlabel('부서')
plt.ylabel('인원 수')

for i, v in enumerate(dept_counts.values):
    plt.text(i, v + 10, str(v), ha='center', fontsize=12)

plt.tight_layout()
plt.savefig(f'chart-부서별인원_{timestamp}.png', dpi=150, bbox_inches='tight')
plt.show()

field_counts = df['전공분야'].value_counts()

plt.figure(figsize=(8, 6))
colors = ['#4472C4', '#ED7D31', '#A5A5A5', '#FFC000', '#70AD47', '#5B9BD5']
plt.pie(field_counts.values, labels=field_counts.index, autopct='%1.1f%%',
        colors=colors, startangle=90)
plt.title('전공분야별 분포', fontsize=14)
plt.tight_layout()
plt.savefig(f'chart-전공분야별분포_{timestamp}.png', dpi=150, bbox_inches='tight')
plt.show()

plt.figure(figsize=(8, 5))
plt.hist(df['통근거리'], bins=20, color='#4472C4', edgecolor='white')
plt.title('통근거리 분포', fontsize=14)
plt.xlabel('통근거리')
plt.ylabel('빈도')
plt.tight_layout()
plt.savefig(f'chart-통근거리분포_{timestamp}.png', dpi=150, bbox_inches='tight')
plt.show()

plt.figure(figsize=(8, 5))
sns.boxplot(data=df, x='부서', y='월급', palette='Set2')
plt.title('부서별 월급 분포', fontsize=14)
plt.xlabel('부서')
plt.ylabel('월급')
plt.tight_layout()
plt.savefig(f'chart-부서별월급_{timestamp}.png', dpi=150, bbox_inches='tight')
plt.show()

fig, axes = plt.subplots(1, 2, figsize=(14, 5))

# 퇴사여부별 인원
attrition = df['퇴사여부'].value_counts()
axes[0].bar(attrition.index, attrition.values, color=['#70AD47', '#ED7D31'])
axes[0].set_title('퇴사여부별 인원', fontsize=13)
for i, v in enumerate(attrition.values):
    axes[0].text(i, v + 10, str(v), ha='center', fontsize=12)

# 부서별 퇴사율
dept_attrition = df.groupby('부서')['퇴사여부'].apply(
    lambda x: (x == '예').mean() * 100
).sort_values(ascending=False)
axes[1].barh(dept_attrition.index, dept_attrition.values, color='#ED7D31')
axes[1].set_title('부서별 퇴사율 (%)', fontsize=13)
axes[1].set_xlabel('퇴사율 (%)')

plt.tight_layout()
plt.savefig(f'chart-퇴사현황_{timestamp}.png', dpi=150, bbox_inches='tight')
plt.show()

# 부서별 인원 집계
print("=== 부서별 인원 ===")
print(df['부서'].value_counts())

# 직무별 인원 집계
print("\n=== 직무별 인원 ===")
print(df['직무'].value_counts())

# 전공분야별 인원 집계
print("\n=== 전공분야별 인원 ===")
print(df['전공분야'].value_counts())

# 부서별 평균 월급, 평균 나이
dept_summary = df.groupby('부서').agg(
    인원수=('사번', 'count'),
    평균월급=('월급', 'mean'),
    평균나이=('나이', 'mean'),
    퇴사율=('퇴사여부', lambda x: round((x == '예').mean() * 100, 1))
).reset_index()

print(dept_summary)

# 피벗테이블: 부서 x 직무별 인원
pivot = pd.pivot_table(df, values='사번', index='부서', columns='직무',
                       aggfunc='count', fill_value=0)
print(pivot)

from openpyxl.styles import Font, Alignment, PatternFill, Border, Side
from datetime import datetime

timestamp = datetime.now().strftime('%Y%m%d_%H%M%S')

# 엑셀 파일 저장 (타임스탬프 포함)
output_file = f'HR_집계결과_{timestamp}.xlsx'

with pd.ExcelWriter(output_file, engine='openpyxl') as writer:
    dept_summary.to_excel(writer, sheet_name='부서별현황', index=False)
    pivot.to_excel(writer, sheet_name='부서직무별인원')
    df['전공분야'].value_counts().to_frame().to_excel(writer, sheet_name='전공분야별인원')

# 서식 적용
from openpyxl import load_workbook

wb = load_workbook(output_file)
ws = wb['부서별현황']

# 헤더 서식
header_fill = PatternFill(start_color='4472C4', end_color='4472C4', fill_type='solid')
header_font = Font(color='FFFFFF', bold=True, size=11)

for cell in ws[1]:
    cell.fill = header_fill
    cell.font = header_font
    cell.alignment = Alignment(horizontal='center')

# 열 너비 자동 조정
for col in ws.columns:
    max_len = max(len(str(cell.value or '')) for cell in col)
    ws.column_dimensions[col[0].column_letter].width = max_len + 4

wb.save(output_file)
print(f"엑셀 파일 저장 완료: {output_file}")

# 코랩에서 파일 다운로드
from google.colab import files
files.download(output_file)

from openpyxl.styles import Font, Alignment, PatternFill, Border, Side
from pathlib import Path
from datetime import datetime

OUTPUT_DIR = Path('../자동화실행결과')
OUTPUT_DIR.mkdir(exist_ok=True)
timestamp = datetime.now().strftime('%Y%m%d_%H%M%S')

output_file = str(OUTPUT_DIR / f'HR_집계결과_{timestamp}.xlsx')

with pd.ExcelWriter(output_file, engine='openpyxl') as writer:
    dept_summary.to_excel(writer, sheet_name='부서별현황', index=False)
    pivot.to_excel(writer, sheet_name='부서직무별인원')
    df['전공분야'].value_counts().to_frame().to_excel(writer, sheet_name='전공분야별인원')

# 서식 적용
from openpyxl import load_workbook

wb = load_workbook(output_file)
ws = wb['부서별현황']

header_fill = PatternFill(start_color='4472C4', end_color='4472C4', fill_type='solid')
header_font = Font(color='FFFFFF', bold=True, size=11)

for cell in ws[1]:
    cell.fill = header_fill
    cell.font = header_font
    cell.alignment = Alignment(horizontal='center')

for col in ws.columns:
    max_len = max(len(str(cell.value or '')) for cell in col)
    ws.column_dimensions[col[0].column_letter].width = max_len + 4

wb.save(output_file)
print(f"엑셀 파일 저장 완료: {output_file}")

from pptx import Presentation
from pptx.util import Inches, Pt
from pptx.enum.text import PP_ALIGN

prs = Presentation()
prs.slide_width = Inches(13.333)
prs.slide_height = Inches(7.5)

# 표지 슬라이드
slide = prs.slides.add_slide(prs.slide_layouts[6])  # 빈 슬라이드
txBox = slide.shapes.add_textbox(Inches(2), Inches(2.5), Inches(9), Inches(2))
tf = txBox.text_frame
p = tf.paragraphs[0]
p.text = "HR 데이터 분석 보고서"
p.font.size = Pt(36)
p.font.bold = True
p.alignment = PP_ALIGN.CENTER

p2 = tf.add_paragraph()
p2.text = "파이썬 자동화 실습 결과"
p2.font.size = Pt(20)
p2.alignment = PP_ALIGN.CENTER

# 차트 이미지를 슬라이드에 삽입
chart_files = [
    (f'chart-부서별인원_{timestamp}.png', '부서별 인원 현황'),
    (f'chart-전공분야별분포_{timestamp}.png', '전공분야별 분포'),
    (f'chart-통근거리분포_{timestamp}.png', '통근거리 분포'),
    (f'chart-퇴사현황_{timestamp}.png', '퇴사 현황 분석'),
]

for chart_file, title in chart_files:
    slide = prs.slides.add_slide(prs.slide_layouts[6])

    # 제목 추가
    txBox = slide.shapes.add_textbox(Inches(0.5), Inches(0.3), Inches(12), Inches(0.8))
    tf = txBox.text_frame
    p = tf.paragraphs[0]
    p.text = title
    p.font.size = Pt(24)
    p.font.bold = True

    # 차트 이미지 삽입
    slide.shapes.add_picture(chart_file, Inches(1.5), Inches(1.5), Inches(10), Inches(5.5))

pptx_file = f'HR_분석보고서_{timestamp}.pptx'
prs.save(pptx_file)
print(f"PPT 저장 완료: {pptx_file}")

# 코랩에서 파일 다운로드
from google.colab import files
files.download(pptx_file)

from pptx import Presentation
from pptx.util import Inches, Pt
from pptx.enum.text import PP_ALIGN

prs = Presentation()
prs.slide_width = Inches(13.333)
prs.slide_height = Inches(7.5)

# 표지 슬라이드
slide = prs.slides.add_slide(prs.slide_layouts[6])
txBox = slide.shapes.add_textbox(Inches(2), Inches(2.5), Inches(9), Inches(2))
tf = txBox.text_frame
p = tf.paragraphs[0]
p.text = "HR 데이터 분석 보고서"
p.font.size = Pt(36)
p.font.bold = True
p.alignment = PP_ALIGN.CENTER

p2 = tf.add_paragraph()
p2.text = "파이썬 자동화 실습 결과"
p2.font.size = Pt(20)
p2.alignment = PP_ALIGN.CENTER

# 차트 이미지를 슬라이드에 삽입 (자동화실행결과 폴더에서 읽기)
chart_files = [
    (f'chart-부서별인원_{timestamp}.png', '부서별 인원 현황'),
    (f'chart-전공분야별분포_{timestamp}.png', '전공분야별 분포'),
    (f'chart-통근거리분포_{timestamp}.png', '통근거리 분포'),
    (f'chart-퇴사현황_{timestamp}.png', '퇴사 현황 분석'),
]

for chart_file, title in chart_files:
    chart_path = OUTPUT_DIR / chart_file
    slide = prs.slides.add_slide(prs.slide_layouts[6])

    txBox = slide.shapes.add_textbox(Inches(0.5), Inches(0.3), Inches(12), Inches(0.8))
    tf = txBox.text_frame
    p = tf.paragraphs[0]
    p.text = title
    p.font.size = Pt(24)
    p.font.bold = True

    slide.shapes.add_picture(str(chart_path), Inches(1.5), Inches(1.5), Inches(10), Inches(5.5))

pptx_file = str(OUTPUT_DIR / f'HR_분석보고서_{timestamp}.pptx')
prs.save(pptx_file)
print(f"PPT 저장 완료: {pptx_file}")

import smtplib
from email.mime.multipart import MIMEMultipart
from email.mime.text import MIMEText
from email.mime.base import MIMEBase
from email import encoders

# ===== 발송 설정 =====
smtp_server = 'smtp.naver.com'
smtp_port = 587
sender_email = 'your_id@naver.com'        # 본인 네이버 아이디
sender_password = 'your_app_password'       # 앱 비밀번호 (네이버 설정에서 생성)
receiver_email = 'receiver@example.com'     # 수신자 이메일

# ===== 이메일 구성 =====
msg = MIMEMultipart()
msg['From'] = sender_email
msg['To'] = receiver_email
msg['Subject'] = 'HR 데이터 분석 보고서 - 자동 발송'

body = """안녕하세요,

HR 데이터 분석 보고서를 첨부하여 보내드립니다.
파이썬 자동화를 통해 생성된 보고서입니다.

감사합니다.
"""
msg.attach(MIMEText(body, 'plain', 'utf-8'))

# ===== 파일 첨부 =====
pptx_file = 'HR_분석보고서.pptx'
with open(pptx_file, 'rb') as f:
    part = MIMEBase('application', 'octet-stream')
    part.set_payload(f.read())
    encoders.encode_base64(part)
    part.add_header('Content-Disposition', f'attachment; filename="{pptx_file}"')
    msg.attach(part)

# ===== 발송 =====
try:
    server = smtplib.SMTP(smtp_server, smtp_port)
    server.starttls()
    server.login(sender_email, sender_password)
    server.send_message(msg)
    server.quit()
    print("이메일 발송 완료!")
except Exception as e:
    print(f"발송 실패: {e}")

import smtplib
from email.mime.multipart import MIMEMultipart
from email.mime.text import MIMEText
from email.mime.base import MIMEBase
from email import encoders

# ===== 발송 설정 =====
smtp_server = 'smtp.naver.com'
smtp_port = 587
sender_email = 'your_id@naver.com'
sender_password = 'your_app_password'
receiver_email = 'receiver@example.com'

# ===== 이메일 구성 =====
msg = MIMEMultipart()
msg['From'] = sender_email
msg['To'] = receiver_email
msg['Subject'] = 'HR 데이터 분석 보고서 - 자동 발송'

body = """안녕하세요,

HR 데이터 분석 보고서를 첨부하여 보내드립니다.
파이썬 자동화를 통해 생성된 보고서입니다.

감사합니다.
"""
msg.attach(MIMEText(body, 'plain', 'utf-8'))

# ===== 파일 첨부 =====
pptx_file = 'HR_분석보고서.pptx'
with open(pptx_file, 'rb') as f:
    part = MIMEBase('application', 'octet-stream')
    part.set_payload(f.read())
    encoders.encode_base64(part)
    part.add_header('Content-Disposition', f'attachment; filename="{pptx_file}"')
    msg.attach(part)

# ===== 발송 =====
try:
    server = smtplib.SMTP(smtp_server, smtp_port)
    server.starttls()
    server.login(sender_email, sender_password)
    server.send_message(msg)
    server.quit()
    print("이메일 발송 완료!")
except Exception as e:
    print(f"발송 실패: {e}")

from pptx import Presentation

# 핵심 코드 3줄
prs = Presentation('실습_교육수료증-템플릿.pptx')   # 템플릿 열기
replace_placeholders(prs.slides[0], data)           # 치환
prs.save('수료증_김민수.pptx')                       # 저장

1. HR데이터.xlsx 로딩 (pandas)
   ↓
2. 데이터 유형 확인 및 수정
   ↓
3. 시각화 (matplotlib/seaborn) → 차트 이미지 저장
   ↓
4. 데이터 집계 (groupby, pivot_table)
   ↓
5. 집계 결과 → 엑셀 파일 저장 (openpyxl)
   ↓
6. 차트 이미지 → PPT 슬라이드 삽입 (python-pptx)
   ↓
7. PPT 파일 → 이메일 첨부 발송 (smtplib)