標題:
[發問]
設定格式化的條件(時段區分顏色)
[打印本頁]
作者:
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/)