책 내용 질문하기
섹션 18
도서
[2012] 컴퓨터활용능력 1급 실기(엑셀, 액세스 2007 사용자용)
페이지
233
조회수
83
작성일
2012-04-22
작성자
첨부파일
Private Sub cmd등록_Click()
If txt제품명 = "" Then
MsgBox "제품명을 입력하시오."
If txt수량 = "" Then
MsgBox "수량을 입력하시오."
If txt단가 = "" Then
MsgBox "단가를 입력하시오."
If 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
txt수량 = ""
txt단가 = ""
cmb결재형태 = ""
End If
End Sub
이렇게 치고 나서 나중에 등록 단추를 눌렀을 때 뜨는 메세지가 이런 메세지입니다.
컴파일 오류입니다:
End if가 없는 if 블록 문
이라고 뜨는데 보시다시피 end if가 써 있는데 왜 이런 문자가 뜨는 걸까요?
조회를 클릭했을 때에는 제대로 결과값이 나옵니다.
답변
2012-04-23 11:43:27
if가 여러개 나오면 end if 도 if 만큼 나와야 합니다.
첫번째 if 외에는 모두 elseif 로 변경하세요.
좋은 하루 되세요.
"-
*2012-04-23 11:43:27
if가 여러개 나오면 end if 도 if 만큼 나와야 합니다.
첫번째 if 외에는 모두 elseif 로 변경하세요.
좋은 하루 되세요.
"