[µo°Ý] TextBox­­©w¿é¤J­Èªº½d³ò

bowwow1975

½Ð±Ð¦U¦ì¤j®v¡A§Ú¦³»s§@¤@­Ó Textbox¡AµM«á·Q­­©w¥Î¤á¿é¤Jªº­È¤£¯à >80¡I

¥i¬O§Úµo²{¡A§Ú¿é¤J < 80 «á¡A½T¹ê·|¦³ Msgbox  ¥X²{¡A¦ý¬OÃö³¬«á¡AMsgBox ¤S·|¥X²{¤@¦¸~~
·|¤£·|¬O textbox32.Value = "" ªº°ÝÃD¡H
¦n¹³¨S¿é¤J­È¡A¤]·|Åã¥Ü MsgBox¡I

1. Private Sub textbox32_Change()
   
2. If textbox32.Value > 80 Then
   
3. textbox32.Value = ""
   
4. a = MsgBox("Please Fill in Duty < 80", 0 + 48, "NOTE¡I¡I")
   
5. End If
   
6. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# bowwow1975
If Val(textbox32) > 80 Then    ¬O¤£¦¨¥ß    Val("")=0

1. Option Explicit
   
2. Private Sub textbox32_Change()
   
3. If textbox32.Value > 80 Then
   
4. textbox32.Value = ""   '§ïÅÜtextbox32 ¤S¤@¦¸°õ¦æ textbox32_Change
   
5. 'textbox32=""  > 80  ¬O¦¨¥ßªº ¤£¬O¦A¦¸ªº°õ¦æ MsgBox
   
6. a = MsgBox("Please Fill in Duty < 80", 0 + 48, "NOTE¡I¡I")
   
7. End If
   
8. End Sub

½Æ»s¥N½X

bowwow1975

¦¨¥\¤F~~~~¯u¬O·PÁ¡A
¥i¬O¤p§Ì¤£À´ªº¬O¡A³o¨â­Ó¦³¤°»ò¤£¦P¶Ü¡H
±æ½Ð¤j¤jÄÀºÃ¡I

GBKEE

¦^´_ 1# bowwow1975
If textbox32.Value > 80  

textbox32=""  > 80  ¬O¦¨¥ßªº,½Ð§ï¦¨ If Val(TextBox32) > 80 Then