腦衰弱工作室

很久以來一直想建立一個自己在用的且方便的工作記錄模式，除了記下每日工作的流水帳外，另外也希望能為未來分析相關工作時有個依據。

但是試用過幾個方式，用手記、桌面便利貼、行事曆軟體...等等，卻總覺得不太合用，因此在事情愈來愈多，卻愈來愈記不住時，毅然決然的決定花了一點時間使用excel設計了一個簡單卻明瞭的工作記錄表，打算在excel上作記錄，不再印出。

但人總是有惰性的，用了這個後就會想是否可以更方便的輸入。比如"自動帶出日期、下拉式選單、項目完成時自動mark起來..等項目，基本上愈方便用，愈能增加我使用的動力。

一、首先由最簡單的下拉式選單做起

1.先在下方的sheet建立一個類別表

2.內容如下

3.接著點選在類別表中將要設成下拉式選單的範圍選起，點選

"公式"\"從選取範圍建立"\"頂端列"，最後按下確定，會定義好一個叫工作類別的項目。

4.回到主sheet中，將要做為下拉式選單的欄選取，接著按下

"資料"\"資料驗證"\"清單"\在來源空格填入"=工作類別"，即完成下拉式選單的設定。

二、接著設定自動輸入日期以及項目完成後變色

1.基本上這個必須由VBA進行設定。按下”ALT+F11”即會開啟VBA的畫面。輸入以下的內容，即定義好程式碼。

2.詳細程式碼內容如下

設定日期

==================================================================

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'點二下第3欄時，欄位內容自己帶入日期+時間-------------------
If ActiveCell.Column = 3 Then
ActiveCell.Value = Date & Time
End If
'------------------------------------------------------------
End Sub

==================================================================

設定若欄位F的值為"已完成”，則將該列背景改為綠色,否則維持白色

=================================================================

Private Sub Worksheet_Change(ByVal Target As Range)

'若欄位F的值為"已完成”，則將該列背景改為綠色,否則維持白色------------------
If Left(Target.Address, 2) = "$F" Then
    If Trim(CStr(Target.Value)) = "已完成" Then
        Rows(Target.Row).Interior.ColorIndex = 43
        Target.Font.ColorIndex = black
    Else
        Rows(Target.Row).Interior.ColorIndex = white
        Target.Font.ColorIndex = black
    End If

End If
'------------------------------------------------------------
End Sub

==================================================================