GBKEE

¦^´_ 1# bowwow1975
TextBox32 ¿é¤J«á«ö [Enter]  (±±¨î¶µ¥¢¥h¾nÂI)

1. 'Enter¡BExit ¨Æ¥ó
   
2. 'Enter ¥D­nµo¥Í¦b¤@­Ó±±¨î¶µ¡A±q¦P¤@ªí³æ¤Wªº¥t¤@­Ó±±¨î¶µ¨ú±o¾nÂI¤§«e
   
3. 'Exit ·|¦b¤@­Ó±±¨î¶µ¥¢¥h¾nÂI®Éµo¥Í¡C
   
4. Option Explicit
   
5. Dim Exit_Msg As Boolean                     'ªí³æ¨p¥ÎÅܼÆ
   
6. Private Sub TextBox32_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   
7.     If Exit_Msg = True Then Exit Sub            '©|¦b¿é¤J¤¤, ¦¹®É¦pÃö³¬ªí³æ,ÁÙ¬O·|°õ¦æ¦¹µ{§Ç
   
8.     If Not IsNumeric(TextBox32) Or TextBox32 < 40 Or TextBox32 > 50 Then
   
9.         Cancel = True                           'True ªí¥ÜÀ³¥Îµ{¦¡¶·³B²z¦¹¨Æ¥ó¡A¥B¾nÂI¤´«O¯d¦b¥Ø«e±±¨î¶µ¡C
   
10.         With TextBox32                          '¿ï¾Ü¥H¿é¤J¤å¦r
    
11.             .SelStart = 0
    
12.             .SelLength = Len(.Text)
    
13.        End With
    
14.        MsgBox "TextBox32 ¶·¬O ¤j©ó 40 ©M¤p©ó 50  "
    
15.     End If
    
16. End Sub
    
17. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
18.     Exit_Msg = True
    
19. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# bowwow1975
¦p¦ó¸Ñ¨M ¥æ¬y¤@¤U
3#ªº¿ù»~

1. Option Explicit
   
2. Dim Exit_Msg As Boolean   '¦¹ÅܼƬOªí³æ¼Ò²Õªº¨p¥ÎÅܼÆ,¶·¬O¸m©óªí³æ¯ë¼Ò²Õ³»³¡
   
3. Private Sub TextBox34_Change()
   
4.     With Sheet4
   
5.         .Range("H4").Value = TextBox34.Text
   
6.     End With
   
7. End Sub
   
8. Private Sub TextBox34_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   
9.     If Exit_Msg = True Then Exit Sub
   
10.     If Not IsNumeric(TextBox34) Or Sheets(4).Range("h4") < Sheets(4).Range("C35") Or Sheets(4).Range("h4") > Sheets(4).Range("C34") Then
    
11.     '*****************************************************************************************************************
    
12.     '³o¸Ì¦³¥Ù¬Þ C34,C35, C36 ¼Æ¾Ú¬O­þ¸Ì¤~¥¿½T!!!!
    
13.     'If Not IsNumeric(TextBox32) Sheets(4).Range("h4") < Sheets(4).Range("C35") Or Sheets(4).Range("h4") > Sheets(4).Range("C36") Then
    
14.     'MsgBox "Np ¶·¬O ¤j©ó" & Sheets(4).Range("C35") & " ©M¤p©ó " & Sheets(4).Range("C34")
    
15.     '******************************************************************************************************************
    
16.     Cancel = True
    
17.     'With textbox34
    
18.     '    .SelStart = 0
    
19.     '    .SelLength = Len(.Text)
    
20.     '    End With
    
21.         MsgBox "Np ¶·¬O ¤j©ó" & Sheets(4).Range("C35") & " ©M¤p©ó " & Sheets(4).Range("C34")
    
22.     End If
    
23. End Sub
    
24. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
25.     Exit_Msg = True
    
26. End Sub

½Æ»s¥N½X