• 首页
  • 关于亿兆体育
  • 业务范围
  • 最新动态
  • 联系我们
  • 你的位置:亿兆体育 > 关于亿兆体育 > 王佩丰Excel24讲_第22讲:制作甘特图与动态甘特图

    王佩丰Excel24讲_第22讲:制作甘特图与动态甘特图

    发布日期:2024-07-22 02:01    点击次数:147

    文章目录

    一、制作甘特图

    1.制作普通甘特图

    2.制作动态甘特图

    系列文章目录

    一、制作甘特图1.制作普通甘特图目标图表如下:

    图片

    具体步骤如下:

    选中数据,点击“插入-条形图-堆积条形图”

    图片

    选中图表区域,点击“图表工具-更改颜色-选择紫色”

    图片

    图片

    对比原图,不难发现,实际上只有浅紫色的部分是我们需要的;所以选中图表区域中深紫色的条形图,右键设置“数据系列格式”,将填充改为“无填充”,线条改为“无线条”,阴影改为“无阴影”

    图片

    图片

    图片

    图片

    根据原图可知,甘特图要实现左右顶格,这需要修改刻度“最大值、最小值”;由原数据可知,最小日期是2014/5/1,最大日期是2014/5/31,因为刻度“最大值、最小值”对应的是数字,因此把日期转换成数字分别是41760、41790

    图片

    选中横坐标轴,右键设置“坐标轴格式”,将坐标轴边界最小值设置为41760,最大值设置为41790

    图片

    图片

    根据原图,去掉年份,只留下月/日,右键设置“坐标轴格式”,将数字改为m/d;@格式

    图片

    去掉图例,缩小条形图之间的间距,选中条形图,右键设置“数据系列格式”,将“分类间距”改为10%

    图片

    图片

    根据原图,第一个任务在最上面,最后一个任务在最下面,如何把图表上下颠倒过来?选中纵坐标轴,右键设置“坐标轴格式”,选择“逆序类别”

    图片

    图片

    将除纵坐标外的竖线改为虚线,选中后右键设置“网格线格式” ,将“短划线类型”改为虚线

    图片

    图片

    最后加上标题

    图片

    2.制作动态甘特图目标图表如下:

    图片

    图片

    即通过当前日期的变化,任务完成情况跟着变化具体步骤如下:

    (1)“插入-窗体-滚动条”,设置“滚动条”的控件格式,最小值应该为41760,最小值为41790,

    图片

    图片

    图片

    (2)但是发现控件设置不能超过3000,因此可以输入0-30(因为最大最小值相差30),单元格链接为C11,此时需要修改当前日期为:today()+$C$11

    图片

    图片

    为了可以更为明显的看出“已完成天数”和“未完成天数”,这里将数据日期改为2023年8月,那么横坐标的最大最小值需要改为45139和45169,如下图:

    图片

    (1)隐藏“计划开始日”

    图片

    (2) 调整条形图左右顶格,即更改坐标轴边界最小值为 41760,最大值为41790

    图片

    图片

    (3)设置横坐标轴日期格式为“月/日”

    图片

    (4)调整条形图之间的间距 ,分类间距为10%

    图片

    图片

    (5)调整任务顺序,第一个任务放在第一位,最后一个任务放在最后一位,即将纵坐标轴位置改为“逆序类别”

    图片

    图片

    添加标题,去掉图例,调整网格线,调整颜色等

    图片

    如果当前日期<任务开始日期,那么已完成天数为0;

    如果当前日期>任务开始日期+天数=任务结果日期,那么已完成天数为“天数”;

    如果当前日期>=任务开始日期 且 当前日期<=任务结果日期,那么已完成天数为“当前日期-任务开始日期”;

    图片

    未完成天数=天数-已完成天数

    图片

    首先,根据原图可知,原数据包括三部分,全部日期(透明色)、已完成天数(蓝色)、未完成天数(红色),因此需要将天数根据“当前日期”进一步划分为“已完成天数”和“未完成天数”

    具体思路如下:

    接着选中“任务列、计划开始日、已完成、未完成”4列数据,“插入-条形图-堆积条形图”,如下图可知:蓝色代表“计划开始日”-需要隐藏、红色代表“已完成天数”、绿色代表“未完成天数”

    图片

    然后开始调整图表区域格式:

    最后添加滚动条控件:

    最后添加当前日期控件:

    (1)插入“文本框”,本来可以直接在编辑栏引用单元格B11,但是因为WPS兼容形状或者文本框引用单元格没有常规设置的入口,只能通过VBA来设置,代码如下:

    图片

    图片

    图片

    (2)点击“关闭并返回WPS表格”,并将指定宏的文本框移出图表区域,重新插入一个文本框

    图片

    图片

    (3)然后选中新插入的文本框并点击“指定宏的文本框”,发现新文本框中会显示“当前日期”;拖动滚动条,当前日期也会随之变化

    图片

    图片

    (4)再插入一个文本框,写上“当前日期”四个字,并去掉边框

    图片

    至此,目标图表已完成

    图片

    VBA代码如下:
    
    Sub kkkk()
        Selection.Formula = "=$H$4"
    End Sub
    本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请点击举报。

    相关资讯