標題: [發問] 設定格式化的條件(時段區分顏色) [打印本頁]

---

作者: cutekiss917    時間: 2011-3-27 13:25     標題: 設定格式化的條件(時段區分顏色)

本帖最後由 cutekiss917 於 2011-3-27 14:51 編輯

不好意思請教各位達人幫小第一個忙
我需要將一份A1~A1000欄位打時間區分顏色
時段共分有12個
為
08:00~10:00粉紅  
10:00~12:00粉藍
12:00~13:00粉綠
13:00~14:00粉黃 ...........
時間則是使用 USERFORM1 輸入

感謝各位達人

---

作者: conier    時間: 2011-3-27 20:56

[attach]5135[/attach]
2003的板本好像在格式→格式化條件，
把要的資料輸入(如儲存格的值 等於 08:00~10:00)後,
再設訂格式即可

---

作者: gong    時間: 2011-3-27 21:08

條件要12組才可以
2003版以前僅3組差太多了
加自訂格式等再加個2組
還是不夠

樓上的不是使用2007版嗎?
你說的對用格式化條件
我等級不夠,看你的大作了

---

作者: chin15    時間: 2011-3-27 21:28

還是用vba把，寫在你的userform寫入時間的事件中
賦值時直接設定Interior.ColorIndex

---

作者: conier    時間: 2011-3-27 21:39

2007可以設到12組,
不過cutekiss917兄是2003的哩..

還有一個方法,但新增的話就要再重設定,
使用ctrl+f 尋找(如08:00~10:00),
將找到的資料全選ctrl+a,
在設定顏色就可以了

---

作者: cutekiss917    時間: 2011-3-28 01:37

好像有點難度...當初很開心的找到設定格式化的條件以為可以不用一筆一筆改了
結果只有支援3組...噴血中>"<
VBA其實不知道怎麼寫 會改而已 改也是改看看改到可以就用@@
現在只能一筆一筆資料去改明早開會要的資料>"<
不過我還是很需要這個功能還是請個位幫忙動腦細胞了
感謝各位熱心的達人撥空回覆謝謝........

---

作者: chin15    時間: 2011-3-28 09:15

試試這樣吧
Sub coldx()
Dim c As Range, t%
For Each c In [a:a].SpecialCells(2)
t = Hour(c) \ 2
c.Interior.ColorIndex = Application.VLookup(t, [{0,3;1,4;2,5;3,6;4,7;5,8;6,9;7,10;8,11;9,12;10,13;11,14}], 2)
Next
End Sub

---

作者: cutekiss917    時間: 2011-3-29 14:17

感謝大大達人幫忙研究
套用過去還要花點時間不過真的萬分感謝
謝謝各位菁英^^

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)