• 기존 수강계획 도우미에서 추가된 것
  • 2025년 7월 1일 기준
  • 사회복지학과, 교육학과, 청소년교육복지상담학과(청소년교육학과), 컴퓨터과학과, 통계데이터과학과, 법학과, 경제학과 등 총 255개 교과목
  • 담당교수 추가
  • 일부 셀에서 참조 수식 변경
  • 초미세 오류 수정
  • 3학년 편입생의 첫 학기 수강신청에 따른 실습 참여 신청 가능 여부
• [매크로] 신입생 또는 편입생 선택 기능
  • 선택하면 메시지박스가 나타나고 변경 사항 확인 가능
  • 1학년 신입생
    • 1학년 ~ 최대 5학년 까지 계획 가능
    • 졸업요건 표기 : 교양 24학점, 전공 51학점
  • 2학년 편입생
    • 2학년 ~ 최대 5학년 까지 계획 가능
    • 편입학 인정학점 표시 : 교양 15학점, 전공 15학점
    • 졸업요건 표기 : 교양 24학점, 전공 60학점
  • 3학년 편입생
    • 3학년 ~ 최대 5학년 까지 계획 가능
    • 편입학 인정학점 표시 : 교양 33학점, 전공 30학점
    • 졸업요건 표기 : 교양 24학점, 전공 69학점
• [매크로] 코스모스 체크 박스
  • 선택하면 메시지박스가 나타나고 변경 사항 확인 가능
  • 2학기 편입생을 위해 도입
  • 체크 하는 경우         : 학기 순서가 2 → 1 → 2 → 1 ….  로 변경
  • 체크 하지 않은 경우 : 학기 순서가 1 → 2 → 1 → 2 ….  로 변경’
  • 학기란에 직접 수동으로 입력 가능
• [매크로] 복수전공 체크 박스
  • 복수전공하는 학우님을 위해 도입
  • 체크 하는 경우
    • 수강계획서 구분란에 복수전공학과의 전공이 전공으로 표기
    • 맨 하단에 제1전공, 제2전공이 표시되고, 학과 입력란 표기
    • 제2전공의 학점 표기
    • 졸업요건 추가 표기 : 제2전공 51학점
• [매크로] 5학년 추가
  • 여러 시트 간 다양한 수식이 연동되어 있어 편집 시 오류 발생 가능
  • 1년(2학기) 정도 추가로 작성해 두었으니, 체크하시면 5학년 추가
• [매크로] 실습 점검
  • 첫 학기에 사회복지학과 전공 6과목을 이수하지 못한 경우 다음 학기에 실습 참여 신청 불가
  • 첫 학기에 전공 6과목 수강 신청했는지 확인 후 "1학기 학점 평점"란에 결과 메시지 출력함
• [매크로] 사회복지사2급, 건강가정사, 평생교육사2급 체크 박스
  • 원하는 자격증 체크하는 경우
    • 현재 입력한 수강 교과목에 대해 필수 및 선택과목 등의 정보를 출력
    • 해당 자격증 취득을 위한 모든 교과목을 입력한 경우 상단에 각 자격증 정보란이 녹색으로 변경
  • 원하는 자격증 체크하지 않은 경우
    • 각 자격증 관련 정보가 화면에 출력되지 않음

1. 왼쪽 상단의 콤보박스 목록상자

============================================================== 

Private Sub cbSem_Change()
    Dim selectedValue As String
    selectedValue = cbSem.Value
    
    If Left(selectedValue, 1) = 1 Then
        Range("B7").Value = "1"
        Range("B15").Value = "1"
        Range("B23").Value = "2"
        Range("B31").Value = "2"
        Range("B39").Value = "3"
        Range("B47").Value = "3"
        Range("B55").Value = "4"
        Range("B63").Value = "4"
        Range("B71").Value = "5"
        Range("B79").Value = "5"
        
        Range("K90").Value = 0
        Range("K91").Value = 0
        Range("K92").Value = 0
        
        Range("O90").Value = 24
        Range("O91").Value = 51
        Range("O93").Value = 0
        Range("O94").Value = 130
        
        Rows("55:70").Hidden = False
        
        If Range("AB4").Value Then
            Rows("71:86").Hidden = False
        Else
            Rows("71:86").Hidden = True
        End If
        
        MsgBox "[1학년 신입생]" & vbNewLine & "    - 졸업요건 : 교양 24학점, 전공 51학점, 총 130학점", vbOKOnly, "학년 설정"
    ElseIf Left(selectedValue, 1) = 2 Then
        Range("B7").Value = "2"
        Range("B15").Value = "2"
        Range("B23").Value = "3"
        Range("B31").Value = "3"
        Range("B39").Value = "4"
        Range("B47").Value = "4"
        Range("B55").Value = "5"
        Range("B63").Value = "5"
        Range("B71").Value = "-"
        Range("B79").Value = "-"
        
        Range("K90").Value = 15
        Range("K91").Value = 15
        Range("K92").Value = 0
        
        Range("O90").Value = 24
        Range("O91").Value = 60
        Range("O93").Value = 0
        Range("O94").Value = 130
        
        Rows("39:70").Hidden = False

        If Range("AB4").Value Then
            Rows("55:70").Hidden = False
        Else
            Rows("55:70").Hidden = True
        End If
        
        MsgBox "[2학년 편입생]" & vbNewLine & "    - 편입학으로 교양 15학점, 전공 15학점 인정" & vbNewLine & "    - 졸업요건 : 교양 24학점, 전공 60학점, 총 130학점", vbOKOnly, "학년 설정"
    Else
        Range("B7").Value = "3"
        Range("B15").Value = "3"
        Range("B23").Value = "4"
        Range("B31").Value = "4"
        Range("B39").Value = "5"
        Range("B47").Value = "5"
        Range("B55").Value = "-"
        Range("B63").Value = "-"
        Range("B71").Value = "-"
        Range("B79").Value = "-"
        
        Range("K90").Value = 33
        Range("K91").Value = 30
        Range("K92").Value = 0
        
        Range("O90").Value = 24
        Range("O91").Value = 69
        Range("O93").Value = 0
        Range("O94").Value = 130
        
        If Range("AB4").Value Then
            Rows("39:54").Hidden = False
        Else
            Rows("39:54").Hidden = True
        End If
            
        
        Rows("55:86").Hidden = True
        MsgBox "[3학년 편입생]" & vbNewLine & "    - 편입학으로 교양 33학점, 전공 30학점 인정" & vbNewLine & "    - 졸업요건 : 교양 24학점, 전공 69학점, 총 130학점", vbOKOnly, "학년 설정"
    End If
