시나공

시험에

나오는 것만

공부한다!

아래 굵게 표시된 부분에 오타가 있어서 정상적으로 실행되지 않았습니다. 

Private Sub cmd등록_Click()

  If txt제품평 = "" Then

      MsgBox "제품명을 입력하시오."

  ElseIf txt수량 = "" Then

      MsgBox "수량을 입력하시오."

  ElseIf txt단가 = "" Then

      MsgBox "단가를 입력하시오."

  ElseIf cmb결재형태 = "" Then

      MsgBox "결재형태를 입력하시오."

  Else

      기준행위치 = [b3].Row

      기준범위행수 = [b3].CurrentRegion.Rows.Count

      입력행 = 기준행위치 + 기준범위행수

      Cells(입력행, 2) = CDate(txt판매일자)

      Cells(입력행, 3) = txt제품명

      Cells(입력행, 4) = Val(txt수량)

      Cells(입력행, 5) = Val(txt단가)

      Cells(입력행, 6) = Format(Val(txt수랑) * Val(txt단가), "currency")

      Cells(입력행, 7) = cmb결재형태

      txt제품명 = ""

      txt수량 = ""

      txt단가 = ""

      cmb결재형태 = ""

  End If

End Sub

좋은 하루 되세요.