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

2. ‘종목입력’ 시트에서 다음과 같은 작업을 그림을 참조하여 수행하고 저장하시오.(15점)
 - ‘종목입력’ 시트를 활성화(Activate)하면 해당 시트의 [B2] 셀에 ‘종목분석’이 입력되도록 이벤트 프로시저를 작성하시오. (5점)
 - ‘신규입력’ 버튼을 클릭하면 <입력폼> 폼이 나타나도록 프로시저를 작성하시오. (5점)
 - 그림과 같이 사용자 정의 폼 <입력폼>의 입력확인(Cmd확인) 버튼을 클릭하면 폼에 입력된 종목코드(Txt코드), 종목명(Txt종목), 현재가(Txt값)의 데이터가 ‘종목입력’ 시트에 입력되어 있는 마지막 데이터 행의 다음에 연속해서 추가되도록 프로시저를 작성하시오. (5점)
▶ 비고는 입력받은 현재가(Txt값)의 값이 100000 이상이면 ‘우수종목’, 아니면 ‘보통’이 표시되도록 프로시저를 작성하시오.
▶ 데이터를 추가하거나 삭제하여도 항상 마지막 데이터 다음에 입력되어야 함
▶ 반드시 데이터를 입력한 내용이 주어진 표에 나타나도록 하시오.

Private Sub Worksheet_Activate()
    Range("b2").Value = "종목분석"
End Sub

Private Sub 신규입력_Click()
    입력폼.Show
End Sub

입력행 = [b3].Row + [b3].CurrentRegion.Rows.Count-1
   
    Cells(입력행, 2) = Txt코드
    Cells(입력행, 3) = Txt종목
    Cells(입력행, 4) = Txt값
   
    If Txt값 >= 100000 Then
        Cells(입력행, 5) = "우수종목"
    Else
        Cells(입력행, 5) = "보통"
    End If
   
    If Txt코드.Text = "" Then
        MsgBox "종목코드 입력하세요"
        Txt코드.SetFocus
        Exit Sub
    End If