Private Sub txt공급가액_GotFocus()
Dim a
MsgBox a, vbOKOnly, "등급"
If txt공급가액 >= 70000 Then
a = "VIP"
ElseIf txt공급가액 >= 50000 Then
a = "우수"
Else
a = "일반"
End If
위에꺼가 제가쓴거
Private Sub txt공급가액_GotFocus()
If txt공급가액 >= 70000 Then
MsgBox "VIP", vbOKOnly, "등급"
ElseIf [공급가액] >= 50000 Then
MsgBox "우수", vbOKOnly, "등급"
Else
MsgBox "일반", vbOKOnly, "등급"
End If
End Sub
아래꺼가 정답
근데 여기서 위가 정답이 아니더라도 위의형식이랑 비슷하게
쓸수는 없나요? 아래껀 너무 노가다처럼 박아넣는느낌이라
Private Sub txt공급가액_GotFocus()
Dim a
If txt공급가액 >= 70000 Then
a = "VIP"
ElseIf txt공급가액 >= 50000 Then
a = "우수"
Else
a = "일반"
End If
MsgBox a, vbOKOnly, "등급"
와 같이 사용하면 되지 않을 까 싶습니다.
dim a 에 vip 를 입력한 후 출력하게 end if 이후에 작성해 보세요.
좋은 하루 되세요.
-
*2017-12-13 14:24:10
Private Sub txt공급가액_GotFocus()
Dim a
If txt공급가액 >= 70000 Then
a = "VIP"
ElseIf txt공급가액 >= 50000 Then
a = "우수"
Else
a = "일반"
End IfMsgBox a, vbOKOnly, "등급"
와 같이 사용하면 되지 않을 까 싶습니다.
dim a 에 vip 를 입력한 후 출력하게 end if 이후에 작성해 보세요.
좋은 하루 되세요.