进度管理是项目管理过程中的一个常见应用。这是掌握整个项目进度和发展的好方法。对于任何事物的发展，都要有一个全面的认识，尤其是很重要的东西。
任何项目都是先有计划，再做方案，然后进入建设实施阶段。作为一个高级管理人员，你不需要知道所有的细节，但是知道项目进行到哪个阶段是有必要的。
如果进度控制不好，后续的一些工作可能会受阻，影响整个过程的顺利进行，最终导致失败或经济损失。相信这些结果，没有人愿意看到。
本节介绍如何用Excel VBA制作日程表。
其实关键内容并不是如何用代码实现的细节。重点是要详细了解整个表是怎么形成的，然后根据自己的需求完成计划表。这是一个很好的学习过程。
上图是整个工作表的结果。表格的前半部分显示进度项目，后半部分以图形方式显示进度结果。
这个计划是以月为单位的。如果实施跨月进度管理，表结构会发生变化。因此，进度管理不是一种固定的模式。如果是以年或者十年为单位，那就另当别论了。
为了添加如下图的进度对话框，为了输入方便，直接做了表单输入功能，避免工作表出错。
表单很简单，但其背后的代码却不简单。文章后面会附上一些代码，供参考。
整个工作表实现过程从这里开始。只要输入相应的项目内容，就会自动添加到工作表中，进行时间计算和图形化表示，无需人工干预。
你要做的就是分析图表。
添加按钮代码
private Sub command button 1 _ Click()Dim xobj As Object，i As IntegerReDim uArr(0到UBound(xArr))用于Me中的每个xobj。控制TypeName(xobj)=TextBox 然后是VBA。莱恩(VBA。Trim(xobj。Value))=0，然后如果xobj，则退出i=0的Sub到UBound(xArr)。Name=xArr(i)那么如果i=4或者i=5或者i=6或者i=7那么如果不是VBA。IsDate(xobj。值)，然后如果uarr (I)=xobj，则退出子端。value exit for End if next I End if next xobj set xobj=nothing uArr(0)==row()/2-1 Add sheet range uArr Add newsheet uArr 添加记录表结束子数组代码
PrivateGetXarr () xarr=array(序列号，部门，类别，项目名称，_ 计划开始时间，计划结束时间，实际开始时间，实际结束时间，持续时间)End Sub添加项目流程代码(AddSheetRange())
private Sub AddSheetRange(uArr)Dim s As Worksheet，cell As Range，ic As Integer，ix As IntegerDim st1 As Integer，st2 As Integer，xt1 As Integer，xt2 As Integer set s=ActiveSheetSet cell=s . Range( b 43360 an 5 )单元格。插入shift:=xlDownWith单元格。使用清除格式。字体。尺寸=10。Name=仿宋以对于ic=1到四单元格结束。细胞(1，集成电路).值=uArr(ic - 1) s .范围(单元。细胞(1，集成电路)，细胞。细胞(2，ic).合并下一个ic .Interior.Color=RGB(239，239，239)边框。线条样式=3。边框。颜色=RGB(112，121，211)单元格。单元格(1,5)。值=计划细胞。单元格(2,5)。值=实际细胞。单元格(1,6)。值=uArr(4)计划开始时间细胞。单元格(1,7)。值=uArr(5)计划结束时间细胞。细胞(2,6)。值=uArr(6)实际开始时间细胞。细胞(2,7)。值=uArr(7)实际结束时间细胞。单元格(1,8)。值==H4-G4 VBA .DateDiff(d ，uArr(4)，uArr(5))计划时长细胞。细胞(2,8)。价值==H5 G5 VBA .DateDiff(d ，uArr(6)，uArr(7))实际时长st1=VBA .Day(uArr(4)) 8 st2=VBA .Day(uArr(5)) 8 xt1=VBA .Day(uArr(6)) 8 xt2=VBA .日(uArr(7)) 8秒范围（单元格。单元格(1，st1)，单元格。细胞(1，st2).S1的范围（单元格。单元格(2，xt1)，单元格。单元格(2，xt2)).S2九世=应用。工作表功能。CountA(s . Range( b : b )-2个带结束符的结束符甘特图形的绘制是对表格样式的一个赋值，本示例中样式名为《S1》和S2。
一代码是对样式进行设置的，有判断样式是否存在、添加等一些操作。
