- 帖子
- 227
- 主題
- 3
- 精華
- 1
- 積分
- 273
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- XP
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2011-3-22
- 最後登錄
- 2013-1-29
|
試試這樣吧
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
評分人數
-
|
發表於 2011-3-27 21:28
| 