註冊
登錄
首頁
論壇版規
禁止列表
說明
地圖
數位書香
私人消息 (0)
公共消息 (0)
論壇任務 (0)
系統消息 (0)
好友消息 (0)
帖子消息 (0)
麻辣家族討論版版
»
Excelㄧ般區
» 設定格式化的條件(時段區分顏色)
返回列表
下一主題
上一主題
發帖
[發問]
設定格式化的條件(時段區分顏色)
cutekiss917
發短消息
加為好友
cutekiss917
當前離線
UID
3299
帖子
9
主題
2
精華
0
積分
16
金錢
16
點名
0
作業系統
WIN7
軟體版本
office2003
閱讀權限
10
性別
男
在線時間
8 小時
註冊時間
2011-1-25
最後登錄
2024-6-10
小學生
帖子
9
主題
2
精華
0
積分
16
點名
0
作業系統
WIN7
軟體版本
office2003
閱讀權限
10
性別
男
註冊時間
2011-1-25
最後登錄
2024-6-10
1
#
跳轉到
»
正序看帖
打印
字體大小:
t
T
發表於 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 輸入
感謝各位達人
收藏
分享
cutekiss917
發短消息
加為好友
cutekiss917
當前離線
UID
3299
帖子
9
主題
2
精華
0
積分
16
金錢
16
點名
0
作業系統
WIN7
軟體版本
office2003
閱讀權限
10
性別
男
在線時間
8 小時
註冊時間
2011-1-25
最後登錄
2024-6-10
小學生
帖子
9
主題
2
精華
0
積分
16
點名
0
作業系統
WIN7
軟體版本
office2003
閱讀權限
10
性別
男
註冊時間
2011-1-25
最後登錄
2024-6-10
8
#
發表於 2011-3-29 14:17
|
只看該作者
感謝大大達人幫忙研究
套用過去還要花點時間不過真的萬分感謝
謝謝各位菁英^^
TOP
chin15
發短消息
加為好友
chin15
當前離線
UID
3937
帖子
227
主題
3
精華
1
積分
273
金錢
273
點名
0
作業系統
XP
軟體版本
XP
閱讀權限
20
性別
女
在線時間
30 小時
註冊時間
2011-3-22
最後登錄
2013-1-29
中學生
帖子
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
發短消息
加為好友
cutekiss917
當前離線
UID
3299
帖子
9
主題
2
精華
0
積分
16
金錢
16
點名
0
作業系統
WIN7
軟體版本
office2003
閱讀權限
10
性別
男
在線時間
8 小時
註冊時間
2011-1-25
最後登錄
2024-6-10
小學生
帖子
9
主題
2
精華
0
積分
16
點名
0
作業系統
WIN7
軟體版本
office2003
閱讀權限
10
性別
男
註冊時間
2011-1-25
最後登錄
2024-6-10
6
#
發表於 2011-3-28 01:37
|
只看該作者
好像有點難度...當初很開心的找到設定格式化的條件以為可以不用一筆一筆改了
結果只有支援3組...噴血中>"<
VBA其實不知道怎麼寫 會改而已 改也是改看看改到可以就用@@
現在只能一筆一筆資料去改明早開會要的資料>"<
不過我還是很需要這個功能還是請個位幫忙動腦細胞了
感謝各位熱心的達人撥空回覆謝謝........
TOP
conier
發短消息
加為好友
conier
當前離線
UID
3670
帖子
24
主題
5
精華
0
積分
90
金錢
90
點名
0
作業系統
xp
軟體版本
office 2007
閱讀權限
20
性別
女
來自
keelung
在線時間
29 小時
註冊時間
2011-3-2
最後登錄
2024-9-30
中學生
帖子
24
主題
5
精華
0
積分
90
點名
0
作業系統
xp
軟體版本
office 2007
閱讀權限
20
性別
女
來自
keelung
註冊時間
2011-3-2
最後登錄
2024-9-30
5
#
發表於 2011-3-27 21:39
|
只看該作者
2007可以設到12組,
不過cutekiss917兄是2003的哩..
還有一個方法,但新增的話就要再重設定,
使用ctrl+f 尋找(如08:00~10:00),
將找到的資料全選ctrl+a,
在設定顏色就可以了
conier..在此請多指教了..^^
TOP
chin15
發短消息
加為好友
chin15
當前離線
UID
3937
帖子
227
主題
3
精華
1
積分
273
金錢
273
點名
0
作業系統
XP
軟體版本
XP
閱讀權限
20
性別
女
在線時間
30 小時
註冊時間
2011-3-22
最後登錄
2013-1-29
中學生
帖子
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
gong
發短消息
加為好友
gong
當前離線
UID
14
帖子
455
主題
8
精華
1
積分
480
金錢
480
點名
0
作業系統
WINS home
軟體版本
OFFICE XP
閱讀權限
100
性別
男
來自
平鎮
在線時間
297 小時
註冊時間
2010-5-1
最後登錄
2015-1-22
版主
帖子
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
conier
發短消息
加為好友
conier
當前離線
UID
3670
帖子
24
主題
5
精華
0
積分
90
金錢
90
點名
0
作業系統
xp
軟體版本
office 2007
閱讀權限
20
性別
女
來自
keelung
在線時間
29 小時
註冊時間
2011-3-2
最後登錄
2024-9-30
中學生
帖子
24
主題
5
精華
0
積分
90
點名
0
作業系統
xp
軟體版本
office 2007
閱讀權限
20
性別
女
來自
keelung
註冊時間
2011-3-2
最後登錄
2024-9-30
2
#
發表於 2011-3-27 20:56
|
只看該作者
下載
(141.34 KB)
2011-3-27 20:53
2003的板本好像在格式→格式化條件,
把要的資料輸入(如儲存格的值 等於 08:00~10:00)後,
再設訂格式即可
conier..在此請多指教了..^^
TOP
靜思自在 :
脾氣嘴巴不好,心地再好也不能算是好人。
返回列表
下一主題
上一主題
EXCEL專屬討論區
Excelㄧ般區
Excel程式區
進階應用專區
OFFICE 系列
Word
PowerPoint
Access
Office不分區
程式語言
VB 與 VB.Net
C 與 C#
Java 與 J#
程式設計不分區
資料庫
ORACLE
My SQL
MS SQL
網頁設計
ASP 與 ASP.NET
PHP
PHP+MySQL 入門實作
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
網頁設計不分區
電腦與作業系統
電腦各種硬體討論
一般電腦軟體討論
論壇事務
管理公告
投訴反映
新手測試
愛 ‧ 生活
公益佈告欄
生活與感動
[收藏此主題]
[關注此主題的新回復]
[通過 QQ、MSN 分享給朋友]
申請友情鏈接
Facebook粉絲