[µo°Ý] ½Ð±ÐTextBox¿é¤J¿ù»~¦p¦ó¦^¨ì­ì¦ì¸m

koo

½Ð±Ð¦U¦ì¥ý¶i:
TextBox1¿é¤J¿ù»~¸õ¥XMsgBox´£¥Üµøµ¡«á­n¦p¦ó¦^¨ìTextBox1­«·s¿é¤J
            MsgBox "¿é¤J¿ù»~"
            TextBox1 = ""
            TextBox1.SetFocus
¨Ï¥ÎSetFocus¥¢±ÑµJÂI·|¸õ¨ìTextBox2
¨Ï¥ÎApplication.SendKeys "{up}"¸g±`·|³y¦¨NumLookÃö³¬

1. Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
2.     If KeyCode = 13 And TextBox1 > "" Then
   
3.         Dim Rng As Range
   
4.         Dim ax As Variant
   
5.         Dim bx As String
   
6.         Set Rng = Sheets("data").[K1:L24]
   
7.         bx = TextBox1.Text
   
8.         ax = Application.VLookup(bx, Rng, 2, 0)
   
9.         If Not IsError(ax) Then
   
10.             Label4 = ax
    
11.         Else
    
12.             MsgBox "¿é¤J¿ù»~"
    
13.             TextBox1 = ""
    
14.             Application.SendKeys "{up}"
    
15.             Exit Sub
    
16.         End If
    
17.     End If
    
18. End Sub

½Æ»s¥N½X

koo

¼È®É¥ý¥Î¥þ°ìÅܼƨӸѨM

1. Dim bCancel As Boolean
   
2. 
   
3. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   
4. Cancel = bCancel
   
5. bCancel = False
   
6. End Sub

½Æ»s¥N½X

koo

ÁÂÁÂ2¦ì¤j¤j¸Ñ»¡
¨Ï¥ÎKeyCode = True¥i¥H¥¿±`°õ¦æW7+2013
·PÁÂ

            MsgBox "¿é¤J¿ù»~"
            KeyCode = True
            TextBox1.SelStart = 0
            TextBox1.SelLength = Len(TextBox1)