求助超级高人看看能解决这个问题吗

justqb · 发表于 2009-5-13 18:01

可惜我的水平还帮不上你，帮顶吧

jymao · 发表于 2009-5-13 22:16

直接给相应格子上色不是会准确很多吗?

望江婷 · 发表于 2009-5-13 22:20

谢谢，每列代表的天数不一样，把一个单元格分成几份上色恐怕很难吧

jymao · 发表于 2009-5-13 22:25

可以一格表示一天啦,2个SHEET就可以把一年表示完了.那样更合理,你觉得呢?有时候暂时无法解决的问题,要转一下弯可能就会好一点.

望江婷 · 发表于 2009-5-13 22:35

现在的代码也有按照一天生成横道的功能，一天的比较准确，可就是有了时间间隔，周期一长就不准了。原先看过狼版的一个帖子，是按一个月间隔生成横道的，很精确，就是找不到地址了，郁闷

jymao · 发表于 2009-5-13 22:46

搜索一下吧,我没有他厉害
如果你一定要那样做,可能也是可以的,只要求出几个坐标啦,用range的属性TOP,LEFT,Width,Height来计算.

看有时间和你做一下,我最近在做个软件没多少时间....

望江婷 · 发表于 2009-5-13 22:58

好的谢谢哦

jymao · 发表于 2009-5-13 23:29

日期那里能不能改的?只放到一个单元格了?

望江婷 · 发表于 2009-5-14 07:50

原帖由 jymao 于 2009-5-13 23:29 发表
日期那里能不能改的?只放到一个单元格了?

那个日期呢？

alzeng · 发表于 2009-5-14 08:36

……
Dim rng As Range, icol As Byte, id As Byte
For Each rng In Range("E4", [E65536].End(xlUp))
id = Day(rng)
If id = 31 Then id = 30
icol = Rows("2:2").Find(DateSerial(Year(rng), Month(rng), 1), , , 1).Column + Int((id - 1) / 5)
Cells(rng.Row, icol).Interior.ColorIndex = 6
Next
……

复制代码

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

[求助] 求助超级高人看看能解决这个问题吗