返回列表 上一主題 發帖

[發問] 請教一下Excel 2003如果超過3個格式化條件是否還有辦法可以增設格式化條件？

lai123

帖子
2 
主題
1 
精華
0 
積分
53 
點名
0  
作業系統
XP 
軟體版本
SP3 
閱讀權限
20 
註冊時間
2014-4-29 
最後登錄
2021-1-7 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-5-16 00:10 | 只看該作者

[發問] 請教一下Excel 2003如果超過3個格式化條件是否還有辦法可以增設格式化條件？

公司的電腦Excel只有2003版，我想要自己印製不同顏色類別的標籤，希望利用格式化條件將每天的資料丟到Excel就能依不同類別印出相對應顏色的標籤，但是Excel 2003版的格式化條件只能設定3個，不知道在Excel 2003中有沒有什麼方式可以增加格式化條件的設定，另外我試著用尋找並取代的方式錄成巨集，取代的如果是值就可以成功，但取代的如果是公式便不行，不知道有沒有更好的方式可以使用？ Excel 2003 超過3個格式化條件.rar (11.61 KB)
收藏 分享

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
2#
發表於 2015-5-18 08:17 | 只看該作者
DEAR SIR
如下類似範例   可用VBA 處理     

Private Sub Worksheet_Change(ByVal Target As Range)
    For Each x In Range("b1:b10")
    Select Case x
    Case Is < 0: x.Interior.ColorIndex = 42: x.Font.ColorIndex = 6
    Case Is < 10: x.Interior.ColorIndex = 40: x.Font.ColorIndex = 5
    Case Is < 20: x.Interior.ColorIndex = 35: x.Font.ColorIndex = 4
    Case Is < 30: x.Interior.ColorIndex = 34: x.Font.ColorIndex = 3
    Case Is < 40: x.Interior.ColorIndex = 33: x.Font.ColorIndex = 2
    Case Is < 50: x.Interior.ColorIndex = 32: x.Font.ColorIndex = 1
    Case Is > 50: x.Interior.ColorIndex = 6: x.Font.ColorIndex = 42
   End Select
   Next
End Sub
羅

TOP

lai123

帖子
2 
主題
1 
精華
0 
積分
53 
點名
0  
作業系統
XP 
軟體版本
SP3 
閱讀權限
20 
註冊時間
2014-4-29 
最後登錄
2021-1-7 
3#
發表於 2015-5-18 10:42 | 只看該作者
回復 2# rouber590324


    我把數值改成文字也可以達到想要的功能，真是謝謝您的幫忙，檔案如附，提供參考，感恩。

Excel 2003 超過3個格式化條件.rar (12.91 KB)

TOP

        靜思自在 : 君子立恆志，小人恆立志。
返回列表 上一主題