監造及施工報表 VBA化

"寫在篇首，由於程式的設計是給特定格式的預算書格式使用，無法應對各種不同編排方式
，所以無法給予檔案，另若有VBA的設計想法討論，是歡迎的。"

有鑑於過去 在製作監造報表的時候
大家通常都使用LOOKUP的函式功能去抓取相對應的資料庫數字
在我看過許多河川局的報表之後
發現用LOOKUP函式的已經算不錯的了
像是三局或四局的報表
則是一天一個頁面 沒有資料庫的概念
這通常會導致EXCEL的檔案特別的大
而且填報表會顯得麻煩
每次都還必須去計算累計數量再去填列

雖然LOOKUP可以解決很多事情
但它畢竟不是C4 不能像是流言終結者一樣處理「全部」的事情
因為LOOKUP並沒辦法用拉的 去調整函式的第三個項目 (Row_index_num或Column_index_num)
必須一個一個去針對個別項目做修改
這個手動的工作 就常常會出錯
導致你可能填了好幾天的報表 然後發現進度不對
才一個一個項目來Debug
所以LOOKUP好用 但是麻煩

之前一直有想過用VBA來建立自動化的表單
但是一直沒動力去寫
直到後來偶然的機緣下遇到八局的沈大哥 以及 水利會的 Hank Lin
在共同的討論以及互相協助下
我才開始把這個報表開發出來

這個報表有幾個功能
1.直接匯入PCCES的檔案建資料庫
2.VBA自動建立報表
3.批次列印功能
4.展延工期功能
5.各個月5日及20日進度及工項施做金額抓取(用來畫圖用的)

整個報表的更新上也感謝有許多同事幫忙抓蟲子
讓現在的版本可以達到基本使用沒甚麼大問題的狀況

報表的施做邏輯如下

• 首先先根據二局既有的報表格式來作為基礎，然後建立資料匯入模組來吃進PCCES的資料，這個部分就要感謝八局的沈大哥提供CODE參考，讓我可以不用花太多時間在上面。

• 接著建立日報資料庫，讓大家來填列每日工作數量，然後用SUMIF函數來算今日累計跟昨日累計，再把兩者相減就可以得到今日施做數量了呢!!，最後在日報資料庫另外也根據SUMIF的值來計算實際進度~~
• 然後再來根據工項以及二局既有格式來建立報表，建報表就有趣了，先前的版本由於預設的工項空格很多，如果一件工項少的案子匯入，整張報表就會空空的很難看....，因此用了有點土法煉鋼的方式來進行工項格數FIT項目數量的工作，透過新增欄位以及複製格式的VBA CODE來達到我要的功能。
• 批次列印的功能其實以前就有寫給同事用，在那個還在使用LOOKUP年代的時候......，這次的批次功能也嚴格的用了防呆的CODE，避免日期輸錯導致無限循環列印.......。
• CATCH DATA功能則是為了要應付督導查核用的，可以把開工跟指定日期以及之間的5日及20日的實際進度、預定進度及各工項的施作金額調用出來，接著就看使用者要如何運用這些資料畫進度表。

在完成基本報表建置後，接下來可能會開發請款單的功能，但是由於這個檔案實在太多分頁了，sheets就有8個，要再放請款的表單可能會增加到10個以上，所以考慮把請款功能獨立出來。

另外就是未來可能要增進VBA的Class Module 技術，把各個代碼的建置更獨立一些，就像以前我寫Fortran使用的大量的Subroutine一樣，讓各個部件獨立，達到好維護且不互相干涉的環境。

如果你對VBA的表單製作也有興趣，歡迎大家一起交流。