Hank's VBA 學習歷程

 讀者的心聲我都聽見了，監造單位既然有監造日報怎能沒有施工單位的施工日誌? 操作影片： 施工日誌VBA-操作範例解說 施工日誌主要記載內容為: 施工工項(契約內容) 材料管理 人員管理 機具管理 其他重要事項 介面設計有「+」與「-」，可以讓使用者方便放大縮小，其中所有的單一資料都會有一個報表編號作為主要的關鍵字，以資料庫的概念進行增加、查詢、刪除...等基本資料建立方式。 圖一、填寫基本介面 由於大多數的工程案件都有固定的重要施工項目，因此特別設置範本的概念供使用者進行建立，比如說範本名稱為道路工程，其內容由瀝青混凝土、碎石級配、開挖機、大工、小工所組合而成，未來載入範本於施工工項或材料管理時僅需要填寫數量即可。 做出的成果有四種型態的長表及四種型態的日報，供使用者依照喜好進行取用。 圖二、產生日報介面 第一聯的部分: 1.表單工項不為0，產生日報後的當日工項、材料、人員、機具，會把不為0的都列出來。 2.工項累計數量不為0，產生日報後的以前日期所曾填列過的項目都會列出來。 第二聯的部分: 1.工項累計數量不為0，產生日報後的以前日期所曾填列過的項目都會列出來。 2.所有契約項目都會顯示。 最理想的狀態是第一聯(表單工項數量不為0)加上第二聯(工項累計數量不為0)，這樣不僅日報可以顯示得比較精簡而且如果要對詳細的數量時也可以有第二聯作為輔助 圖三、產生長表介面 長表部分就是工項、材料、人工、機具的區段累計，方便業主進行核對成本而已。 圖四、施工日誌第一聯 圖五、施工日誌第二聯 如有需求，表單連結如下: https://docs.google.com/forms/d/e/1FAIpQLScV1sl-_Hz-U0t3rHir3qRxA08-XHHLhxpk72DKhFonXJRr2A/viewform?usp=sf_link QA:20230627已經更新至簡易使用手冊。

監造日報表系列中的隱藏模組-變更設計 變更設計最麻煩的的一點就是要處理變更加減帳的問題，主體+雜項的變更前後比例還會影響到編製預算書時所用到的比例項目更正，因此既然監造日報表裡面的工作表("Budget")已經有紀錄著PCCES匯入的預算書資料，那麼透過這個工作表的再開發應該可以更快的得到「變更設計總表」、「變更設計明細表」，因此而撰寫這個專案，每次算加減帳都會被主辦退，這次應該不會被退了，電腦自己算給你! 圖一、變更設計狀況(1=新增項目新增單價，2=數量變更，3=單價變更) 圖二、變更設計總表 圖三、變更設計明細表 相關範例程式碼如下: 'also need "clsBudgetItems" ClassModule Private shtBudget As Worksheet Private shtCBudget As Worksheet Private obj As New clsBudgetItems Private collAddress As New Collection Private ItemCountArray As Variant Public IsFixItemCount As Boolean Private mode As String Private ratio As Double Private Sub Class_Initialize() Set shtBudget = Sheets("Budget") Set shtCBudget = Sheets("CBudget") '取得預算書的資料 'get budget data from sheets("Budget") obj.getData obj.sumEachSepPrice a = obj.sumSpecificPrice(1, 2) b = obj.sumSpecificCPrice(1, 2) ratio = b / a 'get the ratio to check other item End Sub Sub getPrintPage() '&P=當前頁數 '&N=總頁數 '2020.05.05 upd