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

hhkg

 

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

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

2006-7-16 17:20 上传

点击文件名下载附件
[求助] 自动绘制直线施工进度横道图?

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

northwolves

大概能满足吧:

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

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

hhzjxss

真高，谢谢了！

刘志文

学习一下!!

ty1013

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

qimei1987

谢谢很好

消融

瞅瞅
谢谢了