Board logo

標題: Excel 欄位 (數值>0 顯示紅色字體 ; 數值小於零 顯示綠色字體) [打印本頁]
作者: andylin    時間: 2011-11-13 23:16     標題: Excel 欄位 (數值>0 顯示紅色字體 ; 數值小於零 顯示綠色字體)

各位大大先進好

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

謝謝您
大感恩 Orz
作者: register313    時間: 2011-11-13 23:23

方法1:設定格式化條件
方法2:儲存格自訂格式
作者: Hsieh    時間: 2011-11-13 23:27

回復 1# andylin


    [attach]8527[/attach]
作者: andylin    時間: 2011-11-14 00:13

Hsieh大大您好 Orz
小弟已尊照您指示於自訂處修改
真的非常謝謝您神人級的指示 Orz

小弟另想請教
如附圖,
(1)在D欄裡,數值為負-->以綠色字體表示,
因為白底瑩光綠字體似乎不明顯辨別,
請問是否有方法可將"瑩光綠字體" 變更為"墨綠色字體"or其他較暗的綠色

(2)小弟在C欄加註正三角型(數值>0時)與倒三角型(數值<0時)
請問我要如何使之正三角型時顯示紅色, 倒三角型時顯示綠色

(3) 若該股漲幅為正, 則該股名以紅色底顯示, 且該股名以紅色字體顯示,
這用自訂有辦法嗎??

真的非常感謝您
感恩 Orz

也感謝register313大大的回覆 謝謝您 Orz
作者: GBKEE    時間: 2011-11-14 08:14

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

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

[attach]8531[/attach]

  
[attach]8530[/attach]

[attach]8532[/attach]
作者: andylin    時間: 2011-11-14 22:10

G Sir您好 Orz

感謝您神人級提攜指引
已尊照您指示解決問題
由於我excel是2010
介面上不同,遍尋一翻找著
再依您所教的動作
很神!!!(如附圖)
小弟我稍微try不同的
竟然連字母(股名)也可跟著數字(漲跌幅)變紅變綠
您真是太神了 Orz Orz
真的感謝您大力幫忙,
太感謝了
真的是大感恩 Orz Orz
感謝!!感謝!!!
作者: mark15jill    時間: 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
作者: andylin    時間: 2011-11-16 19:02

mark15大
謝謝您 Orz
您的程式碼對小弟而言
太深了:L
小弟需慢慢研究
但真的非常謝謝您 Orz
大感恩 Orz
作者: mark15jill    時間: 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
複製代碼
作者: GBKEE    時間: 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
複製代碼
作者: mark15jill    時間: 2011-11-17 09:36

回復 10# GBKEE


    G大 謝謝了..
因原本是要弄成 隨時變動的(就是 SHEET內 只要輸入 就會立即變動)
可是後來試驗了 只好把它弄成巨集...

另外 那個是簡易版.. 是讓新進同學比較容易看得懂(其實是我偷懶直接用錄的+.+)
作者: oobird    時間: 2011-11-17 09:42

本帖最後由 oobird 於 2011-11-17 09:44 編輯
  1. Sub yy()
  2. n = [c65536].End(3).Row
  3. Range([d1], "d" & n) = Range([c1], "c" & n).Value
  4. Range([c1], "c" & n).NumberFormatLocal = "[紅色]G/通用格式;[綠色]-G/通用格式;G/通用格式"
  5. Range([d1], "d" & n).NumberFormatLocal = "[紅色][>0]""▲"";[綠色][<0]""▼"";"
  6. End Sub
複製代碼
[attach]8564[/attach]
作者: andylin    時間: 2011-11-17 22:59

Hsieh大大您好

對不起,小弟又來麻煩您
想請問您上次教的
讓儲存格裡數值負值顯示"-綠色"
數值正值顯示"紅色"
請問我想讓數值超過千位時加"逗點" (10000 --> 10,000), 以增加辨讀方便
請問在『數值』『自訂』裡小弟要怎麼寫呢??

如附件
(資料為今晚57金錢爆 阿大教的籌碼記錄)

非常謝謝您 Orz
大感恩 Orz Orz
作者: andylin    時間: 2011-11-17 23:06

G大, mark大, oobird大
謝謝大大們飛速熱心的回覆
小弟我對程式語言真的不行的
小弟還是記錄市場籌碼語言較上手

大大們灌輸的武功
小弟會慢慢消失吸收 Orz
感謝大大們的鼎力相助 Orz Orz
感謝!!感謝!!!
作者: andylin    時間: 2011-11-17 23:07

消化(失x)吸收
鍵盤按錯, 拍謝 Orz
作者: Hsieh    時間: 2011-11-17 23:15

回復 13# andylin

[attach]8572[/attach]
作者: andylin    時間: 2011-11-17 23:57

Hsieh大大謝謝您 Orz
已更改完畢
okay了
感謝您的飛速回覆與熱心提攜教導
真的大感恩 Orz

也感謝 G Sir, mark大, oo大的熱心回覆
感謝感謝! Orz
作者: andylin    時間: 2011-12-6 15:34

本帖最後由 andylin 於 2011-12-20 00:16 編輯

H大, G大, mark大, oobird大, 各位先進大大好 Orz

不好意思, 不才小弟又來向大大們請益
解救散戶眾生的法意群雄們分享其研究
小弟想從 證交所網頁
抓取該網頁內容

請問大大先進們,
小弟要怎麼著手,
感謝大大們:)
大感恩 Orz
作者: register313    時間: 2011-12-6 16:24

回復 18# andylin


    資料/匯入外部資料 新增web查詢
   剩下的自行操作看看
   
   有些網頁有保護 可行會抓不到資料
作者: andylin    時間: 2011-12-6 16:33

大大您好 Orz

小弟遵照大大指示
不曉得是不是該網頁有保護,
我開啟的新Excel檔沒辦法抓網頁資料
不知是我操作錯誤還是網頁鎖保護?

非常感謝您
大感恩Orz
作者: register313    時間: 2011-12-6 16:38

回復 20# andylin


    該網頁有保護機制(我試過匯入excel後資料全為空白)
   試試別的網頁
作者: andylin    時間: 2011-12-6 16:48

暈倒 Orz
我不曉得該資料除此網頁外還有那裡可找得:L
不過還是非常感謝大大 Orz



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)