Nhập "OK" vào ô sau khi Double click ô (2 người xem)

[hoangexcell]

Tình hình mình rất là lười.
Ví dụ như tình huống sau: Thay vì nhập "OK" nhàm chán, mình muốn Double Click vào thì nó nhập OK tại vùng dữ liệu này


Xin thành viên giúp đỡ

 

[vu_tuan_manh_linh]

Duoble làm gì bạn, click luôn cho khỏe!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Target.Value = "OK" Then
    Target.ClearContents
Else
    Target.Value = "OK"
End If
Application.EnableEvents = True
End Sub

 

[hoangexcell]

Duoble làm gì bạn, click luôn cho khỏe!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Target.Value = "OK" Then
    Target.ClearContents
Else
    Target.Value = "OK"
End If
Application.EnableEvents = True
End Sub

Xin thêm điều kiện cho vùng nhất định, chứ thế thì không phải xóa / đè tùm lum sao hihi