[發問] 求助 特定列格中改顏色 期均那列-5以上改黃色

pkey1999

期均那列-5以上改黃色

mistery

直接使用EXCEL內建功能 "設定格式化的條件"

c_c_lai

回復 1# pkey1999
不知你要哪一個?

1. Sub 巨集1()
   
2. '
   
3. ' 巨集1 巨集
   
4. '
   
5. 
   
6. '
   
7.     Range("E9").Select
   
8.     With Selection.Interior   '  填滿底色
   
9.         .Pattern = xlSolid
   
10.         .PatternColorIndex = xlAutomatic
    
11.         .Color = 15773696     ' 天藍色
    
12.         .TintAndShade = 0
    
13.         .PatternTintAndShade = 0
    
14.     End With
    
15. End Sub
    
16. 
    
17. Sub 巨集2()
    
18. '
    
19. ' 巨集2 巨集
    
20. '
    
21. 
    
22. '
    
23.     With Selection.Font    '  字型顏色
    
24.         .Name = "Arial"
    
25.         .FontStyle = "標準"
    
26.         .Size = 10
    
27.         .Strikethrough = False
    
28.         .Superscript = False
    
29.         .Subscript = False
    
30.         .OutlineFont = False
    
31.         .Shadow = False
    
32.         .Underline = xlUnderlineStyleNone
    
33.         .Color = 192      '  咖啡色
    
34.         .TintAndShade = 0
    
35.         .ThemeFont = xlThemeFontNone
    
36.     End With
    
37. End Sub

複製代碼

pkey1999

直接使用EXCEL內建功能 "設定格式化的條件"

  無法執行軟體

pkey1999

:'(    :'(      :'(        :'(        :'(

pkey1999

回復 3# c_c_lai

   懇求幫我把輸入程式到執行 偵測無誤可以正常使用執行
  
   我對這個一竅不通   怎麼輸入  一直偵測錯誤

c_c_lai

回復 6# pkey1999
上頭的程式碼試題共擬參考套用的，
現在我直接將它套入到程式碼內：

1. Sub 自動記錄()
   
2.     .
   
3.     .
   
4.     .
   
5. 
   
6.     If xRow < 9 Then xRow = 9
   
7.     ShtA.Range("A" & xRow & ":N" & xRow).Value = ShtA.Range("A8:N8").Value
   
8.     If ShtA.Range("C" & xRow).Value >= 5 Then
   
9.         ShtA.Range("C" & xRow).Font.Color = 255           '  紅色
   
10.     ElseIf ShtA.Range("C" & xRow).Value <= -5 Then
    
11.         ShtA.Range("C" & xRow).Font.Color = 65535         '  黃色 (字型顏色)
    
12.         '  ShtA.Range("C" & xRow).Interior.Color = 65535  '  黃色 (填滿底色)
    
13.         '  選擇你要的類型
    
14.     End If
    
15. 
    
16.     .
    
17.     .
    
18.     .
    
19. End Sub

複製代碼

准提部林

ShtA.Range("A" & xRow & ":N" & xRow).Value = ShtA.Range("A8:N8").Value
With ShtA.Range("E" & xRow)
    If .Value >= -5 Then
       .Font.ColorIndex = 3 '字體-紅色
       .Font.Bold = True    '粗體字
       .Interior.ColorIndex = 6 '底色-黃色
    Else
       .Font.ColorIndex = 5  '字體-藍色
       .Font.Bold = False    '標準
       .Interior.ColorIndex = 0 '底色-無
    End If
End With

==========================

pkey1999

我測試 看看

pkey1999

回復 7# c_c_lai

我測試 看看