Hẹn giờ xoá toàn bộ dữ liệu trong một sheet excel

[quocnguyen1]

Xin chào các anh, chị và các bác trong diễn đàn,

- Hiện em đang gặp một vấn đề trong excel không biết giải quyết thế nào vì em hơi gà . Mong các anh chị và các bác giúp đở. Vấn đề như sau:

- Em có một file excel với nhiều sheet có đầy đủ dữ liệu và công thức tính toán. Nhưng em chỉ muốn dữ liệu trong file này chỉ có giá trị trong một thời gian nhất định ví dụ 1 tuần hay 2 tuần... sang tuần thứ hai hoặc ngày của máy tính trùng với ngày định trước hoặc lớn hơn ngày định trước khi đó mở file thì dữ liệu trong cac sheet hoàn toàn bị xoá không có giá trị sử dụng nữa. (ví dụ ngày định trước là 2013-11-14) đến ngày 14 trở đi khi mở file thì dữ liệu trong file hoàn toàn bị xoá không còn giá trị sử dụng.

Xin cảm ơn các anh chị đã giúp đở.

 

[Quang_Hải]

Nếu là file của bạn để bạn sử dụng thì xóa làm gì. Nếu để cho người khác sử dụng thì càng không nên xóa.
Vài cái công thức thì làm được quái gì chứ. Cả đống kiến thức đây nè mà còn đói lên đói xuống. Không đủ tiền để lướt trên GPE nữa nè.

 

[nghiaphuc]

Thấy cái yêu cầu chẳng chính đáng tí nào cả. Cái file này mà đem cho người khác sử dụng thì kiểu gì cũng có lúc tác giả bị ném đá à.

 

[phongkiemtinh]

Thấy cái yêu cầu chẳng chính đáng tí nào cả. Cái file này mà đem cho người khác sử dụng thì kiểu gì cũng có lúc tác giả bị ném đá à.

Đúng là tiê đề tác giả ko hợp lý, Phải hỏi là "muốn đến ngày thì tự động copy tất cả dữ liệu lưu ra 1 file và xóa tất cả dữ liệu trên file hiện tại để nhập liệu mới".
Có code đó không bác.

 

[nhanvvGPE]

Đúng là tiê đề tác giả ko hợp lý, Phải hỏi là "muốn đến ngày thì tự động copy tất cả dữ liệu lưu ra 1 file và xóa tất cả dữ liệu trên file hiện tại để nhập liệu mới".
Có code đó không bác.

Hihi

Mình có viết cái gửi mail bằng OutLook tự động mà thấy lo lắng lắm rồi, cũng không mất nhưng sợ thiếu.
Còn xóa thì...

 

[Quang_Hải]

Xin chào các anh, chị và các bác trong diễn đàn,

- Hiện em đang gặp một vấn đề trong excel không biết giải quyết thế nào vì em hơi gà . Mong các anh chị và các bác giúp đở. Vấn đề như sau:

- Em có một file excel với nhiều sheet có đầy đủ dữ liệu và công thức tính toán. Nhưng em chỉ muốn dữ liệu trong file này chỉ có giá trị trong một thời gian nhất định ví dụ 1 tuần hay 2 tuần... sang tuần thứ hai hoặc ngày của máy tính trùng với ngày định trước hoặc lớn hơn ngày định trước khi đó mở file thì dữ liệu trong cac sheet hoàn toàn bị xoá không có giá trị sử dụng nữa. (ví dụ ngày định trước là 2013-11-14) đến ngày 14 trở đi khi mở file thì dữ liệu trong file hoàn toàn bị xoá không còn giá trị sử dụng.

Xin cảm ơn các anh chị đã giúp đở.

Thiết nghĩ chắc bạn cũng cố nhu cầu cá nhân gì đó nên mới muốn xoá dữ liệu.
Mình gợi ý cho nhé
Đây là cách kiểm tra đã tới ngày tháng để thực hiện chuyện bí ẩn chưa
Mỗi ngày tương ứng với 1 con số. Ví dụ ngay 4-11-2013 sẽ tương ứng với số 41582, và con số này sẽ là 45583 vào ngày 5-11-2013.

