123
返回列表 上一主題 發帖

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

andylin

帖子
43 
主題
3 
精華
0 
積分
66 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
註冊時間
2011-7-4 
最後登錄
2012-3-7 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-11-13 23:16 | 只看該作者

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

各位大大先進好

小弟有一Excel 欄位問題想請教
如附件圖檔,小弟想讓該股漲跌幅
若漲幅數值>0  數值自動以"紅色字體"顯示
若漲幅數值<0  數值自動以"綠色字體"顯示
不曉得這要對欄位作怎樣的變更
或怎樣作?

謝謝您
大感恩 Orz

ask G大.jpg (63.09 KB)

ask G大.jpg

收藏 分享

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2011-11-13 23:23 | 只看該作者
方法1:設定格式化條件
方法2:儲存格自訂格式

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
255  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-25 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2011-11-13 23:27 | 只看該作者
回復 1# andylin


   
學海無涯_不恥下問

TOP

andylin

帖子
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

for Hsieh大.jpg (173.89 KB)

for Hsieh大.jpg

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2011-11-14 08:14 | 只看該作者
本帖最後由 GBKEE 於 2011-11-14 08:27 編輯

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



  

TOP

andylin

帖子
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
感謝!!感謝!!!

for G大_2011.11.jpg (164.34 KB)

for G大_2011.11.jpg

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
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

TOP

andylin

帖子
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

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
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欄位
  1. Sub wk()
  2. For ee = 1 To xxx 'xxx=到數據最後一筆
  3.     If Range("b" & ee).Value > 0 Then
  4.         Range("c" & ee).Value = "▲"
  5.         
  6.         Range("b" & ee, "k" & ee).Select ' "b" & ee = 開始選取 / "k" & ee = 最後選取

  8.         With Selection.Font
  9.             .Color = -16776961
  10.             .TintAndShade = 0
  11.         End With

  13.     End If
  14.    
  15.     If Range("b" & ee).Value < 0 Then
  16.         Range("c" & ee).Value = "▼"
  17.         
  18.         Range("b" & ee, "k" & ee).Select

  20.             With Selection.Font
  21.                 .Color = -11489280
  22.                 .TintAndShade = 0
  23.             End With
  24.         
  25.     End If

  27. Next ee

  29. End Sub
複製代碼

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
10#
發表於 2011-11-17 08:51 | 只看該作者
回復 9# mark15jill
簡化一下
  1. Option Explicit
  2. Sub wk()
  3.     Dim E As Range, S As String, C As Long
  4.     For Each E In Range("C1", Range("C1").End(xlDown))
  5.         If E > 0 Then
  6.             S = "▲": C = 3  '-> -16776961
  7.         ElseIf E < 0 Then
  8.             S = "▼": C = 14 '-> -11489280
  9.         Else
  10.             S = "": C = 0
  11.         End If
  12.         E.Offset(, 1) = S
  13.         With Range(E, "k" & E.Row).Font  'With Range(E, Cells(E.Row, "k")).Font
  14.            .ColorIndex = C
  15.            '.Color = C
  16.            '.TintAndShade = 0
  17.         End With
  18.     Next
  19. End Sub
複製代碼

TOP

        靜思自在 : 站在半路，比走到目標更辛苦。
123
返回列表 上一主題