Bắt sự kiện worksheet_change

[Luyến còi]

Xin chào cả nhà! Em có 1 file cần bắt sự kiện. Khi 1 ô nào đó trong vùng đặt target nhận dữ liệu là "Bat dau quet" thì sẽ tự động xoá dữ liệu vừa nhập
Cả nhà xem giúp e xem sai ở đâu mà khi e nhập nội dung vào vùng đc chọn nhưng code không chạy
Xin lỗi vì e không up file lên đc ạ
E cảm ơn ạ

 

[bebo021999]

Bạn nên mô tả rõ:
- Vùng đặt target cụ thể là vùng nào? ví dụ: A1:X10 là vùng muốn bắt sự kiện change
- Có phải là: Khi nhập dữ liệu vào ô A1, nếu ô nào đó, ví dụ X1 = "Bat dau quet" thì xóa ô A1 đi. Có phải không?
- 1 lưu ý cho sự kiện Change: Chỉ chạy khi nhập liệu bằng tay vào ô đích. Nếu ô đích thay đổi giá trị từ công thức, từ code (mà không phải từ bàn phím) thì dùng sự kiện khác (Calculate) chứ Change nó không bắt được nhé

 

[Luyến còi]

Ý của mh. Nếu có 1 ô nào trong vùng từ A1:A10 ví dụ A7 được nhập giá trị " Bat dau quet" thì ô A7 sẽ tự động xoá chữ đó đi

 

[bebo021999]

Hơi kỳ kỳ.
Như vậy là không cho phép nhập "Bat dau quet" vao vùng A1"A10?
Nếu có thì delete đi.
?

 

[Luyến còi]

Hơi kỳ kỳ.
Như vậy là không cho phép nhập "Bat dau quet" vao vùng A1"A10?
Nếu có thì delete đi.
?

File này mh dùng máy quét barcode để nhập liệu. Quan trọng là mh cần cái câu "Bat dau quet" đó để làm key kích hoạt 1 sub khác. Nhưng trước khi kích hoạt sub khác mh phải xoá key đó đi trước

 

[bebo021999]

Không chắc lắm, nhưng dùng thử:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Vung As Range, kytu As String
Set Vung = Range("A1:A10") ' chon vung nhap lieu
kytu = "Bat dau quet" ' chon ky tu muon loai bo
If Intersect(Target, Vung) Is Nothing Or Target.Count > 1 Then Exit Sub
If Target.Value = kytu Then Target.ClearContents
End Sub

 

[ptm0412]

Bạn nên mô tả rõ:

Cái hình rõ rành rành rồi: Target.Address(i, 81) là giá trị gì mà so với 1 chuỗi cho sẵn?

 

[Luyến còi]

Không chắc lắm, nhưng dùng thử:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Vung As Range, kytu As String
Set Vung = Range("A1:A10") ' chon vung nhap lieu
kytu = "Bat dau quet" ' chon ky tu muon loai bo
If Intersect(Target, Vung) Is Nothing Or Target.Count > 1 Then Exit Sub
If Target.Value = kytu Then Target.ClearContents
End Sub

Đã thử và thành công. Cảm ơn bác rất rất rất nhiều