有的时候对于做一些事情的时候，我们都有一个计划，然后按照计划步骤实施，如果涉及的步骤或程序多的话，进展的了解就很重要，怎么能一目了然，接下来我做的程序能对你有一点帮助。
工具/原料
电脑、电脑软件excel （至少是2003版的）
方法/步骤
1
打开EXCEL,把你计划的每一项、每一项中的每件工作按序号分开，例如，我做的工作有38个项目，每个项目有56个小项，因为工作是同时进行的，所以每完成一项，我就摸黑一项。（下面的图，是我工作进展中的情况。）
2
打开VBA,输入下面的内容：Private Sub CommandButton1_Click()Dim hang As IntegerDim lie As IntegerDim Bcol As IntegerDim i, i1, n As Integern = 0hang = Range('ak1').Valuelie = Range('al1').ValueFor i = 2 To hangFor i1 = 2 To lieBcol = Cells(i, i1).Interior.ColorIndexIf Bcol = 1 Or Bcol = 16 Thenn = n + 1End IfNext i1Cells(i, lie + 1).Value = lie - n - 1n = 0Next iEnd Sub
3
之后回到excel界面，按一下“剩余（统计）”按钮，项目未完成多少会出现在单元AJ列。
注意事项
工作进度情况，是以填充背景色（黑色或灰色）来实现工作完成情况，摸黑了表示该工作完成。
上一篇：施工进度节点细目表