책 내용 질문하기
프로시저 작성중 문의드립니다.
도서
2016 시나공 컴퓨터활용능력 1급 실기
페이지
222
조회수
52
작성일
2017-07-21
작성자
탈퇴*원
첨부파일


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

위와 같이 입력하고

등록버튼을 클릭했는데

"결재형태를입력하시오"

라고 뜹니다. 결재형태부분에 문제가 있는건가요?

답변
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결재형태로 변경해 보세요.

좋은 하루 되세요.

  • *
    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결재형태로 변경해 보세요.

    좋은 하루 되세요.

· 5MB 이하의 zip, 문서, 이미지 파일만 가능합니다.
· 폭언, 욕설, 비방 등은 관리자에 의해 경고없이 삭제됩니다.