시나공

시험에

나오는 것만

공부한다!

5보면

공백이 생겼을때 메세지박스를 띄우라는 것과

폼내용을 엑셀로 옮겨라 두 개를 해야하는데

문제에서 보면 뭘 먼저하라는 내용이 없었으니

Vb상에서

먼저 폼내용을 엑셀로 옮기고

메세지박스를 띄우는 if문을 사용해도 되지 않나요?

질문이 애매한것같아서

제가 생각한 코딩을 아래에 올려봅니다

입력행=[b3].currentregion.rows.count+[b3].row

cells(입력행,2)=txt날짜.value

cells(입력행,3)=txt제품명.value

cells(입력행,4)=txt수량.value

cells(입력행,5)=txt단가.value

cells(입력행,6)=format(“txt수량*txt단가”,”currency”)

cells(입력행,7)=cmb결재형태.value

If txt제품명.value =“” then

msgbox “제품명을 입력하시오.”

Elseif txt수량.value =“”

Msgbox “수량을 입력하시오.”

elseif txt단가.value =“” 

msgbox “단가를 입력하시오.”

elseif cmb결재형태.value =“”

msgbox “결재형태를 입력하시오.”

end if

txt제품명.value=“”

txt수량.value=“”

txt단가.value=“”

cmb결재형태.value=“”

질문은 폼에 쓴 내용을 엑셀시트로 옮기고 

만약 폼에 공백이 있을경우 메세지박스를 띄워라 와 같은 내용입니다..

제가 코딩한것도 틀린부분이있겠지만...ㅎ;; 아무튼 궁금하네요~