4-2 문제에서
빈칸을 비워두고 등록 버튼을 누르면
'13' 런타임 오류가 발생하였습니다
형식이 일치하지 않습니다 이렇게 뜨고 디버그 눌러보면 이렇게 하이라이트 됩니다
Private Sub cmd등록_Click()
If cmb제품명 = " " Then
MsgBox "제품명을 선택하세요", vbOKOnly, "제품명"
ElseIf txt수량 = " " Then
MsgBox "수량을 입력하세요", vbOKOnly, "수량"
Else
입 = [a4].Row + [a4].CurrentRegion.Rows.Count
참 = cmb제품명.ListIndex + 5
Cells(입, 1) = cmb제품명
Cells(입, 2) = txt수량
Cells(입, 3) = Cells(참, 8)
Cells(입, 4) = Cells(참, 9)
Cells(입, 5) = txt수량 * Cells(참, 8)
End If
End Sub
어떤게 잘못된 건가요? ㅠㅠ
다른 분도 저와 똑같은 질문을 하셔서 그 답변인 txt수량컨트롤에 값을 넣고 등록버튼을 눌러보았는데도
여전히 실행되지 않네요 . 어떻게 고쳐야 하는걸까요 ㅠㅠ
안녕하세요.
우선 컨트롤에 아무것도 입력되지 않으면, 메시지 박스가 나타나야 합니다.
아래 코드 처럼 아무것도 안들어가 있는지를 비교해 주세요. 공백이 들어가 있으면, 정상실행이 안됩니다.
If cmb제품명 = "" Then
MsgBox "제품명을 선택하세요.", vbOKOnly, "제품명"
ElseIf txt수량 = "" Then
MsgBox "수량을 입력하세요.", vbOKOnly, "수량"
5행 이후에 보이지 않는 공백 데이터가 숨어있는 것 같습니다.
다 삭제하시고 실행해 보시면, 오류없이 정상작동 됩니다.
좋은 하루 보내세요.
-
*2018-10-27 20:29:32
안녕하세요.
우선 컨트롤에 아무것도 입력되지 않으면, 메시지 박스가 나타나야 합니다.
아래 코드 처럼 아무것도 안들어가 있는지를 비교해 주세요. 공백이 들어가 있으면, 정상실행이 안됩니다.
If cmb제품명 = "" Then
MsgBox "제품명을 선택하세요.", vbOKOnly, "제품명"
ElseIf txt수량 = "" Then
MsgBox "수량을 입력하세요.", vbOKOnly, "수량"5행 이후에 보이지 않는 공백 데이터가 숨어있는 것 같습니다.
다 삭제하시고 실행해 보시면, 오류없이 정상작동 됩니다.
좋은 하루 보내세요.