作者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