Project软件如何在项目的总体进度中显示完成百分比的进度条呢

Question

Project软件如何在项目的总体进度中显示完成百分比的进度条呢？或者如何在project里做到像图里的这样？请大神教教 感恩

Answer 1

让阿豪来帮你解答，本回答参考chatgpt3.5编写提供，如果还有疑问可以评论或留言

要在Project软件中显示进度条，可以按照以下步骤进行操作：

1. 在任务表中，为每个任务设置完成百分比。在“任务信息”窗格中的“常规”选项卡下，输入百分比完成数。
2. 在视图菜单中，选择“Gantt图表”。在任务列表的左侧，会出现一个任务栏，表示任务的开始和结束时间。这个任务栏上会有一个点，表示任务的完成百分比。在任务栏上双击鼠标左键，就可以将任务栏转换为进度条。
3. 如果要显示总体进度的百分比，在视图菜单中选择“进度表”视图。在视图中，可以看到每个任务的完成百分比和时间进度。如果要计算总体进度的百分比，可以使用公式“完成百分比=已完成的任务数/总任务数*100%”。 以下是一个示例代码，可以计算Project软件中任务的总体完成百分比： Sub CalcProgress() Dim totalTasks As Integer Dim completeTasks As Integer Dim task As Task totalTasks = ActiveProject.Tasks.Count For Each task In ActiveProject.Tasks If task.PercentComplete > 0 Then completeTasks = completeTasks + 1 End If Next task percentComplete = completeTasks / totalTasks * 100 MsgBox "完成百分比为：" & percentComplete & "%" End Sub 这段代码会遍历所有任务，并计算已完成任务的数量。然后，它会将完成任务的数量除以总任务数，并乘以100，计算出总体完成百分比。最后，代码会在消息框中显示计算结果。