[求助] 自动绘制直线施工进度横道图?

hhkg · 发表于 2006-7-16 17:11

想用宏来实现自动绘制直线表示的工程施工进度横道图,见附件.

GM3xofei.rar (11.01 KB, 下载次数: 2255)

[此贴子已经被作者于2006-7-16 17:20:14编辑过]

northwolves · 发表于 2006-7-16 17:45

大概能满足吧:

Sub Macro2()
While ActiveSheet.Shapes.Count > 0
ActiveSheet.Shapes(1).Delete
Wend
Dim startdate As Date, enddate As Date
Dim l As Single, t As Single, r As Single
For i = 5 To 15
startdate = CDate(Replace(Split(Cells(i, 3), "-")(0), ".", "-"))
enddate = CDate(Replace(Split(Cells(i, 3), "-")(1), ".", "-"))
t = (Cells(i, 1).Top + Cells(i + 1, 1).Top) / 2
l = Cells(i, 4).Left + ((startdate - #10/1/2006#) / 30) * Cells(i, 4).Width
r = Cells(i, 4).Left + ((enddate - #10/1/2006#) / 30) * Cells(i, 4).Width
ActiveSheet.Shapes.AddLine l, t, r, t
Next
End Sub

hhkg · 发表于 2006-7-16 18:05

我捉模了几天不知如何动手,northwolves版主这么快就帮我解决了,真是高!谢谢!

hhzjxss · 发表于 2007-3-17 00:42

真高，谢谢了！

刘志文 · 发表于 2009-4-4 12:31

学习一下!!

kkandapple · 发表于 2009-9-11 08:30

提示: 该帖被管理员或版主屏蔽

kkandapple · 发表于 2009-9-11 08:57

提示: 该帖被管理员或版主屏蔽

ty1013 · 发表于 2009-9-11 11:04

要是时间段变化，变成2009年，将狼版的代码中2006改成2009怎么没有反应呢

qimei1987 · 发表于 2010-3-8 18:34

谢谢很好

消融 · 发表于 2010-6-17 01:02

瞅瞅
谢谢了

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

kkandapple kkandapple 当前离线性别保密 UID 810253 阅读权限 10 注册时间 2009-6-3 在线时间小时最后登录 1970-1-1 积分 6 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2009-9-11 08:30 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 该帖被管理员或版主屏蔽

	回复举报

kkandapple kkandapple 当前离线性别保密 UID 810253 阅读权限 10 注册时间 2009-6-3 在线时间小时最后登录 1970-1-1 积分 6 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2009-9-11 08:57 \| 显示全部楼层 [广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★ 提示: 该帖被管理员或版主屏蔽

	回复举报