請問 Excel 是否可以利用函數自動刪除儲存格內容

Question

請問 在Excel 中輸入文字是否可以利用函數
以日期控制來自動刪除儲存格內容

曾經看過有些資料到了設定日期後資料就
自動刪除,是如何設定的,謝謝

謝謝你們的解答,但巨集程式方面我還是不了解
是否可以試做範例讓我更了解
*是以日期控制來自動刪除儲存格內容
例如(A1:Z15)的儲存格內容
謝謝

謝謝您的解答,已經可以自動刪除儲存格內容
但我在儲存格內容裡有設定保護密碼例(1234)
著樣就無法自動刪除儲存格內容 ,
是否可能自動先解開密碼

jean 感謝你的回答,已能使用
但我不懂那些代號如:ActiveSheet.Unprotect
因該找什麼書看?

Answer 1

提供一個小巨集,在上方選"工具"..."巨集"..."visual basic編輯器"...在左邊選"this workbook",貼上程式碼,說明如下:
Private Sub Workbook_Open()'此檔案開啟時
Sheets("sheet1").Select'選工作表一
If Date = Range("d35") Then'若今天等於D35的值則執行下列程式碼,D35輸入判斷的日期
n = Range(Range("a35"), Range("a35").End(xlToRight).End(xlDown)).Address'選取從A35至最右邊最下面儲存格的連續範圍,即欲刪除的資料範圍(此範圍資料需連續,且與其他不想刪除的範圍要有間隔)
MsgBox "今天是" & Range("d35") & ", 自動刪除" & n & "範圍的資料"
Range(n).Select
Selection.ClearContents'清除資料
End If
End Sub

2006-06-15 19:41:54 補充：
貼程式碼的步驟有問題嗎?D35是輸入日期的儲存格,你可更改.若確定資料範圍,可將此式n = Range(Range("a35"), Range("a35").End(xlToRight).End(xlDown)).Address用下式取代 n = Range("A1:Z15").Address

2006-06-19 13:08:46 補充：
If Date = Range("d35") ThenActiveSheet.Unprotect (1234) '加在IF之下

2006-06-20 12:47:32 補充：
可在ＶＢＡ視窗按Ｆ１會有說明

Answer 2

到下面的網址看看吧

▶▶http://*****

Answer 3

假設A1=IF(TODAY()=DATE(2006,6,15),"","2006/6/15")
那麼A1會顯示2006/6/15, 但到明天就變成空白了.