Re: [算表] VBA上颜色请益

楼主: johnny1215 (阿哲)   2019-09-18 01:47:57
※ 引述《johnny1215 (阿哲)》之铭言:
: 软件: office
: 版本: 2007
: 请教,有 A/B/C 三个东西,by 每天日期可能会有出现错误的次数 (横轴)
: 要怎么把连续出现 >= 三天的储存格上红色,只有两天的上黄色,只有一天就不用上色
: (如下图)
: 谢谢!
: https://imgur.com/5Y8rWhM
update:
程式码会卡住,需要大大解惑...试了好久...><
https://imgur.com/J6Kmr5h
卡在这...
https://imgur.com/BeN94VV
作者: newacc (XD)   2019-09-18 02:50:00
& ":" &改成,试试https://i.imgur.com/nSGnPrt.png对不起,想了一下excel End的选取方式,还是会需要Count或Counta来确认是不是空白不过如果资料长这样[ ][1][ ][ ][2],程式会把1到2包含中间的空格都上黄色,所以可能除了Count公式确认资料数外,还需要用Range.Count来确认格子数,避免误上色https://i.imgur.com/VbPk8C3.png
楼主: johnny1215 (阿哲)   2019-09-18 23:48:00
谢谢new大大,只是如果我的范围向右 向下不固定是在第三行的地方改吗?https://imgur.com/piymcMJ若我的最右边那栏为grant ttl 要怎么滤掉那栏 让他不变色
作者: newacc (XD)   2019-09-19 12:38:00
楼主: johnny1215 (阿哲)   2019-09-19 22:55:00
作者: newacc (XD)   2019-09-20 00:51:00
比较符合程式逻辑的做法是多加一个判断,如果End(xlToLeft)超过资料范围则以资料最后一格取代掉End()阿偷懒有就好的做法是程式跑完之后把最后不想上色的那栏改回白色或无填满...啊抱歉上面那个应该是End(xlToRight)
楼主: johnny1215 (阿哲)   2019-09-21 02:10:00
请问要加在哪一行?http://i.imgur.com/HBKARBV.jpg我用偷懒的方式 但发现最后有连续两天的会亮红色(应黄色

Links booklink

Contact Us: admin [ a t ] ucptt.com