현재 프로지서 창에서
Private Sub cmd등록_Click()
If txt제품명 = "" Then
MsgBox "제품명을 입력하시오."
EIseIf txt수량 = "" Then
MsgBox "수량을 입력하시오."
eIseif txt단가 = "" Then
MsgBox "단가를 입력하시오."
eIseif cmb결재형태 = "" Then
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
로 입력한 뒤 프로시저를 실행하면
컴파일 오류입니다
구문오류입니다
라고 창이 뜨면서
elseif 줄에 빨간색 선이 표시됩니다 ( EIseIf txt수량 = "" Then)
그대로 입력한 것 같은데 어떤 부분이 잘못된 지 모르겠어서 질문 납깁니다
If txt제품명 = "" Then
MsgBox "제품명을 입력하시오."
EIseIf txt수량 = "" Then
MsgBox "수량을 입력하시오."
eIseif txt단가 = "" Then
MsgBox "단가를 입력하시오."
eIseif cmb결재형태 = "" Then
MsgBox "결재형태를 입력하시오."
Else
빨간색으로 표시된 부분이 잘 못 입력되었습니다.
i 가 아니라 L 입니다. 수정 후 확인 해 보세요.
좋은 하루 되세요.
-
관리자2020-08-10 19:50:26
If txt제품명 = "" Then
MsgBox "제품명을 입력하시오."
EIseIf txt수량 = "" Then
MsgBox "수량을 입력하시오."
eIseif txt단가 = "" Then
MsgBox "단가를 입력하시오."
eIseif cmb결재형태 = "" Then
MsgBox "결재형태를 입력하시오."
Else
빨간색으로 표시된 부분이 잘 못 입력되었습니다.
i 가 아니라 L 입니다. 수정 후 확인 해 보세요.
좋은 하루 되세요.