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

2. ‘시험점수입력’ 시트에서 다음과 같은 작업을 수행하고 저장하시오.(각 5점)
① ‘성적입력’ 버튼을 클릭하면 ‘성적자료입력’ 폼이 화면에 나타나도록 프로시저를 작성하고, 폼이 실행되면 [G7:G11] 영역의 값이 콤보 상자(cmb소속)의 목록에 추가되도록 프로시저를 작성하시오.
② ‘성적자료입력’ 폼이 화면에 나타나면 성적입력일(Txt입력일) 텍스트 상자에 현재 날짜가 표시되도록 작성하시오.
③ ‘성적자료입력’ 폼에 데이터를 입력하고, 등록(cmd등록) 버튼을 클릭하면 폼에 입력된 이름(txt이름), 자료구조(txt자료구조), 운영체제(txt운영체제)의 데이터가 ‘시험점수입력’ 시트의 표 안에 입력되어있는 마지막 데이터의 행에 연속하여 추가되도록 프로시저를 작성하시오.
 ▶ 데이터는 [B5] 셀부터 입력되어 있다.
 ▶ 폼의 등록(cmd등록) 버튼을 클릭하면 폼의 이름(txt이름), 자료구조(txt자료구조), 운영체제(txt운영체제)에는 새로운 값이 입력될 수 있도록 설정하시오.
 ▶ 평균은 입력받은 자료구조와 운영체제 값의 평균이고, 소수 1자리까지 표기하시오.
    ※ 데이터를 추가하거나 삭제하여도 항상 마지막 데이터 다음에 입력되어야

Private Sub cmd성적_Click()
    성적자료입력.Show
End Sub

Private Sub UserForm_Initialize()
    cmb소속.resource = "g7:g11"
End Sub

Private Sub UserForm_Initialize()
    cmb소속.resource = "g7:g11"
    Txt입력일 = Date
End Sub

Private Sub cmd등록_Click()
    입력행 = [b5].Row + [b5].CurrentRegion.Rows.Count
   
    Cells(입력행, 2) = txt이름
    Cells(입력행, 3) = txt자료구조
    Cells(입력행, 4) = txt운영체제
    Cells(입력행, 5) = Format((Val(txt자료구조) + Val(txt운영체제)) / 2, "#,###.0")
   
    txt이름 = ""
    txt자료구조 = ""
    txt운영체제 = ""
       
End Sub