點擊上面"Excel公式與技巧"藍字關注公眾號
點擊文章底部左下角"閱讀原文"即可學習視頻
學習建議【看千遍不如操作練習一遍】
推薦學習120個技巧【包含常用技巧，條件格式，數據透視表及列印技巧】，超過6個小時視頻講解，點擊文章底部閱讀原文即可購買學習。
長按下面二維碼；點擊上面"識別圖中二維碼"然後再點關注，可以收到更多Excel教程；也可加我微信號（掃下面二維碼）或搜索duanzhenyun邀請進微信交流群，讓我們一起學習Excel函數公式與技巧應用。
應群友要求，需要做一個日期形式的工作記錄表格，效果如下圖，可點擊圖片放大看效果更好。
製作方法：
1、把表的基本格式框架錄好，效果如下。
2、製作控制項控制日期
添加控制項方法：開發工具，插入表單控制項，插入數值調節按鈕；
控制項設置方法：點擊控制項右鍵，點擊設置控制項格式，點擊控制，輸入最小值及最大值和控制連接，最後再設置控制項大小適合單元格大小即可
A1單元格輸入公式=DATE(G2,G4,1)
3、設置日曆日期
step01:先設置第一個單元格公式=$A$1-(WEEKDAY($A$1,1))-IF((WEEKDAY($A$1,1))<=0,7,0)+1
step02:在C10單元格輸入公式=A10+1，往後拖動公式，K10T和S10單元格的公式不能拖，因為單元格大小不同。step03:在創建一個新工作表記錄每天的工作事項，效果如下。step04:在用公式把提醒的內容提取到日期，A11單元格公式=IFERROR(VLOOKUP(--TEXT(A10,"dd"),記事本!$A$2:$C$65536,3,0),"")step05:最後用代碼工作表事件把提醒對應的具體內容顯示到AA9單元格，代碼如下：Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume NextIf Target.Column <= 26 Then Select Case Target.Row Case 11 Set Rng = Sheets("記事本").Range("a:a").Find(Target(0, 1).Value) [aa9] = Rng(1, 2).Value Case 13 Set Rng = Sheets("記事本").Range("a:a").Find(Target(0, 1).Value) [aa9] = Rng(1, 2).Value Case 15 Set Rng = Sheets("記事本").Range("a:a").Find(Target(0, 1).Value) [aa9] = Rng(1, 2).Value Case 17 Set Rng = Sheets("記事本").Range("a:a").Find(Target(0, 1).Value) [aa9] = Rng(1, 2).Value Case 19 Set Rng = Sheets("記事本").Range("a:a").Find(Target(0, 1).Value) [aa9] = Rng(1, 2).Value End SelectElseIf Target.Column <= 3 Then If Target.Row = 21 Then Set Rng = Sheets("記事本").Range("a:a").Find(Target(0, 1).Value) [aa9] = Rng(1, 2).Value End IfEnd IfEnd Sub如需模板請轉發文章積滿12個贊即可加我微信領取
更多Excel函數使用及技巧可以打開公眾號，點開歷史文章，然後在頂部搜索技巧或者函數即可，如不會可點擊紅色字體跳轉連接看操作步驟，如何利用公眾號搜索功能查資料
喜歡本文，請點這裡