1. 首頁 > 云知道 > >

如何制作項目進度計劃表 項目進度表模板

小知識

項目進度表模板（如何制作項目進度計劃表）
進度管理是項目管理過程的一個普通應用，很好掌握進度狀況，可以對整個項目發展有一個全面掌握，對于任何事情的發展，都要有一個全面了解，特別是很重要的事情 。

如何制作項目進度計劃表 項目進度表模板


任何項目首先有個計劃，然后做出方案，接著就是進入施工和實施階段，作為高層，并不需要了解所有的細節部分，但是清楚地知道項目進行到哪一個階段是必要的一個方面 。
如果對進度沒有很好掌握，那么一些后續工作可能會受阻，進而影響整個過程順利進行，最終會導致失敗或者經濟損失 。相信這些結果，沒人喜歡看到 。
本節介紹一下，關于如何利用Excel VBA制作進度表 。
如何制作項目進度計劃表 項目進度表模板


其實，重點內容并不是如何用代碼實現的細節，重點是要對整個表是怎樣形成的，有一個詳細理解，然后結合自己的需求，完成符合自己的進度表，這就是一個很好學習過程 。
上圖為整個工作表的結果，表的前半部分為進度項目內容，后半部分為圖形化顯示的進度結果 。
本進度表以月為單位，如果實現跨月進度管理，那么就變更表結構，所以，進度管理也不是一個固定的模式，如果是以年或十年為單位，就另一說了 。
下圖為添加進度對話框，為了輸入方便，直接做了窗體錄入功能，免得在工作表中出現錯誤 。
如何制作項目進度計劃表 項目進度表模板


窗體很簡單，但背后的代碼并不簡單，文章后面會附一些代碼，以供學習參考 。
整個工作表實現過程就是從這里開始，只要錄入相應項目內容，會自動添加到工作表中，并進行時間計算和圖形化表現，不需要人為干預 。
要做的就是對圖表進行分析即可 。
如何制作項目進度計劃表 項目進度表模板


添加按鈕代碼
Private Sub CommandButton1_Click()Dim xobj As Object, i As IntegerReDim uArr(0 To UBound(xArr))For Each xobj In Me.Controls    If TypeName(xobj) = TextBox Then         If VBA.Len(VBA.Trim(xobj.Value)) = 0 Then Exit Sub            For i = 0 To UBound(xArr)                    If xobj.Name = xArr(i) Then                        If i = 4 Or i = 5 Or i = 6 Or i = 7 Then                            If Not VBA.IsDate(xobj.Value) Then Exit Sub                        End If                        uArr(i) = xobj.Value                    Exit For                    End If            Next i    End IfNext xobjSet xobj = NothinguArr(0) = =ROW()/2-1AddSheetRange uArr '添加內容AddNewSheet uArr '添加記錄表End Sub

推薦閱讀