江苏龙网

  1. 主页 > 生活百科 > >

如何制作项目进度计划表 项目进度表模板

项目进度模板(如何制作项目进度)
进度管理是项目管理过程中常见的应用 。把握好进度状态，可以对整个项目发展有一个全面的把握，需要对每一件事情的发展都有一个全面的了解，尤其是重要的事情 。

任何项目都是先有计划，再制定计划，然后进入建设实施阶段 。作为一个高层次的人，不一定要知道所有的细节，但一定要知道项目要进行到哪个阶段 。
如果没有很好地把握进度，可能会阻碍一些后续工作，影响整个过程的顺利进行，最终导致失败或经济损失 。相信这些结果，没人喜欢看 。
本节介绍如何使用Excel VBA制作计划表 。

其实关键内容并不是如何用代码实现的细节，关键是要详细了解整个表是如何形成的，然后结合自己的需求完成符合自己需求的计划表，这是一个很好的学习过程 。
【如何制作项目进度计划表 项目进度表模板】上图显示了整个工作表的结果 。表格的前半部分是进度项的内容，后半部分是图形化显示的进度结果 。
这个时间表是按月计算的 。如果实现跨月进度管理，会改变表结构 。因此，进度管理不是固定的模式 。如果是基于年或者十年，那就另当别论了 。
下图用于添加进度对话框 。为了方便输入，直接执行表单输入功能，以避免工作表中出现错误 。

形式很简单，但背后的代码并不简单 。文章后面会附上一些代码供参考 。
整个工作表实现过程从这里开始，只要输入相应的项目内容，就会自动添加到工作表中，进行时间计算和图形化表示，无需人工干预 。
你所要做的就是分析图表 。

添加按钮代码 。
PrivateSubCommandButton1_Click()DimxobjAsObject,iAsIntegerReDimuArr(0ToUBound(xArr))ForEachxobjInMe.ControlsIfTypeName(xobj)="TextBox"ThenIfVBA.Len(VBA.Trim(xobj.Value))=0ThenExitSubFori=0ToUBound(xArr)Ifxobj.Name=xArr(i)ThenIfi=4Ori=5Ori=6Ori=7ThenIfNotVBA.IsDate(xobj.Value)ThenExitSubEndIfuArr(i)=xobj.ValueExitForEndIfNextiEndIfNextxobjSetxobj=NothinguArr(0)=&资源网quot;=ROW()/2-1"AddSheetRangeuArr'添加内容AddNewSheetuArr'添加记录表EndSub数组代码
PrivateSubgetXarr()xArr=Array("序号","部门","类别","项目名称",_"计划开始时间","计划结束时间","实际开始时间","实际结束时间","时长")EndSub添加物料资源网格流程代码(AddSheetRange()) 。
PrivateSubAddSheetRange(uArr)DimsAsWorksheet,cellAsRange,icAsInteger,ixAsIntegerDimst1AsInteger,st2AsInteger,xt1AsInteger,xt2AsIntegerSets=ActiveSheetSetcell=s.Range("B4:AN5")cell.Insertshift:=xlDownWithcell.ClearFormatsWith.Font.Size=10.Name="仿宋"EndWithForic=1To4cell.Cells(1,ic).Value=http://www.laomaozy.com/W-Z/uArr(ic-1)s.Range(cell.Cells(1,ic),cell.Cells(2,ic)).MergeNextic.Interior.Color=RGB(239,239,239).Borders.LineStyle=3.Borders.Color=RGB(112,121,211)cell.Cells(1,5).Value="计划"cell.Cells(2,5).Value="实际"cell.Cells(1,6).Value=uArr(4)'计划开始时间cell.Cells(1,7).Value=uArr(5)'计划结束时间cell.Cells(2,6).Value=uArr(6)'实际开始时间cell.Cells(2,7).Value=uArr(7)'实际结束时间cell.Cells(1,8).Value="=H4-G4"'VBA.DateDiff("d",uArr(4),uArr(5))'计划时长cell.Cells(2,8).Value="=H5-G5"'VBA.DateDiff("d",uArr(6),uArr(7))'实际时长st1=VBA.Day(uArr(4))+8st2=VBA.Day(uArr(5))+8xt1=VBA.Day(uArr(6))+8xt2=VBA.Day(uArr(7))+8s.Range(cell.Cells(1,st1),cell.Cells(1,st2)).Style="S1"s.Range(cell.Cells(2,xt1),cell.Cells(2,xt2)).Style="S2"&资源网nbsp;ix=Application.WorksheetFunction.CountA(s.Range("B:B"))-2EndWithEndSub甘特图的绘制是对表格样式的赋值，在本例中称为“S1”和“S2” 。
第一个代码是设置样式，有判断样式是否存在、添加样式等操作 。
欢迎关注和收藏 。


    推荐阅读


    上一篇：读诗人胭脂茉莉短诗 胭脂茉莉

    下一篇：什么是功能性胃肠病？ 功能性腹泻