目前在看《搞定》一書，裡面提及要“清空大腦”，簡單的講“清空大腦”就是把腦子裡面未完成的事項做一個清單，然後在對任務進行分類處理，一項一項的完成。
結合之前發佈的刪除空白單元格，可以做一個簡單的計劃清單。清單需要實現以下幾個功能：
1：設定任務只能是完成或未完成狀態，不能再表格裡面輸入其它的內容。方便管理
2：已經完成的任務，在清單裡面進行刪除。
代碼已經初步完成，運行成果如下：
代碼解析：
1：點擊設置以後，是否完成的那一列裡面只能輸入完成、完成及空，如果輸入了其它內容。表格會進行報警。此代碼，只要最開始，運行一次就可以了。後續無需再運行
Sub 開始前的設置()
With Range("a6:a105").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="完成,未完成"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With
End Sub
效果如下：
2：點擊刪除已完成的任務按鈕，運行的代碼，其實是刪除空白行的一種運用。代碼如下：
Sub 刪除已經完成的任務()Dim arr, narr = Sheet1.Range("a6:b105")For n = 1 To UBound(arr) If arr(n, 1) = "完成" Then arr(n, 2) = ""Next nSheet1.Range("a6:b105") = arri = Sheet1.Range("b" & Rows.Count).End(xlUp).RowFor n = i To 6 Step -1 If Cells(n, 2) = "" Then Rows(n).Delete End IfNext nEnd Sub兩個子程序，就可以完成一個簡單的計劃清單。當然此清單還可以繼續深入，如把已經完成的清單，放在已經的工作表裡面，又或者把任務進行分類。把不同類的任務放入不同的工作表裡面。這個表格以後可以再進行深入的分析。
閱讀更多 浮雲Excel分享 的文章
