Xoá dữ liệu ô hoặc cột theo ngày tháng ! (1 người xem)

[vtshb]

Trên diễn đàn đã có nhiều bài viết về xoá dữ liệu theo thời gian, mình nghĩ không biết có cách nào có thể xoá dữ liệu của một vài ô hoặc dữ liệu cả cột theo ngày tháng hoặc số lần mở định trước không nhỉ ?

 

[SA_DQ]

Mình nghĩ ra cách cũ chuối. như sau

Mỗi lần mở trang tính, ta dùng macro sự kiện ghi lại SoLanMo +1 vô 1 ô nào đó (Nhưng không cho ai nhii2n thấy ô này)

(Hoặc là kiểm theo ngày cần xóa dữ liệu)

Nếu đạt điều kiện thì macro xóa đi những ô dữ liệu nào đó mà bạn muốn.

Chúc bạn tuần làm việc hiệu quả.

 

[huuthang_bd]

Trên diễn đàn đã có nhiều bài viết về xoá dữ liệu theo thời gian, mình nghĩ không biết có cách nào có thể xoá dữ liệu của một vài ô hoặc dữ liệu cả cột theo ngày tháng hoặc số lần mở định trước không nhỉ ?

Bạn thử cái này xem. Dán vào ThisWorkbook nha.

Private Sub Workbook_Open()
Const SoLan = 3
    If SoLan = 1 Then Sheet1.[A1:A10].ClearContents
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim MyCode
    Set MyCode = ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
    MyCode.ReplaceLine 2, "Const SoLan = " & Right(MyCode.Lines(2, 1), 1) - 1
    ThisWorkbook.Save
End Sub

Còn cái vụ xóa theo ngày thì chắc phải dựa vào ngày hệ thống. Mà người ta sửa ngày hệ thống thì coi như bó tay.

 

[vtshb]

Bạn thử cái này xem. Dán vào ThisWorkbook nha.

Private Sub Workbook_Open()
Const SoLan = 3
If SoLan = 1 Then Sheet1.[A1:A10].ClearContents
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim MyCode
Set MyCode = ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
MyCode.ReplaceLine 2, "Const SoLan = " & Right(MyCode.Lines(2, 1), 1) - 1
ThisWorkbook.Save
End Sub

Còn cái vụ xóa theo ngày thì chắc phải dựa vào ngày hệ thống. Mà người ta sửa ngày hệ thống thì coi như bó tay.

Cảm ơn bạn huu thang !

Mình đã tải file của bạn về, nhưng khi chạy thì nó hiện ra biển báo

Cái vụ VBA này thì mình mù tịt, bạn xem lại giúp xem sao giúp mình nhé

Xin chân thành cảm ơn !

 

[huuthang_bd]

Cảm ơn bạn huu thang !

Mình đã tải file của bạn về, nhưng khi chạy thì nó hiện ra biển báo

Cái vụ VBA này thì mình mù tịt, bạn xem lại giúp xem sao giúp mình nhé

Xin chân thành cảm ơn !

Ah. Tôi quên lưu ý với bạn. Bạn phải làm cái này thì mới dùng được code đó.
Excel 2003 : Tool | Macro | Security… | Trusted Publishers | Trust access to visual basic project
Excel 2007 : Office Button | Excel Options | Trust Center | Trust Center Settings… | Macro Settings | Trust access to the VBA project object model

 

[vietthang191]

Có ai chỉ giùm mình làm thế nào để trộn văn bản trong các sheet lại vào một sheet khác khong ạ?
Mình tìm mãi mà không thấy bài nào nói về vấn đề này. Làm ơn chỉ giùm mình với