返回列表 上一主題 發帖

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

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 
1# 跳轉到 »
發表於 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

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 
2#
發表於 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

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 
3#
發表於 2011-11-17 09:36 | 顯示全部帖子
回復 10# GBKEE


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

另外 那個是簡易版.. 是讓新進同學比較容易看得懂(其實是我偷懶直接用錄的+.+)

TOP

        靜思自在 : 我們最大的敵人不是別人．可能是自己。
返回列表 上一主題