Sub Auto_Open()
If Format(Date, "#") >= 41582 Then
    'làm gì đó tuỳ bạn
End If
End Sub

Còn đây là cách xóa sạch dữ liệu trong 1 file

Sub Xoa_Dulieu()
Dim sh As Worksheet
      For each sh in Worksheets
           sh.Cells.Clear
      Next 
ThisWorkBook.Save
End Sub

Bạn tự cân nhắc trước khi ứng dụng nhé

 

[maytinhvp01]

Xin chào các anh, chị và các bác trong diễn đàn,

- Hiện em đang gặp một vấn đề trong excel không biết giải quyết thế nào vì em hơi gà . Mong các anh chị và các bác giúp đở. Vấn đề như sau:

- Em có một file excel với nhiều sheet có đầy đủ dữ liệu và công thức tính toán. Nhưng em chỉ muốn dữ liệu trong file này chỉ có giá trị trong một thời gian nhất định ví dụ 1 tuần hay 2 tuần... sang tuần thứ hai hoặc ngày của máy tính trùng với ngày định trước hoặc lớn hơn ngày định trước khi đó mở file thì dữ liệu trong cac sheet hoàn toàn bị xoá không có giá trị sử dụng nữa. (ví dụ ngày định trước là 2013-11-14) đến ngày 14 trở đi khi mở file thì dữ liệu trong file hoàn toàn bị xoá không còn giá trị sử dụng.

Xin cảm ơn các anh chị đã giúp đở.

Option Explicit
Public ngay_soa As Date    '  KHAI BAO BIEN TOAN CUC
Private Sub Workbook_Open()   ' CODE MO FILE LEN KIEM TRA VA SOA Viet trong thisworkbook
Application.DisplayAlerts = False
Dim sh As Worksheet
If ngay_soa < Now() Then
    For Each sh In Worksheets
        sh.Range("A:Z").ClearContents
    Next
End If
Application.DisplayAlerts = True
End Sub
Sub nhap_ngay_soa()   ' CODE NHAP NGAY CAN SOA VIET TRONG modul
ngay_soa = InputBox("nhap ngay muon soa")
End Sub

nếu là thiện ý mình cũng góp vui tí

 

[Kiều Mạnh]

Xin chào các anh, chị và các bác trong diễn đàn,

- Hiện em đang gặp một vấn đề trong excel không biết giải quyết thế nào vì em hơi gà . Mong các anh chị và các bác giúp đở. Vấn đề như sau:

- Em có một file excel với nhiều sheet có đầy đủ dữ liệu và công thức tính toán. Nhưng em chỉ muốn dữ liệu trong file này chỉ có giá trị trong một thời gian nhất định ví dụ 1 tuần hay 2 tuần... sang tuần thứ hai hoặc ngày của máy tính trùng với ngày định trước hoặc lớn hơn ngày định trước khi đó mở file thì dữ liệu trong cac sheet hoàn toàn bị xoá không có giá trị sử dụng nữa. (ví dụ ngày định trước là 2013-11-14) đến ngày 14 trở đi khi mở file thì dữ liệu trong file hoàn toàn bị xoá không còn giá trị sử dụng.

Xin cảm ơn các anh chị đã giúp đở.

hồi mình mới tham gia GPE học lỏm được mấy đoạn code và làm được vài việc nhỏ cũng có tư tương như bạn vậy ...bi các Ban GPE nói cho quê một đống luôn đó ... sau này đọc riết trên GPE mình mới thấy các bạn nói đúng và đặt pass hay ko pass cũng không để làm gì cả với mình mấy cái đó nó quá đơn giản và bạn nên chia sẽ và mở lòng mình ra một chút ....còn cau hỏi của bạn thì trên GPE có bao la các các lạoi cho mà vận dụng.... chịu khó đọc đi nha

 

[laydaihiep]

Đoạn code của các bạn rất hay mà mình có 1 file excel bị lỗi protect sheet không xóa dc. Bạn nào biết giúp mình với

Bài đã được tự động gộp: 11/11/21

Đoạn mã của các bạn rất hay mà mình có 1 file excel bị lỗi bảo vệ sheet không xóa dc. Bạn nào biết giúp mình với