用数据透视表制作可以计划与实际对比的甘特图（工程或项目进度管理_31楼更新）

gztraveller · 发表于 2010-10-6 09:05

本帖最后由 gztraveller 于 2013-1-14 23:24 编辑

在网上找到不少做甘特图的表格，但是能比较直观地进行计划与实际对比的似乎不是很多。我尝试着做了一个，主要特点如下：
1、       与数据透视表结合，能按不同需求从不同角度查看并生成甘特图；
2、       能够进行计划与实际的直观对比。（解决这个问题的关键是让计划时间与实际时间分成两行显示）
这个表，由于自己不是计算机专业的，对VBA不熟悉，所以从构思、尝试、查阅资料、不断修改到最后基本成型，前后花了一个多月的业余时间。
做表的过程中发现还有两个疑难点，好象在网上也很难找到非常好的解决办法，提出来请各位高手讨论一下是什么原因：
1、       包含有数据透视表的工作簿（透视表是动态的，即数据源范围用定义名称-OFFSET函数生成），如果把工作簿加密码保护（只保护结构而不保护窗口），保存后再打开，会出现“不能读取文件”、“……由于完整性问题而被放弃”，数据透视表的下拉选择功能失效，变成一个“死表”，但是，不加密码的保护则没有问题；
2、       在VBAProject工程属性当中，对工程加密，如果同时勾选了查看时锁定工程，数据透视表同样会出错，但不锁定工程则没有问题。

[ 本帖最后由 gztraveller 于 2011-1-14 00:46 编辑 ]

dul · 发表于 2010-10-6 12:00

不错，谢谢分享

kosmoos · 发表于 2010-10-6 20:42

楼主，我想问下你的数据有效性怎么设置的？我看到你引用了名称，但是我通过'插入--名称--定义'却看不到你定义的名称，想问下怎么回事，谢谢!

gztraveller · 发表于 2010-10-6 21:33

呵，论坛里众多高手写的那本书《EXCEL VBA实战技巧精粹》里的“技巧52 定义隐藏的名称”有教方法 — 加入VBA代码如下：
Sub hidname()
ThisWorkbook.Names("A").Visible = False
End Sub
其中"A"中的A就是定义的名称。

kosmoos · 发表于 2010-10-7 16:25

多谢楼主指教！

gztraveller · 发表于 2010-10-8 20:04

不知道是不是我放错版块了。

gztraveller · 发表于 2010-10-11 22:39

好希望有人回帖或解答疑惑啊。

freshfishfish · 发表于 2010-11-24 09:34

感谢分享。

gztraveller · 发表于 2011-1-4 01:22

作了一点改进：
1、增加了输入备注内容；
2、增加了日期控件来修改图表横坐标轴日期刻度；
3、加入了一个类似工作日历的表来查看任一天，任意工程在不同状态下对应的工作内容，并可筛选；
4、修改了EXCEL2007下图表坐标轴显示不清的情况，并做了个07版的。

改进的部分，自己只是有了思路，都是提出来让论坛里的高手帮忙写出代码，自己再调试实现的，学到了不少东西，非常感激！要精通EXCEL确实还有很大距离。

gztraveller · 发表于 2011-1-14 00:54

本帖最后由 gztraveller 于 2012-6-19 15:19 编辑

这次更新加了个界面，另外图表也实现了用窗体选择日期，用于更改横坐标。

[ 本帖最后由 gztraveller 于 2011-1-14 00:57 编辑 ]

		自动登录	找回密码
密码			免费注册

[原创] 用数据透视表制作可以计划与实际对比的甘特图（工程或项目进度管理_31楼更新）