Xóa rồi mới cho nhập lại trong ô. (3 người xem)

[thlpro]

Hi Mọi người,
Mình gửi file đính kèm. Mọi người giúp mình với nhé. Password Unprotect Sheet là: 1
Yêu cầu như sau:
- Sau khi nhập dữ liệu tới ô thứ 8 nhấn enter thì nó phải chuyển qua nút Delete. Nhấn nút Delete xong thì mới được nhảy về ô thứ 1 lại để tiếp tục nhập dữ liệu. Mục đích là làm sao khi hiện ra kết quả ở 2 ô cuối cùng xong thì xóa dữ liệu hết (ở 8 ô nhập) rồi mới cho nhập lại từ đầu.

Mong các anh em giúp đỡ. Cảm ơn nhiều.

 

[hoangdanh282vn]

Bạn xem file đính kèm nha :
Code trong Sheet1 :

Public LastAddress As String

Private Sub CommandButton1_Click()
Range("b5:b12").ClearContents
Range("B5").Select
End Sub

Sub worksheet_selectionchange(ByVal target As Range)
If target.Address = "$B$13" And LastAddress = "$B$12" Then Sheet1.CommandButton1.Activate
LastAddress = target.Address
End Sub

 

[thlpro]

Vẫn chưa theo mong đợi nếu dung Protect Sheet. Ko thể xóa dữ liệu 8 ô đó. Mong được giúp đỡ tiếp.

 

[thlpro]

Hi Anh hoangdanh282vn;
Giúp mình làm sao khi vẫn khóa Protect Sheet mà nhập dữ liệu tới ô cuối cùng nhấn Enter thì nhảy qua nút Delete. Các ô dữ liệu kia bị khóa(nghĩa là kô cho nhập được) cho đến khi nhấn Enter 1 lần nữa cho nút Delete để xóa hết dữ liệu của 8 ô đó rồi mới cho nhập tiếp. Mong anh giúp đỡ tiếp. Cảm ơn rất nhiều.

 

[thlpro]

Sao ko có ai giúp mình hết vậy. Hic Hic