TextBox¦p¦ó³]©w¥u¯à¬O¾ã¼Æ?

acdx

§Ú³]­p¤@­Óªí³æ ¨ä¤¤TextBox§@¬°¿é¤J¤¶­± ¥Ñ©ó¸Ó°Ñ¼Æ¥²¶·¬°¥¿¾ã¼Æ¸Ó¦p¦ó­­¨îTextBox¤§®æ¦¡
§Ú§Æ±æ¼g¦¨·í¿é¤J¬°¥¿¾ã¼Æ¥H¥~¦r¤¸«hÅã¥Ü"¥²¶·¬°¥¿¾ã¼Æ"
ÁÂÁÂ

GBKEE

¦^´_ 1# acdx
Enter¡BExit ¨Æ¥ó
Enter ¥D­nµo¥Í¦b¤@­Ó±±¨î¶µ¡A±q¦P¤@ªí³æ¤Wªº¥t¤@­Ó±±¨î¶µ¨ú±o¾nÂI¤§«e¡FExit ·|¦b¤@­Ó±±¨î¶µ¥¢¥h¾nÂI®Éµo¥Í¡C

1. Option Explicit
   
2. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   
3.     If IsNumeric(TextBox1) Then
   
4.         TextBox1 = Abs(Int(TextBox1))
   
5.     Else
   
6.         TextBox1 = ""
   
7.     End If
   
8. End Sub

½Æ»s¥N½X

acdx

