如何制作项目进度计划表,甘特图显示,看完这些,一目了然(项目进度计划甘特图怎么画)

进度管理是项目管理过程的一个普通应用,很好掌握进度状况,可以对整个项目发展有一个全面掌握,对于任何事情的发展,都要有一个全面了解,特别是很重要的事情。

如何制作项目进度计划表,甘特图显示,看完这些,一目了然(项目进度计划甘特图怎么画)

任何项目首先有个计划,然后做出方案,接着就是进入施工和实施阶段,作为高层,并不需要了解所有的细节部分,但是清楚地知道项目进行到哪一个阶段是必要的一个方面。

如果对进度没有很好掌握,那么一些后续工作可能会受阻,进而影响整个过程顺利进行,最终会导致失败或者经济损失。相信这些结果,没人喜欢看到。

本节介绍一下,关于如何利用Excel VBA制作进度表。

如何制作项目进度计划表,甘特图显示,看完这些,一目了然(项目进度计划甘特图怎么画)

其实,重点内容并不是如何用代码实现的细节,重点是要对整个表是怎样形成的,有一个详细理解,然后结合自己的需求,完成符合自己的进度表,这就是一个很好学习过程。

上图为整个工作表的结果,表的前半部分为进度项目内容,后半部分为图形化显示的进度结果。

本进度表以月为单位,如果实现跨月进度管理,那么就变更表结构,所以,进度管理也不是一个固定的模式,如果是以年或十年为单位,就另一说了。

下图为添加进度对话框,为了输入方便,直接做了窗体录入功能,免得在工作表中出现错误。

如何制作项目进度计划表,甘特图显示,看完这些,一目了然(项目进度计划甘特图怎么画)

窗体很简单,但背后的代码并不简单,文章后面会附一些代码,以供学习参考。

整个工作表实现过程就是从这里开始,只要录入相应项目内容,会自动添加到工作表中,并进行时间计算和图形化表现,不需要人为干预。

要做的就是对图表进行分析即可。

如何制作项目进度计划表,甘特图显示,看完这些,一目了然(项目进度计划甘特图怎么画)

添加按钮代码

Private Sub CommandButton1_Click()Dim xobj As Object, i As IntegerReDim uArr(0 To UBound(xArr))For Each xobj In Me.Controls If TypeName(xobj) = "TextBox" Then If VBA.Len(VBA.Trim(xobj.Value)) = 0 Then Exit Sub For i = 0 To UBound(xArr) If xobj.Name = xArr(i) Then If i = 4 Or i = 5 Or i = 6 Or i = 7 Then If Not VBA.IsDate(xobj.Value) Then Exit Sub End If uArr(i) = xobj.Value Exit For End If Next i End IfNext xobjSet xobj = NothinguArr(0) = "=ROW()/2-1"AddSheetRange uArr '添加内容AddNewSheet uArr '添加记录表End Sub

数组代码

Private Sub getXarr() 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 IntegerSet s = ActiveSheetSet cell = s.Range("B4:AN5")cell.Insert shift:=xlDownWith cell .ClearFormats With .Font .Size = 10 .Name = "仿宋" End With For ic = 1 To 4 cell.Cells(1, ic).Value = uArr(ic - 1) s.Range(cell.Cells(1, ic), cell.Cells(2, ic)).Merge Next ic .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)) 8 st2 = VBA.Day(uArr(5)) 8 xt1 = VBA.Day(uArr(6)) 8 xt2 = VBA.Day(uArr(7)) 8 s.Range(cell.Cells(1, st1), cell.Cells(1, st2)).Style = "S1" s.Range(cell.Cells(2, xt1), cell.Cells(2, xt2)).Style = "S2" ix = Application.WorksheetFunction.CountA(s.Range("B:B")) - 2End WithEnd Sub

甘特图形的绘制是对表格样式的一个赋值,本示例中样式名为"S1"和"S2"。

一代码是对样式进行设置的,有判断样式是否存在、添加等一些操作。

欢迎关注、收藏

—END—

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

(0)
上一篇 2022年9月5日 上午9:59
下一篇 2022年9月6日 上午9:41

相关推荐

  • 如何找到合适的第三方进行软件定制(如何找到合适的第三方进行软件定制服务)

    在寻找软件开发定制公司或个体时,以下要点是需要特别关注的: 一、专业实力 一家公司或个体的专业实力是至关重要的。这包括了他们的经验、技术能力和成功案例。你需要评估他们的经验是否丰富…

    科研百科 2024年8月7日
    45
  • 拟开展重点科研项目情况

    拟开展重点科研项目情况 近年来,随着科技的不断发展,许多领域都面临着新的机遇和挑战。其中,科学研究领域也不例外。为了推动科学研究的发展,我国政府近年来加强了对科学研究的投入,并开展…

    科研百科 2025年3月22日
    0
  • 科研项目预算调申请书

    科研项目预算调申请书 尊敬的评审专家: 我谨向贵评审机构提交本次科研项目预算调申请书,以期得到您的审查和批准。 本次科研项目预算调申请书的具体情况如下: 项目名称:XXX 项目类别…

    科研百科 2025年5月29日
    1
  • 施工进度计划软件免费下载

    施工进度计划软件免费下载 随着建筑行业的不断发展,施工进度计划软件已经成为了施工过程中必不可少的工具。施工进度计划软件能够帮助建筑团队更好地管理施工项目,提高施工效率,减少施工成本…

    科研百科 2024年8月14日
    53
  • 海南启动2024年科技特派员项目申报 助力市县特色产业发展(海南省科技特派员)

    新海南客户端、南海网5月15日消息(记者 陈婧)记者从海南省科学技术厅获悉,5月 15日,海南省正式启动2024年海南省科技特派员项目申报工作,旨在推动科技人才深入基层,助力市县特…

    科研百科 2024年6月20日
    78
  • 民营科研项目申请流程

    民营科研项目申请流程 近年来,随着科技的不断发展,民营科研项目申请也变得越来越普遍。民营科研项目申请流程是怎样的呢?下面,我们来一起了解一下。 一、项目申请 1. 项目申请单位需要…

    科研百科 2025年3月13日
    0
  • 什么是bm科研项目

    bm科研项目: 引领人工智能新时代的研究项目 随着人工智能技术的不断发展,越来越多的公司和个人开始关注和研究这个项目。bm科研项目是由清华大学计算机系教授唐杰率领团队发起的,旨在通…

    科研百科 2025年2月24日
    1
  • 外贸利器:推荐几款高效的外贸管理软件(好用的外贸管理软件)

    在外贸电商行业中,邮件营销是非常重要的一种营销方式之一。除了性价比高,他还能对目标客户进行精准营销。但是,对于刚开始做的公司来讲,不注意方法和细节也难收获到理想的营销效果。 一、问…

    科研百科 2024年7月18日
    45
  • 科研项目平台负责人是谁

    科研项目平台负责人是谁,是一个至关重要的问题。负责人是项目平台的核心人物,负责管理项目的进度,预算,质量和安全。如果负责人没有合适的技能和经验,可能会导致项目失败,浪费资源和时间,…

    科研百科 2025年5月13日
    1
  • 项目管理系统的营销推广

    项目管理系统的营销推广 随着现代商业的快速发展,企业需要高效、准确的项目管理已经成为了一个必须面对的问题。而传统的手动管理方式已经无法满足现代企业的需求,因此,一套现代化的项目管理…

    科研百科 2025年1月13日
    0