기본문제 5번에 보면
Private Sub cmd등록_Click()
If txt제품명 = "" Then
MsgBox "제품명을 입력하시오", vbOKOnly
ElseIf txt수량 = "" Then
MsgBox "수량을 입력하시오", vbOKOnly
ElseIf txt단가 = "" Then
MsgBox "단가를 입력하시오", vbOKOnly
ElseIf cmb결재형태 = "" Then
MsgBox "결재형태를 입력하시오", vbOKOnly
Else
x = [b3].Row + [b3].CurrentRegion.Rows.Count - 1
Cells(x, 2) = txt판매일자
Cells(x, 3) = txt제품명
Cells(x, 4) = txt수량
Cells(x, 5) = txt단가
Cells(x, 6) = Format((Val(txt단가) * Val(txt수량)), "#,###")
Cells(x, 7) = cmb결재형태
End If
txt제품명 = ""
txt수량 = ""
txt단가 = ""
cmb결재형태 = ""
End Sub
이렇게 프로시저를 작성해도 답은 나오던데.. 이렇게 작성해도 맞나요?
결과가 같다면 상관 없지만
x = [b3].Row + [b3].CurrentRegion.Rows.Count - 1
와 같이 -1 을 하시면 원하는 결과가 나오지 않으실 텐데요.
다시한번 확인 해 보시고
잘 안되시거나 제 답변이 잘 못 된것 같다면
작성하신 파일을 첨부하여 다시 질문 주시면 확인 후 답변 드리겠습니다.
좋은 하루 되세요.
"-
*2012-11-22 07:25:56
결과가 같다면 상관 없지만
x = [b3].Row + [b3].CurrentRegion.Rows.Count - 1
와 같이 -1 을 하시면 원하는 결과가 나오지 않으실 텐데요.
다시한번 확인 해 보시고
잘 안되시거나 제 답변이 잘 못 된것 같다면
작성하신 파일을 첨부하여 다시 질문 주시면 확인 후 답변 드리겠습니다.
좋은 하루 되세요.
"