시나공

시험에

나오는 것만

공부한다!

msgbox 부분의 = 을 생략하셔야 할 것 같네요.

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) = txt수량
Cells(입력행, 5) = txt단가
Cells(입력행, 6) = Format(Val(txt수량) * Val(txt단가), "currency")
Cells(입력행, 7) = cmb결재형태

txt제품명 = ""
txt수량 = ""
txt단가 = ""
cmb결재형태 = ""
End If

End Sub

수정하시고 결과가 제대로 나오지 않는다면

작성하신 파일을 첨부하여 다시 질문 주시면 확인 후 답변 드리겠습니다.

좋은 하루 되세요.