[컴활1급] Excel : 수강등록 프로시저 [엑셀 프로시저 기출문제 8회]

---

- Excel : 수강등록 프로시저 [엑셀 프로시저 기출문제 8회]

' 수강등록 단추 클릭
Private Sub cmd수강등록_Click()
    수강등록.Show
End Sub

' 폼 초기화
Private Sub UserForm_Initialize()
    lst강의목록.RowSource = "I4:L12"
    lst강의목록.Value = lst강의목록.List(0, 0)
End Sub

' 검색 단추 클릭
Private Sub cmd등록_Click()
    입력행 = [A2].Row + [A2].CurrentRegion.Rows.Count
    참조행 = lst강의목록.ListIndex
    Cells(입력행, 1) = txt수강생.Value
    If opt1학년 = True Then
        Cells(입력행, 2) = opt1학년.Caption
    ElseIf opt2학년 = True Then
        Cells(입력행, 2) = opt2학년.Caption
    ElseIf opt3학년 = True Then
        Cells(입력행, 2) = opt3학년.Caption
    End If
    Cells(입력행, 3) = lst강의목록.List(참조행, 0)
    Cells(입력행, 4) = lst강의목록.List(참조행, 1)
    Cells(입력행, 5) = lst강의목록.List(참조행, 2)
    Cells(입력행, 6) = Format(lst강의목록.List(참조행, 3), "#,###")
End Sub

' 워크시트 활성화
Private Sub Worksheet_Activate()
    [B2] = "수강내역"
    [B2].Font.Bold = True
End Sub

---

수강등록 '등록' 버튼 실행 결과

---