帖子: 9
主題: 2
精華: 0
積分: 16
點名: 0
作業系統: WIN7
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2011-1-25
最後登錄: 2023-8-10

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 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

中學生 Rank: 2

帖子: 20
主題: 3
精華: 0
積分: 84
點名: 0
作業系統: xp
軟體版本: office 2007
閱讀權限: 20
性別: 女
來自: keelung
註冊時間: 2011-3-2
最後登錄: 2022-1-19

2^#

發表於 2011-3-27 20:56 | 只看該作者

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

conier..在此請多指教了..^^

TOP

gong

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 455
主題: 8
精華: 1
積分: 480
點名: 0
作業系統: WINS home
軟體版本: OFFICE XP
閱讀權限: 100
性別: 男
來自: 平鎮
註冊時間: 2010-5-1
最後登錄: 2015-1-22

論壇貢獻勳章

3^#

發表於 2011-3-27 21:08 | 只看該作者

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

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

知之為知之，不知為不知，誠實也！

TOP

chin15

中學生 Rank: 2

帖子: 227
主題: 3
精華: 1
積分: 273
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-3-22
最後登錄: 2013-1-29

4^#

發表於 2011-3-27 21:28 | 只看該作者

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

TOP

conier

中學生 Rank: 2

帖子: 20
主題: 3
精華: 0
積分: 84
點名: 0
作業系統: xp
軟體版本: office 2007
閱讀權限: 20
性別: 女
來自: keelung
註冊時間: 2011-3-2
最後登錄: 2022-1-19

5^#

發表於 2011-3-27 21:39 | 只看該作者

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

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

conier..在此請多指教了..^^

TOP

cutekiss917

小學生 Rank: 1

帖子: 9
主題: 2
精華: 0
積分: 16
點名: 0
作業系統: WIN7
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2011-1-25
最後登錄: 2023-8-10

6^#

發表於 2011-3-28 01:37 | 只看該作者

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

TOP

chin15

中學生 Rank: 2

帖子: 227
主題: 3
精華: 1
積分: 273
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-3-22
最後登錄: 2013-1-29

7^#

發表於 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

1 評分人數

Hsieh: good idea金錢 + 2

TOP

cutekiss917

小學生 Rank: 1

帖子: 9
主題: 2
精華: 0
積分: 16
點名: 0
作業系統: WIN7
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2011-1-25
最後登錄: 2023-8-10

8^#

發表於 2011-3-29 14:17 | 只看該作者

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

TOP

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

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]