시나공

시험에

나오는 것만

공부한다!

507페이지 실전모의고사B형 문제4-2

저는 이렇게 작성했고, 

Private Sub cmd등록_Click()

 If IsNull(cmb제품명.Value) Then

  MsgBox "제품명을 선택하세요.", , "제품명"

 ElseIf IsNull(txt수량.Value) Then

  MsgBox "수량을 입력하세요.", , "수량"

 Else

  참조행 = cmb제품명.ListIndex + 5

  입력행 = [a4].Row + [a4].CurrentRegion.Rows.Count

  Cells(입력행, 1) = Cells(참조행, 7)

  Cells(입력행, 2) = txt수량.Value

  Cells(입력행, 3) = Cells(참조행, 8)

  Cells(입력행, 4) = Cells(참조행, 9)

  Cells(입력행, 5) = txt수량.Value * txt단가.Value

End Sub

답안은 이렇습니다. 

Private Sub cmd등록_Click()

    If cmb제품명.Value = "" Then

        MsgBox "제품명을 선택하세요.", vbOKOnly, "제품명"

    ElseIf txt수량.Value = "" Then

        MsgBox "수량을 입력하세요.", vbOKOnly, "수량"

    Else

        참조행 = cmb제품명.ListIndex + 5

        입력행 = [a4].Row + [a4].CurrentRegion.Rows.Count

        Cells(입력행, 1) = cmb제품명.Value

        Cells(입력행, 2) = txt수량.Value

        Cells(입력행, 3) = Cells(참조행, 8)

        Cells(입력행, 4) = Cells(참조행, 9)

        Cells(입력행, 5) = txt수량.Value * Cells(참조행, 8)

1. 선택하지 않았으면을 표현할때, isnull을 쓸 경우와 ""을 쓸 경우를 어떻게 구분하나요??

2.  MsgBox "제품명을 선택하세요.", vbOKOnly, "제품명"을  

    MsgBox "제품명을 선택하세요.", , "제품명" 로 입력하면 안되나요?

3. Cells(입력행, 1) = cmb제품명.Value를 

  Cells(입력행, 1) = Cells(참조행, 7)로 입력하면 안되나요?

4. Cells(입력행, 5) = txt수량.Value * Cells(참조행, 8) 을 

   Cells(입력행, 5) = txt수량.Value * txt단가.Value 로 입력하면 안되나요?