作者johnny1215 (阿哲)
看板Office
标题Re: [算表] VBA上颜色请益
时间Wed Sep 18 01:47:57 2019
※ 引述《johnny1215 (阿哲)》之铭言:
: 软体: office
: 版本: 2007
: 请教,有 A/B/C 三个东西,by 每天日期可能会有出现错误的次数 (横轴)
: 要怎麽把连续出现 >= 三天的储存格上红色,只有两天的上黄色,只有一天就不用上色
: (如下图)
: 谢谢!
: https://imgur.com/5Y8rWhM
update:
程式码会卡住,需要大大解惑...试了好久...><
https://imgur.com/J6Kmr5h
卡在这...
https://imgur.com/BeN94VV
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 1.172.56.71 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1568742479.A.CEE.html
1F:推 newacc: & ":" &改成,试试09/18 02:50
3F:→ newacc: 对不起,想了一下excel End的选取方式,还是会需要Count或09/18 03:52
4F:→ newacc: Counta来确认是不是空白09/18 03:53
5F:→ newacc: 不过如果资料长这样[ ][1][ ][ ][2],程式会把1到2包含中09/18 03:58
6F:→ newacc: 间的空格都上黄色,所以可能除了Count公式确认资料数外,09/18 03:59
7F:→ newacc: 还需要用Range.Count来确认格子数,避免误上色09/18 04:00
9F:→ johnny1215: 谢谢new大大,只是如果我的范围向右 向下不固定09/18 23:48
10F:→ johnny1215: 是在第三行的地方改吗?09/18 23:48
12F:→ johnny1215: 若我的最右边那栏为grant ttl 要怎麽滤掉那栏 让他不09/19 12:35
13F:→ johnny1215: 变色09/19 12:35
14F:→ newacc: 对09/19 12:38
15F:→ johnny1215: 请问要如何让最後一栏不上色09/19 22:55
09/19 22:55
※ 编辑: johnny1215 (1.172.56.71 台湾), 09/19/2019 23:01:25
18F:→ newacc: 比较符合程式逻辑的做法是多加一个判断,如果End(xlToLeft 09/20 00:51
19F:→ newacc: )超过资料范围则以资料最後一格取代掉End() 09/20 00:51
20F:→ newacc: 阿偷懒有就好的做法是程式跑完之後把最後不想上色的那栏改 09/20 00:53
21F:→ newacc: 回白色或无填满... 09/20 00:53
22F:→ newacc: 啊抱歉上面那个应该是End(xlToRight) 09/20 11:10
23F:→ johnny1215: 请问要加在哪一行? 09/21 02:10
25F:→ johnny1215: 我用偷懒的方式 但发现最後有连续两天的会亮红色(应 09/21 02:20
26F:→ johnny1215: 黄色 09/21 02:20