作者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/m.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