Private Sub cmd등록_Click()
If txt제품명 = "" Then
MsgBox "제품을 입력하시오."
elself txt수량 = "" Then
MsgBox "수량을 입력하시오."
elself txt단가 = ""
MsgBox "단가를 입력하시오."
elself cmb결재형태 = ""
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
End Sub
빨간색 글씨 부분 Then 넣으면
컴파일 오류, 필요한 요소 : 문의 끝이라는 오류가 계속 뜹니다.
그래서 then을 빼고 해도.. 제대로 동작하지 않습니다.
뭐가 문제인지 모르겠어요
ELSEif 로 작성해야 합니다.
L 을 i 로 작성하거나 i 를 L 로 작성한 경우 오타로 인해 오류 메시지가 표시될 수 있습니다.
좋은 하루 되세요.
-
*2016-07-13 12:52:51
ELSEif 로 작성해야 합니다.
L 을 i 로 작성하거나 i 를 L 로 작성한 경우 오타로 인해 오류 메시지가 표시될 수 있습니다.
좋은 하루 되세요.