Giúp em xóa các ô chọn = 1 click chuột

[nguyenhdu]

Các anh (chị, em) xin giúp.

Em có một bảng tính bao gồm: Các ô có công thức tính và các ô phải nhập dữ liệu.

Các PRO viết giùm em một cái VBA chỉ cần click một cái là xóa các ô nhập dữ liệu bằng tay. (Vì mỗi lần em xóa dữ liệu, lỡ tay xóa mấy cái ô có công thức mắc công đánh lại)

Mong các PRO xin chỉ giáo chi tiết cách tạo VBA để xóa, cách chọn các ô cần xóa và không cần xóa.

Thanks

 

[SA_DQ]

Xin gởi bạn xài đỡ!

Sub GoToValueOnly()
    Range("A3").CurrentRegion.SpecialCells(xlCellTypeConstants, 7).Select
    MsgBox Selection.Address
    Selection.Clear
End Sub

 

[nguyenhdu]

Hix hix, bạn đưa cho mình một đoạn mã mà chẳng hiểu j hết. Bạn có thể chỉ rõ từng bước một không? Bạn tạo giùm một cái nút trên bảng tính để mình bấm vào là có thể xóa được hết.

 

[hoangdanh282vn]

Hix hix, bạn đưa cho mình một đoạn mã mà chẳng hiểu j hết. Bạn có thể chỉ rõ từng bước một không? Bạn tạo giùm một cái nút trên bảng tính để mình bấm vào là có thể xóa được hết.

Bạn đưa file lên để xem bạn muốn xóa hết toàn bộ cells nhập liệu hay chỉ một vùng nào đó.

 

[nguyenhdu]

Đây là file đính kèm. ^^

 

[Po_Pikachu]

Theo yêu cầu của bạn thì hình như là bạn muốn xóa dữ liệu trong vùng E2:F3 đúng không? Mình viết code trong Sheet1 bạn mở file lên làm theo hướng dẫn sẽ hiểu!

 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$E$2:$F$3" Then                    MsgBox ("Xoa o B7:D16")                            Range("B7:D16").ClearContents End If End Sub

 

[nguyenhdu]

Bạn có thể viết thêm lệnh hỏi "yes/no" trước khi xóa không. Hì hì
Thanks

 

[Po_Pikachu]

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$E$2:$F$3" Then                'Dieu kien

 

[Mr Okebab]

Bỏ cái Else đi bạn ạ vì không cần thiết
Chú ý bẫy lỗi một xíu

Thân!

 

[Po_Pikachu]

Bác có thể cho con xin code luôn được! Học hỏi thôi, học hỏi thôi! Thanks

 

[nguyenhdu]

Cảm ơn các Pro nhiều lắm