Excel 欄位 (數值>0 顯示紅色字體 ; 數值小於零顯示綠色字體) - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » Excel 欄位 (數值>0 顯示紅色字體 ; 數值小於零顯示綠色字體)

返回列表下一主題上一主題發帖

Excel 欄位 (數值>0 顯示紅色字體 ; 數值小於零顯示綠色字體)

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2011-11-14 08:14 | 顯示全部帖子

本帖最後由 GBKEE 於 2011-11-14 08:27 編輯

回復 4# andylin
設定格式化條件可指定字型 + 外框+ 圖樣
2003 可設3個條件
如圖

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-11-17 08:51 | 顯示全部帖子

回復 9# mark15jill
簡化一下

Option Explicit
Sub wk()
Dim E As Range, S As String, C As Long
For Each E In Range("C1", Range("C1").End(xlDown))
If E > 0 Then
S = "▲": C = 3 '-> -16776961
ElseIf E < 0 Then
S = "▼": C = 14 '-> -11489280
Else
S = "": C = 0
End If
E.Offset(, 1) = S
With Range(E, "k" & E.Row).Font 'With Range(E, Cells(E.Row, "k")).Font
.ColorIndex = C
'.Color = C
'.TintAndShade = 0
End With
Next
End Sub

複製代碼

靜思自在 : 能善用時間的人，必能掌握自己努力的方向。

返回列表下一主題上一主題