mark15jill

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

mark15jill

回復 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 = 最後選取
   
7. 
   
8.         With Selection.Font
   
9.             .Color = -16776961
   
10.             .TintAndShade = 0
    
11.         End With
    
12. 
    
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
    
19. 
    
20.             With Selection.Font
    
21.                 .Color = -11489280
    
22.                 .TintAndShade = 0
    
23.             End With
    
24.         
    
25.     End If
    
26. 
    
27. Next ee
    
28. 
    
29. End Sub

複製代碼

mark15jill

回復 10# GBKEE


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

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