c_c_lai

回復  sunnyso

寫的不錯，構想也不錯

如果一開始沒有篩選關鍵字時，如何改為全部顯示

目前一列關 ...
ML089 發表於 2013-5-11 09:19

回復 3# sunnyso
Private Sub Worksheet_Activate()
    ' ....
    ' ....
    Cells.ClearContents
    ' ....
    ' ....
    ' ....
    Next
    '  設定無篩選關鍵字輸入，每次啟動該頁面即顯示全部內容
    '  以下Null("")宣告，系統會自動觸發Worksheet_Change()
    Cells(4, 1) = ""   
    Application.ScreenUpdating = True
End Sub

c_c_lai

Cells.ClearContent並不會觸動 worksheet_change
sunnyso 發表於 2013-5-12 22:25

你寫的內容真的很不錯，也蠻有構思的。 GBKEE 的補充也蠻具體實用。
不好意是、補充一下我指的是紅色的 Cells(4, 1) = ""，而非   
Cells.ClearContent，因為在一開始所有內容均被清除掉了，
之後當  Cells(4, 1) 、 Cells(4, 2)、 Cells(4,3)、 Cells(4, 4)、
或者是 Cells(4, 5) 內容中有所任何一組異動時，便會觸發
worksheet_change()。