返回列表 上一主題 發帖

[發問] 設定格式化的條件(時段區分顏色)

[發問] 設定格式化的條件(時段區分顏色)

本帖最後由 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 輸入

感謝各位達人

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

TOP

試試這樣吧
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
1

評分人數

TOP

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

TOP

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

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

TOP

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

TOP

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

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

TOP


2003的板本好像在格式→格式化條件,
把要的資料輸入(如儲存格的值 等於 08:00~10:00)後,
再設訂格式即可
conier..在此請多指教了..^^

TOP

        靜思自在 : 脾氣嘴巴不好,心地再好也不能算是好人。
返回列表 上一主題