Giúp sửa code Enter trong textbox để SetFocus lại (1 người xem)

[minhtuan55]

Chào cả nhà GPE !
Em có 1 Form có 1 Textbox và nhiều nút bấm và Label, Em muốn khi em nhập cái gì tại Textbox nếu em nhấn Enter thì con chuột vẫn SetFocus tại Textbox đó và bôi đen cái từ đang chọn. Giống như hình sau ( lý do vì em muốn sau khi đánh xong con nháy nó chọn đối tượng khác để SetFocus , để em khỏi mất công chọn con chuột lại ô textbox đó )



Code trong Form nhưng VBA không hiểu

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
' lay du lieu xuong o
Range("A1").Value = TextBox1.Value

' bOI DEN VA CHON LAI TEXTBOX1
    TextBox1.SelStart = 0: TextBox1.SelLength = TextBox1.TextLength
    TextBox1.SetFocus
End If
End Sub

rất mong mọi người chỉ giáo. Xin chân thành cảm ơn !

 

[hoanganhvo2612]

Chào cả nhà GPE !
Em có 1 Form có 1 Textbox và nhiều nút bấm và Label, Em muốn khi em nhập cái gì tại Textbox nếu em nhấn Enter thì con chuột vẫn SetFocus tại Textbox đó và bôi đen cái từ đang chọn. Giống như hình sau ( lý do vì em muốn sau khi đánh xong con nháy nó chọn đối tượng khác để SetFocus , để em khỏi mất công chọn con chuột lại ô textbox đó )

View attachment 193990

Code trong Form nhưng VBA không hiểu

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
' lay du lieu xuong o
Range("A1").Value = TextBox1.Value

' bOI DEN VA CHON LAI TEXTBOX1
    TextBox1.SelStart = 0: TextBox1.SelLength = TextBox1.TextLength
    TextBox1.SetFocus
End If
End Sub

rất mong mọi người chỉ giáo. Xin chân thành cảm ơn !

Bạn thêm dòng: keycode = 0 trên chỗ end if, và ko cần textbox.focus