[컴활-프로그래밍작업]06년 2회

2. ‘업적입력’ 시트에서 다음과 같은 작업을 수행하고 저장하시오.(각 5점)
① ‘업적관리입력’ 버튼을 클릭하면 그림과 같이 사용자 정의 폼 <업적관리입력> 폼이 화면에 나타나도록 이벤트 프로시저를 작성하시오.
② <업적관리입력> 폼에 데이터를 입력하고 ‘입력(cmd입력)’ 버튼을 클릭하면 폼에 입력된 데이터가 ‘업적입력’ 시트의 표에 입력되어 있는 마지막 행 다음에 연속하여 추가되도록 프로시저를 작성하시오.
   (폼의 입력버튼 클릭 후 추가될 프로시저 작성 부분 아래에 작성하시오.)
 ▶ ‘업적합계’는 입력받은 연구과제, 연구논문, 산학협동, 사회봉사의 값을 이용하여 프로시저에서 작성하여 표시하시오.(업적합계 = 연구과제 + 연구논문 + 산학협동 + 사회봉사)
 ▶ 워크시트에 데이터를 입력할 때 표의 제목 행과 입력내용이 일치하도록 작성하시오.
    ※ 데이터를 추가하거나 삭제하여도 항상 마지막 데이터 다음에 입력되어야 함
③ <업적관리입력> 폼의 날짜(Lbl날짜) 레이블을 더블 클릭하면, 날짜(txt날짜) 텍스트상자에 현재 시스템 날짜와 시간이 표시되도록 작성하시오.

Private Sub CommandButton1_Click()
    업적관리입력.Show
End Sub

Private Sub Cmd입력_Click()
    입력행 = [b4].Row + [b4].CurrentRegion.Rows.Count
   
    Cells(입력행, 2) = Lst학과
    Cells(입력행, 3) = Txt성명
    Cells(입력행, 4) = Txt연구과제
    Cells(입력행, 5) = Txt연구논문
    Cells(입력행, 6) = Txt산학협동
    Cells(입력행, 7) = Txt사회봉사
    Cells(입력행, 8) = Val(Txt연구과제) + Val(Txt연구논문) + Val(Txt산학협동) + Val(Txt사회봉사)

Private Sub Txt날짜_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Txt날짜 = Now()
End Sub