cần giúp về gõ kí tự trong textbox userform (1 người xem)

[kuvi1324]

mình gõ chữ trong textbox excel nhưng chữ hiện ra chậm hơn mình gõ (hiện tượng giống như lag mạng ấy), có cách nào cho chữ hiện ra nhanh như gõ trực tiếp vào trong 1 ô excel không mọi người.
à textbox của mình có sub sau

Private Sub txthovaten_Change()
Worksheets("Nhaphoso").Cells(13, 1).Value = Me.txthovaten.Value
End Sub

 

[HyperLink]

mình gõ chữ trong textbox excel nhưng chữ hiện ra chậm hơn mình gõ (hiện tượng giống như lag mạng ấy), có cách nào cho chữ hiện ra nhanh như gõ trực tiếp vào trong 1 ô excel không mọi người.
à textbox của mình có sub sau

Private Sub txthovaten_Change()
Worksheets("Nhaphoso").Cells(13, 1).Value = Me.txthovaten.Value
End Sub

bạn thử dùng sự kiện KeyDown nhé (sẽ ko ảnh hưởng đến quá trình truyền value từ form xuống sheet)

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then 'khi Enter
        Worksheets("Nhaphoso").Cells(13, 1).Value = TextBox1
    End If
End Sub

 

[kuvi1324]

bạn thử dùng sự kiện KeyDown nhé (sẽ ko ảnh hưởng đến quá trình truyền value từ form xuống sheet)

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then 'khi Enter
        Worksheets("Nhaphoso").Cells(13, 1).Value = TextBox1
    End If
End Sub

ok rồi, cảm ơn bạn, nhưng lỡ người dùng không click enter mà dùng tab hoặc click chuột vào ô khác thì ko được, mình muốn Tab, enter, hay click chuột vào text box khác thì textboxx 1 vẫn truyền vào ô 13,1

 

[Hau151978]

ok rồi, cảm ơn bạn, nhưng lỡ người dùng không click enter mà dùng tab hoặc click chuột vào ô khác thì ko được, mình muốn Tab, enter, hay click chuột vào text box khác thì textboxx 1 vẫn truyền vào ô 13,1

Bạn thêm lệnh cập nhật vào cả textbox1_exit nữa.

 

[kuvi1324]

Bạn thêm lệnh cập nhật vào cả textbox1_exit nữa.

thank bạn nhiều, đúng cái mình cần,