1004 런타임에러가 나면서 디버그가 뜨네요.
책의 내용처럼 했는데도 등록버튼을 클릭하면 그렇게 되네요.
조회버튼은 입력도 안했는데 기본설정값같은 것이 뜨면서 조회가 안됍니다.
액셀파일을 첨부하오니 에러설명좀 부탁합니다.
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
빨간색으로 표시된 부분이 생략되어 있네요.
수정한 후 다시 확인 해 보세요.
좋은 하루 되세요.
"-
*2014-11-15 11:54:23
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
빨간색으로 표시된 부분이 생략되어 있네요.
수정한 후 다시 확인 해 보세요.
좋은 하루 되세요.
"