Excel 欄位 (數值>0 顯示紅色字體 ; 數值小於零 顯示綠色字體)
- 帖子
- 43
- 主題
- 3
- 精華
- 0
- 積分
- 66
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 2003
- 閱讀權限
- 20
- 註冊時間
- 2011-7-4
- 最後登錄
- 2012-3-7
|
Excel 欄位 (數值>0 顯示紅色字體 ; 數值小於零 顯示綠色字體)
各位大大先進好
小弟有一Excel 欄位問題想請教
如附件圖檔,小弟想讓該股漲跌幅
若漲幅數值>0 數值自動以"紅色字體"顯示
若漲幅數值<0 數值自動以"綠色字體"顯示
不曉得這要對欄位作怎樣的變更
或怎樣作?
謝謝您
大感恩 Orz |
-
-
ask G大.jpg
(63.09 KB)
|
|
|
|
|
|
- 帖子
- 967
- 主題
- 0
- 精華
- 0
- 積分
- 1001
- 點名
- 0
- 作業系統
- WIN XP
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-11-29
- 最後登錄
- 2022-5-17
 
|
2#
發表於 2011-11-13 23:23
| 只看該作者
|
|
|
|
|
|
- 帖子
- 43
- 主題
- 3
- 精華
- 0
- 積分
- 66
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 2003
- 閱讀權限
- 20
- 註冊時間
- 2011-7-4
- 最後登錄
- 2012-3-7
|
4#
發表於 2011-11-14 00:13
| 只看該作者
Hsieh大大您好 Orz
小弟已尊照您指示於自訂處修改
真的非常謝謝您神人級的指示 Orz
小弟另想請教
如附圖,
(1)在D欄裡,數值為負-->以綠色字體表示,
因為白底瑩光綠字體似乎不明顯辨別,
請問是否有方法可將"瑩光綠字體" 變更為"墨綠色字體"or其他較暗的綠色
(2)小弟在C欄加註正三角型(數值>0時)與倒三角型(數值<0時)
請問我要如何使之正三角型時顯示紅色, 倒三角型時顯示綠色
(3) 若該股漲幅為正, 則該股名以紅色底顯示, 且該股名以紅色字體顯示,
這用自訂有辦法嗎??
真的非常感謝您
感恩 Orz
也感謝register313大大的回覆 謝謝您 Orz |
|
|
|
|
|
|
- 帖子
- 43
- 主題
- 3
- 精華
- 0
- 積分
- 66
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 2003
- 閱讀權限
- 20
- 註冊時間
- 2011-7-4
- 最後登錄
- 2012-3-7
|
6#
發表於 2011-11-14 22:10
| 只看該作者
G Sir您好 Orz
感謝您神人級提攜指引
已尊照您指示解決問題
由於我excel是2010
介面上不同,遍尋一翻找著
再依您所教的動作
很神!!!(如附圖)
小弟我稍微try不同的
竟然連字母(股名)也可跟著數字(漲跌幅)變紅變綠
您真是太神了 Orz Orz
真的感謝您大力幫忙,
太感謝了
真的是大感恩 Orz Orz
感謝!!感謝!!! |
|
|
|
|
|
|
暱稱: 隨風飄蕩的羽毛 頭銜: [御用]潛水艇
高中生 
- 帖子
- 852
- 主題
- 79
- 精華
- 0
- 積分
- 918
- 點名
- 0
- 作業系統
- Windows 7 , XP
- 軟體版本
- Office 2007, Office 2003,Office 2010,YoZo Office
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 宇宙
- 註冊時間
- 2011-4-8
- 最後登錄
- 2024-2-21
|
7#
發表於 2011-11-15 16:33
| 只看該作者
Sub wk()
For ee = 1 To xxx 'xxx=到數據最後一筆
If Range("b" & ee).Value > 0 Then
Range("c" & ee).Value = "▲"
Range("b" & ee, "k" & ee).Select ' "b" & ee = 開始選取 / "k" & ee = 最後選取
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
End If
If Range("b" & ee).Value < 0 Then
Range("c" & ee).Value = "▼"
Range("b" & ee, "k" & ee).Select
With Selection.Font
.Color = -11489280
.TintAndShade = 0
End With
End If
Next ee
End Sub |
|
|
|
|
|
|
- 帖子
- 43
- 主題
- 3
- 精華
- 0
- 積分
- 66
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 2003
- 閱讀權限
- 20
- 註冊時間
- 2011-7-4
- 最後登錄
- 2012-3-7
|
8#
發表於 2011-11-16 19:02
| 只看該作者
mark15大
謝謝您 Orz
您的程式碼對小弟而言
太深了:L
小弟需慢慢研究
但真的非常謝謝您 Orz
大感恩 Orz |
|
|
|
|
|
|
暱稱: 隨風飄蕩的羽毛 頭銜: [御用]潛水艇
高中生 
- 帖子
- 852
- 主題
- 79
- 精華
- 0
- 積分
- 918
- 點名
- 0
- 作業系統
- Windows 7 , XP
- 軟體版本
- Office 2007, Office 2003,Office 2010,YoZo Office
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 宇宙
- 註冊時間
- 2011-4-8
- 最後登錄
- 2024-2-21
|
9#
發表於 2011-11-17 08:12
| 只看該作者
回復 8# andylin
For ee = 1 To xxx '迴圈從1到 數據最後一筆(XXX)
Range("b" & ee, "k" & ee).Select '這行是說 從B欄位選取到K欄位- Sub wk()
- For ee = 1 To xxx 'xxx=到數據最後一筆
- If Range("b" & ee).Value > 0 Then
- Range("c" & ee).Value = "▲"
-
- Range("b" & ee, "k" & ee).Select ' "b" & ee = 開始選取 / "k" & ee = 最後選取
- With Selection.Font
- .Color = -16776961
- .TintAndShade = 0
- End With
- End If
-
- If Range("b" & ee).Value < 0 Then
- Range("c" & ee).Value = "▼"
-
- Range("b" & ee, "k" & ee).Select
- With Selection.Font
- .Color = -11489280
- .TintAndShade = 0
- End With
-
- End If
- Next ee
- End Sub
複製代碼 |
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
10#
發表於 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
複製代碼 |
|
|
|
|
|
|