小程序开发公司 王佩丰Excel24讲_第22讲：制作甘特图与动态甘特图

发布日期：2024-08-08 11:33    点击次数：150

著述目次

一、制作甘特图小程序开发公司

1.制作世俗甘特图

2.制作动态甘特图

系列著述目次

一、制作甘特图1.制作世俗甘特图指标图表如下：

图片小程序开发公司

具体要道如下：

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

图片

app

选中图表区域，点击“图表器具-改动心扉-遴荐紫色”

图片

图片

对比原图，不难发现，骨子上惟一浅紫色的部分是咱们需要的；是以选中图表区域中深紫色的条形图，右键设置“数据系列表情”，将填充改为“无填充”，线条改为“无线条”，暗影改为“无暗影”

图片

图片

图片

图片

凭据原图可知，甘特图要终了傍边顶格，这需要修改刻度“最大值、最小值”；由原数据可知，最小日历是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杆，可是之后她再也没有丢分，抓到4只小鸟，包括五号洞，三杆洞6号铁打到2米抓到全天第一只小鸟，以及17号洞，三杆洞推入3米推杆抓到最后一只小鸟，战胜了最后一组出发的同学年、同期的两位选手：尾关彩美悠、樱井心那。

终末添加面前日历控件：

（1）插入“文本框”，正本不错径直在剪辑栏援用单位格B11，然而因为WPS兼容花式约略文本框援用单位格莫得惯例设置的进口，只可通过VBA来设置，代码如下：

图片

图片

图片

（2）点击“关闭并复返WPS表格”，并将指定宏的文本框移出图表区域，再行插入一个文本框

图片

图片

（3）然后选中新插入的文本框并点击“指定宏的文本框”，发现新文本框中会表示“面前日历”；拖动转换条，面前日历也会随之变化

图片

图片

（4）再插入一个文本框，写上“面前日历”四个字，并去掉边框

图片

至此，指标图表已完成

图片

VBA代码如下：

Sub kkkk()
    Selection.Formula = "=$H$4"
End Sub

本站仅提供存储职业，统共内容均由用户发布，如发现存害或侵权内容，请点击举报。

• 小程序开发公司
• 制作
• 特图
• 王佩丰
• Excel24