안녕하세요. 저는 컴퓨터활용능력 1급 실기를 공부하는 사람입니다.
제가 지금 기본서 1권 Section 18 ,프로시저 작성을 공부하고 있는데요, 기본문제 '무작정따라하기'시트에서 5번 문제를 풀기위해 작성하는 코드에서 계속 디버그가 발생합니다.
첨부파일에 올렸는데, [개발 도구]탭-[코드]그룹-[Visual Basic]을 선택하면 여러 코드 창 중에서 Private Sub cmd등록_Click()으로 시작하는 코드 창을 보시길 바랍니다.
그리고 무슨 문제가 있어서 '판매자료입력'폼에서 '등록'단추를 클릭하면 계속 디버그가 발생하는지 궁금합니다.
자세한 설명 부탁드립니다.^^
Private Sub cmd등록_Click()
If txt제품명.Value = "" Then
MsgBox "제품명을 입력하시오."
ElseIf txt수량.Value = "" Then
MsgBox "수량을 입력하시오."
ElseIf txt단가.Value = "" Then
MsgBox "단가를 입력하시오."
ElseIf cmb결재형태.Value = "" Then
MsgBox "결재형태를 입력하시오."
Else
기준행위치 = [b3].Row
기준범위행수 = [b3].CurrentRegion.Rows.Count
입력행 = 기준행위치 + 기준범위행수
Cells(입력행, 2) = txt판매일자.Value
Cells(입력행, 3) = txt제품명.Value
Cells(입력행, 4) = txt수량.Value
Cells(입력행, 5) = txt단가.Value
Cells(입력행, 6) = Format(txt수량.Value * txt단가.Value, "currency")
Cells(입력행, 7) = cmb결재형태.Value
txt제품명.Value = ""
txt수량.Value = ""
txt단가.Value = ""
cmb결재형태.Value = ""
End If
End Sub
빨간색으로 표시한 부분이 없어서 오류가 난 것입니다.
확인 해 보세요.
좋은 하루 되세요.
-
관리자2022-05-30 19:56:28
Private Sub cmd등록_Click()
If txt제품명.Value = "" Then
MsgBox "제품명을 입력하시오."
ElseIf txt수량.Value = "" Then
MsgBox "수량을 입력하시오."
ElseIf txt단가.Value = "" Then
MsgBox "단가를 입력하시오."
ElseIf cmb결재형태.Value = "" Then
MsgBox "결재형태를 입력하시오."
Else
기준행위치 = [b3].Row
기준범위행수 = [b3].CurrentRegion.Rows.Count
입력행 = 기준행위치 + 기준범위행수
Cells(입력행, 2) = txt판매일자.Value
Cells(입력행, 3) = txt제품명.Value
Cells(입력행, 4) = txt수량.Value
Cells(입력행, 5) = txt단가.Value
Cells(입력행, 6) = Format(txt수량.Value * txt단가.Value, "currency")
Cells(입력행, 7) = cmb결재형태.Value
txt제품명.Value = ""
txt수량.Value = ""
txt단가.Value = ""
cmb결재형태.Value = ""
End If
End Sub
빨간색으로 표시한 부분이 없어서 오류가 난 것입니다.
확인 해 보세요.
좋은 하루 되세요.