¸Ó¼gªkÁöµM¥i¥H¸Ñ¨M«D¾ã¼Æªº°ÝÃD ¦ý¦pªG¹J¨ì¨Ï¥ÎªÌ¿é¤J¼Æ¦r¥H¥~¦r¤¸¨Ò¦p"h","¦n"
¸Ó¦p¦óÅýµ{¦¡¦Û°Ê§P§O³o¨Ç«D¼Æ¦r¦r¤¸¤Î¦Û°Ê¸õ¥X¦Ó¤£­Pµo¥Íµ{¦¡¿ù»~?

c_c_lai

¦^´_ 3# acdx
TextBox1 = ""    ¤w¸gµ¹§Aµª®×¤F¡I

acdx

¦^´_ 4# c_c_lai
¤£¦n·N«ä §Ú¤W­±¥i¯à¨Sªí¹F²M·¡
²{¦b¹J¨ìªº°ÝÃD¬OTextBox©Ò¿é¤Jªº­È³Q»{©w¬°¤å¦r
°²³]§Ú¿é¤J5 «hTextBox="5"(¥ÑºÊ¬Ý¦¡¸Ì¬Ý¨ìªº­È) ¦ÓTextBox¦bµ{¦¡¤¤¥²¶·¬O¥¿¾ã¼Æ¤~¥i¥¿±`°õ¦æ §Ú§Æ±æ§Úªºµ{¦¡¯à°÷§P§O/´£¿ô¨Ï¥ÎªÌ¡A·íTextBox¿é¤J¬°­t¼Æ©Î¤p¼Æ®É«h·|¥X²{ĵ§iµøµ¡¦]¦¹§Ú¼g¦¨³o¼Ë: (·íTextBox1¿é¤J8,TextBox2¿é¤J12)
If IsNumeric(TextBox1) = False Or IsNumeric(TextBox2) = False Then
    MsgBox "½Ð¿é¤J¼Æ¦r"
    Exit Sub
        ElseIf TextBox1 <> Abs(Int(TextBox1)) Or TextBox2 <> Abs(Int(TextBox2)) Then
            MsgBox "½Ð¿é¤J¾ã¼Æ"
            Exit SubEnd If
ÂŦ⬰¨ä°õ¦æµ²ªG
¥ÑºÊ¬Ý¦¡¸Ì: TextBox1="8", Abs(Int(TextBox1)) =8, TextBox2 ="12", Abs(Int(TextBox2)) =12
¬G:TextBox1 ¤£µ¥©óAbs(Int(TextBox1)) ©Ò¥Hµ{¦¡¸õ¶}-->³o¸Ó¦p¦ó¸Ñ¨M?
¥t¥~µ{¦¡¤¤¥²¶·TextBox1<TextBox2©Ò¥H§ÚÁÙ¼g¤F±ø¥ó¦¡½T«O³oÃö«Y¦¨¥ß¦ý«o³Q§PÂ_¬° "8">"12"-->©Ò¥Hµ{¦¡¤S¸õ¶}  ³o¨Ç°ÝÃD§xÂZ§Ú¦n´X¤Ñ¤F

Hsieh

¦^´_ 5# acdx

1. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   
2. If CStr(Val(TextBox1)) <> TextBox1 Or Val(TextBox1) < 0 Then MsgBox "¥²¶·¬°¥¿¾ã¼Æ": Exit Sub
   
3. MsgBox TextBox1
   
4. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 5# acdx

1. Sub Test()
   
2.     '  °²³] [B1] Äæ¦ìÄݩʬ°¤å¦r¡F¿é¤J­È: 10¡B©Î¬O 10ABC
   
3.     '  «h¦¹®É [B1] ¬° Not IsNumeric([B1])
   
4.     If IsNumeric([B1]) Then
   
5.         [B3] = Abs(Int([B1]))
   
6.     Else
   
7.         If Val([A1]) > 0 Then
   
8.             [B3] = Abs(Int(Val([B1])))     ' ¨ú±o¼Æ­È 10
   
9.         Else
   
10.             [B3] = ""         ' ¸ÓÄæ¦ì­È¬°«D¼Æ­È¤§¤å¦r¦ê
    
11.             MsgBox "½Ð¿é¤J¼Æ¦r"
    
12.         End If
    
13.     End If
    
14. End Sub

½Æ»s¥N½X

¦p¦¹Á|¨Ò¡A¤F¸Ñ§_¡H

GBKEE

¦^´_ 5# acdx

1. Option Explicit
   
2. Dim Msg As Boolean          '¹w³]­È: False
   
3. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   
4.     Msg = True      'ªí³æÃö³¬:ÅܼƳ]©w
   
5. End Sub
   
6. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'ªí³æÃö³¬«áÁÙ·|°õ¦æ¦¹µ{¦¡
   
7.      If Msg = False Then If TextÀˬd(TextBox1) Then Cancel = True
   
8.      'Cancel: False ªí¥Ü±±¨î¶µ¤£³B²z¨Æ¥ó¡]¹w³]¡^¡FTrue ªí¥ÜÀ³¥Îµ{¦¡¶·³B²z¦¹¨Æ¥ó¡A¥B¾nÂI¤´«O¯d¦b¥Ø«e±±¨î¶µ¡C
   
9. End Sub
   
10. Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    
11.     If Msg = False Then If TextÀˬd(TextBox2) Then Cancel = True
    
12. End Sub
    
13. '¦pÁÙ¦³TextBox ¨Ì¼Ëµe¸¬Äª
    
14. 'Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    
15. '   If Msg = False Then If TextÀˬd(TextBox3) Then Cancel = True
    
16. 'End Sub
    
17. Private Function TextÀˬd(Box As MSForms.TextBox) As Boolean
    
18.     Dim S As Integer
    
19.     If Abs((Int(Val(Box))) <> Box Or Box < 0) Then
    
20.         S = InStr(Box, ".")
    
21.         Box.SelStart = IIf(Mid(Box, 1, 1) = "-", 0, S - IIf(S > 0, 1, 0))
    
22.         Box.SelLength = IIf(Mid(Box, 1, 1) = "-", 1, Len(Box) - S + 1)
    
23.         MsgBox "»Ý¿é¤J¥¿¾ã¼Æ"
    
24.         TextÀˬd = True
    
25.     End If
    
26. End Function

½Æ»s¥N½X

acdx

¸Ñ¨M¤F
ÁÂÁ¤j®aªºÀ°¦£