Select all khi focus lên textbox thì dùng hàm gì?

[tuanvd]

Tôi làm 1 form nhập trong excel dùng VBA, trong đó có 2 ô textbox tôi gọi là txtInput1 và txtInput2, khi nhập vào ô 1 xong nhấn Enter sẽ chuyển xuống ô 2 để nhập, khi nhập ô 2 xong nhấn Enter lại chuyển lên ô 1(lúc này ô 1 vẫn lưu số lúc trước nhập) và nó sẽ bôi đen các số trong ô 1 lúc này mình chỉ việc nhập vào số bất kỳ thôi mà không cần phải xóa dl trong ô1. Vậy tôi hỏi ta dùng lệnh gì để khi enter thì nó sẽ chuyển lên ô 1 và bôi đen luôn dll trong ô đó.
Mong các cao thủ chỉ giúp.

From Hai2Hai:
- Tên đề tài đã được sửa lại.
- Lần sau nếu bạn ko viết rõ tên đề tài là tôi sẽ xóa cho dù bất cứ ai đã trả lời bạn.

 

[tigertiger]

Tôi làm 1 form nhập trong excel dùng VBA, trong đó có 2 ô textbox tôi gọi là txtInput1 và txtInput2, khi nhập vào ô 1 xong nhấn Enter sẽ chuyển xuống ô 2 để nhập, khi nhập ô 2 xong nhấn Enter lại chuyển lên ô 1(lúc này ô 1 vẫn lưu số lúc trước nhập) và nó sẽ bôi đen các số trong ô 1 lúc này mình chỉ việc nhập vào số bất kỳ thôi mà không cần phải xóa dl trong ô1. Vậy tôi hỏi ta dùng lệnh gì để khi enter thì nó sẽ chuyển lên ô 1 và bôi đen luôn dll trong ô đó.
Mong các cao thủ chỉ giúp.

Oh bạn dùng thủ tục KeyPress bắt phím Enter sau, là được

Private Sub txtInput2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
     If KeyAscii = 13 Then txtInput1  .SetFocus
End Sub

 

[dat2007]

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Me.TextBox2.SetFocus
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Me.TextBox1.SetFocus
End Sub

 

[hai2hai]

Ở cái textbox đó (giả sử có tên là txtPrice), với sự kiện GotFocus, bạn viết 2 dòng sau:

Private Sub txtPrice_GotFocus()
txtPrice.SelStart = 0
txtPrice.SelLength = Len(txtPrice.Text)
End Sub

 

[chibi]

To tuanvd: Bạn có phát biểu gì sau khi test các đoạn code trên?