Excel Forum

Code: Select all

Textbox1.SetFocus

Code: Select all

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then  'กดคีย์ enter
         TextBox2.Value = Application.WorksheetFunction.Index(Sheets("sheet1").Range("A:B"), Application.WorksheetFunction.Match(TextBox1.Value * 1, Sheets("sheet1").Range("A:A"), 0), 2)
    End If
    TextBox1.SetFocus
End Sub

Code: Select all

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    On Error Resume Next
    TextBox2.Value = Application.WorksheetFunction.Index(Sheets("sheet1").Range("A:B"), Application.WorksheetFunction.Match(TextBox1.Value * 1, Sheets("sheet1").Range("A:A"), 0), 2)
    If Err <> 0 Then
        TextBox2.Text = ""
    End If
End Sub

Private Sub TextBox2_AfterUpdate()
    With TextBox1
        .SelStart = 0
        .SelLength = Len(.Text)
        .SetFocus
    End With
End Sub