教程 | 手把手教你用excel VBA制作到期提醒小工具嗎？
左手Excel右手-01-10
01
寫在前面
隨著國民保險意識的提升，家庭成員的保單配置越來越全面了
比如筆者全家每個成員都配備了百萬意外，百萬醫療，重大疾病以及定期壽險，這么多保單每年都要繳費，但是繳費日期都不同，管理的成本算下來也是不低的。
那么如果有什么工具能夠起到提醒提示的作用，豈不美哉。以筆者對VBA的了解excel 保留最后日期，應該能擔此重任。
先看看效果：
02
設計思路
①設計保單記錄的模板記錄關鍵信息。
②記錄保單的文件在打開的時候就能夠觸發提醒機制，或者打開任何excel文檔的時候觸發。筆者以前者為例。
③提醒以彈窗框的形式進行第一次提醒excel 保留最后日期，然后將目標保單記錄涂上顏色并保存
④具體需要提前多久提醒可以進行設置。
03
實現方法
①()函數可以實現文檔打開馬上調用目標方法
②主函數的核心是遍歷記錄并按要求著色
Fori=..Rows.Count '將應交日期進行類型轉換并放至變量 =CDate(.Range("F"&i).Value) '應交日期與當前日期對比 ("d",Date,)=0Then '數組重定義，且保留原值 t(j) (j)="保險公司："&.Range("A"&i).Value&"；產品名稱："&.Range("B"&i).Value&"；應繳費日期："& .Range("F"&i)..Color=255 j=j+1 flag=True EndIf Nexti
③將目標記錄以彈窗形式輸出
= ().Save '將要輸出的保單存放到字符串 Forj=() =&(j)&Chr(10) Nextj =((,,"提示"))Then ' Else ().Close EndIf Else ().Close ("沒有需要提醒繳費的保單") EndIf
04
寫在最后
舉一反三，順著這個思路，稍加改造可以做成員工生日提醒，專利到期提醒，房貸還款提醒，財務清賬提醒等等。