- ©«¤l
- 60
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 64
- ÂI¦W
- 0
- §@·~¨t²Î
- w7-32
- ³nÅ骩¥»
- 2013.2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-11-23
- ³Ì«áµn¿ý
- 2016-6-6
|
[µo°Ý] ½Ð±ÐTextBox¿é¤J¿ù»~¦p¦ó¦^¨ìì¦ì¸m
½Ð±Ð¦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Ãö³¬- Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
- If KeyCode = 13 And TextBox1 > "" Then
- Dim Rng As Range
- Dim ax As Variant
- Dim bx As String
- Set Rng = Sheets("data").[K1:L24]
- bx = TextBox1.Text
- ax = Application.VLookup(bx, Rng, 2, 0)
- If Not IsError(ax) Then
- Label4 = ax
- Else
- MsgBox "¿é¤J¿ù»~"
- TextBox1 = ""
- Application.SendKeys "{up}"
- Exit Sub
- End If
- End If
- End Sub
½Æ»s¥N½X |
|