工作任务清单表格制作（工作任务清单表格三亮三比）

经过一段时间测试，任务清单已经成功的从个人任务的备忘推广到项目团队的人员工作备忘，如下2图

图1：X列为该项任务的行动人

图2：按优先级别显示的当日任务

在实际工作中，除了安排和完成设计工作之外，还有许多汇报材料，根据汇报主题，设计阶段和接受汇报的对象分析，汇总如下

在实践中大概率情况是临到了汇报材料上报时间了搜肠刮肚地凑，为了汇报而汇报，因此有必要基于任务清单，自动生成所需的汇报材料，本文以本专业周计划表CAU805为例进行。

该汇报表每周填报一次，首先对上周任务进行关闭，未完成任务延续到下一周，依次类推

因此，基于任务清单里面的计划完成时间，完成情况和实际完成时间，以及汇报表里面的本周起始时间和本周终止时间，很容易得出若干种组合

组合1：计划时间在本周内，已完成，

组合2：计划时间在本周内，未完成，

组合3：实际时间小于计划实际，提前完成

组合4：计划时间在本周起始之前，超期未完成

特别地，对于超期已完成的任务，会在计划所在周和完成所在周重复出现，完成闭环。

使用时，只需要在任务清单表格中最右侧填写1，表示列入汇报材料，然后在CAU805点击对应按钮即可。

源文件分享如下

https://cloud.189.cn/t/BZnUz2QVrmA3

https://www.aliyundrive.com/s/wPbjpPuCZ3P

https://pan.baidu.com/s/177wHTQ16WsHFqqCWMJr9pg

提取码：he9p

https://caiyun.139.com/m/i?015CHJEXKFq0T

提取码:vTq4"

PS新建代码如下：

If MYrng = "A-分割" And Cells(MYrng.Row, [CAU805.总数].Column) <> 0 Then

MY_st = Cells(MYrng.Row, [CAU805.起点日].Column)

MY_ed = Cells(MYrng.Row, [CAU805.终点日].Column)

MY_new = Cells(MYrng.Row, [CAU805.新增].Column)

MY_latbutok = Cells(MYrng.Row, [CAU805.补充].Column)

MY_old = Cells(MYrng.Row, [CAU805.遗留].Column)

MY_before = Cells(MYrng.Row, [CAU805.提前].Column)

i = 0

If MY_before > 0 Then

For Each TTT In [CAM101.ToCAU805]

If TTT = 1 And TTT.Offset(0, [CAM101.状态].Column – TTT.Column) = "04-确认" And TTT.Offset(0, [CAM101.计划日期].Column – TTT.Column) > MY_st And TTT.Offset(0, [CAM101.实际日期].Column – TTT.Column) >= MY_st And TTT.Offset(0, [CAM101.实际日期].Column – TTT.Column) <= MY_ed Then

i = i + 1

Temp_topic = TTT.Offset(0, [CAM101.主题].Column – TTT.Column)

Temp_TimePlan = TTT.Offset(0, [CAM101.计划日期].Column – TTT.Column)

Temp_TimeREAL = TTT.Offset(0, [CAM101.实际日期].Column – TTT.Column)

Temp_person = TTT.Offset(0, [CAM101.划分4].Column – TTT.Column)

Cells(MYrng.Row + i, 2) = Temp_topic

Cells(MYrng.Row + i, 3) = "已完成|提前" & CDate(Temp_TimePlan) – CDate(Temp_TimeREAL) & "天" '& "计划时间：" & Temp_TimePlan & "实际时间：" & Temp_TimeREAL & "提前："

Cells(MYrng.Row + i, 4) = Temp_person

End If

Next

End If

If MY_latbutok > 0 Then

For Each TTT In [CAM101.ToCAU805]

If TTT = 1 And TTT.Offset(0, [CAM101.状态].Column – TTT.Column) = "04-确认" And TTT.Offset(0, [CAM101.计划日期].Column – TTT.Column) < MY_st And TTT.Offset(0, [CAM101.实际日期].Column – TTT.Column) >= MY_st And TTT.Offset(0, [CAM101.实际日期].Column – TTT.Column) <= MY_ed Then

i = i + 1

Temp_topic = TTT.Offset(0, [CAM101.主题].Column – TTT.Column)

Temp_TimePlan = TTT.Offset(0, [CAM101.计划日期].Column – TTT.Column)

Temp_TimeREAL = TTT.Offset(0, [CAM101.实际日期].Column – TTT.Column)

Temp_person = TTT.Offset(0, [CAM101.划分4].Column – TTT.Column)

Cells(MYrng.Row + i, 2) = Temp_topic

Cells(MYrng.Row + i, 3) = "已完成|超期" & CDate(Temp_TimeREAL) – CDate(Temp_TimePlan) & "天" '"计划：" & Temp_TimePlan & "实际：" & Temp_TimeREAL &

Cells(MYrng.Row + i, 4) = Temp_person

End If

Next

End If

If MY_old > 0 Then

For Each TTT In [CAM101.ToCAU805]

If TTT = 1 And TTT.Offset(0, [CAM101.状态].Column – TTT.Column) <> "04-确认" And TTT.Offset(0, [CAM101.计划日期].Column – TTT.Column) < MY_st Then

i = i + 1

Temp_topic = TTT.Offset(0, [CAM101.主题].Column – TTT.Column)

Temp_TimePlan = TTT.Offset(0, [CAM101.计划日期].Column – TTT.Column)

Temp_TimeREAL = TTT.Offset(0, [CAM101.实际日期].Column – TTT.Column)

Temp_person = TTT.Offset(0, [CAM101.划分4].Column – TTT.Column)

Cells(MYrng.Row + i, 2) = Temp_topic

Cells(MYrng.Row + i, 3) = "未完成|超期" & CDate(MY_ed) – CDate(Temp_TimePlan) & "天"

Cells(MYrng.Row + i, 4) = Temp_person

End If

Next

End If

If MY_new > 0 Then

For Each TTT In [CAM101.ToCAU805]

If TTT = 1 And TTT.Offset(0, [CAM101.计划日期].Column – TTT.Column) >= MY_st And TTT.Offset(0, [CAM101.计划日期].Column – TTT.Column) <= MY_ed Then

i = i + 1

Temp_topic = TTT.Offset(0, [CAM101.主题].Column – TTT.Column)

Temp_TimePlan = TTT.Offset(0, [CAM101.计划日期].Column – TTT.Column)

Temp_TimeREAL = TTT.Offset(0, [CAM101.实际日期].Column – TTT.Column)

Temp_person = TTT.Offset(0, [CAM101.划分4].Column – TTT.Column)

Cells(MYrng.Row + i, 2) = Temp_topic

If TTT.Offset(0, [CAM101.状态].Column – TTT.Column) = "04-确认" Then

If TTT.Offset(0, [CAM101.实际日期].Column – TTT.Column) <= MY_ed Then

Cells(MYrng.Row + i, 3) = "按期完成-实际日期：" & Temp_TimeREAL

Else

Cells(MYrng.Row + i, 3) = "延期完成-实际日期：" & Temp_TimeREAL

End If

Else

Cells(MYrng.Row + i, 3) = "本周未完-计划日期：" & Temp_TimePlan

End If

Cells(MYrng.Row + i, 4) = Temp_person

End If

Next

End If

End If

............试读结束............

查阅全文加微信：3231169

如来写作网：gw.rulaixiezuo.com（可搜索其他更多资料）