If txt제품명 = "" Then
MsgBox "제품명을 입력하시오"
ElseIf txt수량 = "" Then
MsgBox "수량을 입력하시오"
ElseIf txt단가 = "" Then
MsgBox "단가를 입력하시오"
ElseIf txt결재형태 = "" Then
MsgBox "결재형태를 입력하시오"
Else
a = Range("b3").CurrentRegion.Rows.Count + 3
Cells(a, 2) = txt판매일자
Cells(a, 3) = txt제품명
Cells(a, 4) = Val(txt수량)
Cells(a, 5) = Val(txt단가)
Cells(a, 6) = Val(txt수량) * Val(txt단가)
Cells(a, 7) = cmb결재형태
txt제품명 = ""
txt수량 = ""
txt단가 = ""
cmb결재형태 = ""
End If
위와 같이 입력하고
등록버튼을 클릭했는데
"결재형태를입력하시오"
라고 뜹니다. 결재형태부분에 문제가 있는건가요?
If txt제품명 = "" Then
MsgBox "제품명을 입력하시오"
ElseIf txt수량 = "" Then
MsgBox "수량을 입력하시오"
ElseIf txt단가 = "" Then
MsgBox "단가를 입력하시오"
ElseIf txt결재형태 = "" Then
MsgBox "결재형태를 입력하시오"
Else
a = Range("b3").CurrentRegion.Rows.Count + 3
Cells(a, 2) = txt판매일자
Cells(a, 3) = txt제품명
Cells(a, 4) = Val(txt수량)
Cells(a, 5) = Val(txt단가)
Cells(a, 6) = Val(txt수량) * Val(txt단가)
Cells(a, 7) = cmb결재형태
txt제품명 = ""
txt수량 = ""
txt단가 = ""
cmb결재형태 = ""
End If
빨간색으로 표시된 부분 cmd결재형태로 변경해 보세요.
좋은 하루 되세요.
-
*2017-07-25 19:52:35
If txt제품명 = "" Then
MsgBox "제품명을 입력하시오"ElseIf txt수량 = "" Then
MsgBox "수량을 입력하시오"ElseIf txt단가 = "" Then
MsgBox "단가를 입력하시오"ElseIf txt결재형태 = "" Then
MsgBox "결재형태를 입력하시오"Else
a = Range("b3").CurrentRegion.Rows.Count + 3
Cells(a, 2) = txt판매일자
Cells(a, 3) = txt제품명
Cells(a, 4) = Val(txt수량)
Cells(a, 5) = Val(txt단가)
Cells(a, 6) = Val(txt수량) * Val(txt단가)
Cells(a, 7) = cmb결재형태txt제품명 = ""
txt수량 = ""
txt단가 = ""
cmb결재형태 = ""
End If빨간색으로 표시된 부분 cmd결재형태로 변경해 보세요.
좋은 하루 되세요.