End Sub

============================================================== 

2. 2학기 편입생을 위한 코스모스 체크박스

============================================================== 

 Sub Semester()
    If Range("AD4").Value = True Then
        Range("C7").Value = "2"
        Range("C15").Value = "1"
        Range("C23").Value = "2"
        Range("C31").Value = "1"
        Range("C39").Value = "2"
        Range("C47").Value = "1"
        Range("C55").Value = "2"
        Range("C63").Value = "1"
        Range("C71").Value = "2"
        Range("C79").Value = "1"
        MsgBox "[2학기 편입자]" & vbNewLine & "    - 학기 순서가 2 → 1 → 2 → 1 → ...  순서 변경" & vbNewLine & "    - 직접 학기 입력 가능", vbOKOnly, "학기 순서 설정"
        
    Else
        Range("C7").Value = "1"
        Range("C15").Value = "2"
        Range("C23").Value = "1"
        Range("C31").Value = "2"
        Range("C39").Value = "1"
        Range("C47").Value = "2"
        Range("C55").Value = "1"
        Range("C63").Value = "2"
        Range("C71").Value = "1"
        Range("C79").Value = "2"
        MsgBox "[1학기 편입자]" & vbNewLine & "    - 학기 순서가 1 → 2 → 1 → 2 → ...  순서 변경" & vbNewLine & "    - 직접 학기 입력 가능", vbOKOnly, "학기 순서 설정"
    End If
End Sub

============================================================== 

3. 복수전공하는 분들을 위한 체크박스

============================================================== 

Sub Check_DM()
    If Range("AE4").Value = True Then
        Range("F91").Value = "제1전공"
        Range("F92").Value = "제2전공"
        Range("O92").Value = 51
        Rows("92").Hidden = False
    Else
        Range("F91").Value = "전공"
        Range("F92").Value = "-"
        Range("O92").Value = 0
        Rows("92").Hidden = True
    End If
End Sub

============================================================== 

4. 5학년 추가를 위한 체크박스

============================================================== 

Sub SpareGrade()
    Dim selectedValue As String
    selectedValue = Range("AE7").Value

    If selectedValue = "1학년 신입생" Then
        If Range("AB4").Value = True Then
            Rows("71:86").Hidden = False
        Else
            Rows("71:86").Hidden = True
        End If
    ElseIf selectedValue = "2학년 편입생" Then
        If Range("AB4").Value = True Then
            Rows("55:70").Hidden = False
        Else
            Rows("55:70").Hidden = True
        End If
    Else
        If Range("AB4").Value = True Then
            Rows("39:54").Hidden = False
        Else
            Rows("39:54").Hidden = True
        End If
    
    End If
End Sub

============================================================== 

5. 사회복지사 2급/건강가정사/평생교육사 자격증 이수 상황을 확인하기 위한 체크박스

============================================================== 

 Sub Social_Hide_Show()
    If Range("AC5").Value = True Then
        Columns("R:S").Hidden = False
    Else
        Columns("R:S").Hidden = True
    End If
End Sub

==============================================================

Sub Health_Hide_Show()
    If Range("AD5").Value = True Then
        Columns("T:V").Hidden = False
    Else
        Columns("T:V").Hidden = True
    End If
End Sub

==============================================================

Sub LLEdu_Hide_Show()
    If Range("AE5").Value = True Then
        Columns("W:Y").Hidden = False
    Else
        Columns("W:Y").Hidden = True
    End If
End Sub

============================================================== 

이상이 제가 사용한 매크로의 모든 코드이니, 안심하고 사용하셔도 됩니다.