Private Sub 납품수량_GotFocus()
Select Case 납품수량
Case Is >= 100
납품수량 = MsgBox ("우량 납품처", vbOKOnly, "거래처등급")
Case Is >= 50
납품수량 = MsgBox ("일반 납품처", vbOKOnly, "거래처등급")
Case Is < 50
납품수량 = MsgBox ("불량 납품처", vbOKOnly, "거래처등급")
End Select
End Sub
204p 5번문제를 스스로 풀어보려고 코드작성을 저렇게 하였더니
메세지창은 뜨는데 확인을누르고 나서 납품수량이 1로 바뀝니다
정답을 확인한 후 납품수량을 지우고 다시 했더니 그 후에는 문제가 없어요
왜 1로 바뀌는지 알고 싶습니다!
납품수량 = msgbox("우량납품처",vbokonly,"거래처등급")
으로 작성하시면 msgbox 에서 나온 값을 납품수량 컨트롤에 넣는다 라고 지정이 됩니다.
= 을 기준으로 오른쪽의 값을 왼쪽으로 치환하는 것이기 때문에 1 값이 나오거나 0 값이 나옵니다.
예를 누르면 1 아니오를 누르면 0 이 입력되는 것이죠.
그래서 1이나 0 값이 나오는 것입니다.
좋은 하루 되세요.
-
*2015-12-04 09:26:15
납품수량 = msgbox("우량납품처",vbokonly,"거래처등급")
으로 작성하시면 msgbox 에서 나온 값을 납품수량 컨트롤에 넣는다 라고 지정이 됩니다.
= 을 기준으로 오른쪽의 값을 왼쪽으로 치환하는 것이기 때문에 1 값이 나오거나 0 값이 나옵니다.
예를 누르면 1 아니오를 누르면 0 이 입력되는 것이죠.
그래서 1이나 0 값이 나오는 것입니다.
좋은 하루 되세요.