[컴활1급] Excel : 성적입력 프로시저 [엑셀 프로시저 기출문제 2회]

---

- Excel : 성적입력 프로시저 [프로시저 기출문제 2회]

' 성적입력 단추 클릭
Private Sub cmd성적입력_Click()
    성적입력.Show
End Sub

' 폼 초기화
Private Sub UserForm_Initialize()
    cmb학과명.RowSource = "'기타작업-2'!I5:I8"
    opt1학년.Value = True
End Sub

' 입력 단추 클릭
Private Sub cmd입력_Click()
    입력행 = [B2].Row + [B2].CurrentRegion.Rows.Count
    Cells(입력행, 2) = 입력행 - 3 & txt성명.Value
    Cells(입력행, 3) = cmb학과명.Value
    If opt1학년.Value = True Then
        Cells(입력행, 4) = "1학년"
    ElseIf opt2학년.Value = True Then
        Cells(입력행, 4) = "2학년"
    ElseIf opt3학년.Value = True Then
        Cells(입력행, 4) = "3학년"
    Else
        Cells(입력행, 4) = "4학년"
    End If
    Cells(입력행, 5) = txt학과성적.Value
    Cells(입력행, 6) = txt어학테스트.Value
    Cells(입력행, 7) = txt면접.Value
End Sub

' 폼 종료
Private Sub cmd종료_Click()
    MsgBox Me.Caption & " 폼을 종료합니다."
    Unload Me
End Sub

---

성적입력 '입력' 버튼 실행 결과

성적입력 '종료' 버튼 실행 결과 / Caption 속성 사용

---