当前位置:首页 > 网络技术 > 项目计划进度表怎么做(项目计划进度表制作教程)(项目进度计划表怎么写)

项目计划进度表怎么做(项目计划进度表制作教程)(项目进度计划表怎么写)

longge2022-03-24 01:51:11网络技术89

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

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

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

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

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

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

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

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

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

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

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

添加按钮代码

Private Sub CommandButton1_Click()
Dim xobj As Object, i As Integer
ReDim 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 If
Next xobj
Set xobj = Nothing
uArr(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 Integer
Dim st1 As Integer, st2 As Integer, xt1 As Integer, xt2 As Integer
Set s = ActiveSheet
Set cell = s.Range("B4:AN5")
cell.Insert shift:=xlDown
With 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")) - 2
End With
End Sub

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

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

免责声明
本站部分资源来源于互联网 如有侵权 请联系站长删除
龙哥网是优质的互联网科技创业资源_行业项目分享_网络知识引流变现方法的平台为广大网友提供学习互联网相关知识_内容变现的方法。#转载请注明出处!
  • 随机文章
  • 热门文章
  • 热评文章

“项目计划进度表怎么做(项目计划进度表制作教程)(项目进度计划表怎么写)” 的相关文章

Web-app,一款简洁高效率绿色html编辑器-安卓软件(手机版html编辑软件)

Web-app,一款简洁高效率绿色html编辑器-安卓软件(手机版html编辑软件)

Web-app,一款简洁高效绿色html编辑器,即写即保存,支持自定义符号栏,还能打包成app使用,多框架js运用,随时预览效果       app下载地址 htt...

响应式网页设计案例(响应式网页需要什么技术)(什么是响应式网页设计)

响应式网页设计案例(响应式网页需要什么技术)(什么是响应式网页设计)

  企业的响应式网站要如何设计?怎么才能让它更好的提高用户的体验度?响应式网站顾名思义就是根据不同的访问分辨率来调节自身的显示效果。它相比普通网站更加适合手机版面。毕竟手机端屏幕就那么大,用户更习惯网...

16个行业案例精彩解析实体店商业模式(龙哥网)(实体连锁店商业模式特点及其优势)

16个行业案例精彩解析实体店商业模式(龙哥网)(实体连锁店商业模式特点及其优势)

课程介绍16个行业案例精彩解析实体店商业模式,让赚钱更快、更多、更轻松! 学习地址百度:https://pan.baidu.com/s/13YIisvQc6gh8OgVpaAC0QQ天翼:h...

404 Not Found是什么?该怎么解决?

404 Not Found是什么?该怎么解决?

      一些SEO新手或其他一些对电脑技术感兴趣的小伙伴有时会遇到以下的问题,那么这到底是什么问题呢?404 Not Found是什么意思?下面我...

招行全民招财节领1~5元红包(招商银行全民招财节)

招行全民招财节领1~5元红包(招商银行全民招财节)

2月5日置顶新一期:限招商银行老用户参加 1、打开招商银行APP搜索“招财节”->进去后点右侧边->今日10:00福袋雨 2、玩游戏抽红包->另外点下面每日锦蘘->累计...

Java动态脚本Groovy_java(java动态脚本groovy)

Java动态脚本Groovy_java(java动态脚本groovy)

目录1.Groovy特性2.核心涉及3.Java与Groovy转换第一步:引入Groovy依赖第二步:创建interface接口声明方法第三步:在resources目录下创建.groovy文件第四步:...