xóa toàn bộ dữ liệu trong sheet (1 người xem)

[connhangheo]

các bác cho em hỏi muốn xoá toàn bộ dữ liệu trong sheet = VBA thì làm thế nào. Thanks

 

[nvson]

Bạn thử đoạn code sau:

Public Sub Xoahetdulieu()
On Error Resume Next
Sheets("Ten sheet can xoa").Cells.Delete
End Sub

 

[dat2007]

Hoặc:

Sub DelAll()
    Cells.Select
    Selection.ClearContents
End Sub

 

[duongsatdn]

Hoặc bạn có thể dung macro này

Sub Xoatoanbo()
Cells.Select
Selection.ClearContents
Range("A1").Select
End Sub

 

[Mr Okebab]

các bác cho em hỏi muốn xoá toàn bộ dữ liệu trong sheet = VBA thì làm thế nào. Thanks

1. Câu hỏi này không dành cho Box này
2. VD : Sheet cần thủ tiêu dữ liệu là GPE :

   Sub Macro1()
       Sheets("GPE").Select
       Range("A1:IV1").EntireColumn.Delete
   End Sub

Thân!

P/S : Cái này không phải UF nên để mục này cũng không phải đâu.
Thanks.

 

[duongsatdn]

Hơi thắc mắc một chút: Sau khi thực hiện các thủ tục như đã được hướng dẫn, sheet này trở nên trống không. Mục đích của bạn để làm gì. Có lẽ là chỉ cần xóa một vùng nào đó thôi chăng???

 

[connhangheo]

Cảm ơn các bác, em hỏi 1 câu mà bao nhiêu bác trả lời . Các bác cho em hỏi tiếp: em muốn xoá toàn bộ dữ liệu trong workbook thì làm thế nào ạ

 

[Mr Okebab]

Cảm ơn các bác, em hỏi 1 câu mà bao nhiêu bác trả lời . Các bác cho em hỏi tiếp: em muốn xoá toàn bộ dữ liệu trong workbook thì làm thế nào ạ

Làm 1 vòng lặp thôi.
Mượn code của NVSON nhé

 Public Sub Xoahetdulieu()
   On Error Resume Next
   Dim Sh As Worksheet
   For Each Sh In ThisWorkbook.Worksheets
        Sh.Cells.Delete
   Next
   Set Sh = Nothing
End Sub

Thân!

 

[quynh tram]

Khong sua duoc du lieu

Minh co 1 viec nho cac ban chi giao
Lam the nao de khi dua file excel cua minh cho nguoi khac xem ma ho khong sua duoc noi dung trong do nhi?

 

[duongsatdn]

Bạn xem thêm các bài về bảo mật trong excel, dùng chức năng Tìm kiến của GPE với từ khóa Protection.