kimbal

¦^´_ 1# ji12345678

1. Sub TEST()
   
2. 
   
3.     Dim color As Long
   
4.     Application.Calculation = xlCalculationManual
   
5.     Application.ScreenUpdating = False
   
6.    
   
7.     Sheets("Á`ªí").Copy after:=Sheets(1)
   
8.     With ActiveSheet.Range("B3")
   
9.         Range(.Address, .End(xlToRight).End(xlDown)).ClearFormats
   
10.         Range(.Address, .End(xlToRight).Offset(0, -1).End(xlDown)).Select
    
11.         Selection.Copy
    
12.         .Offset(0, 1).PasteSpecial operation:=xlPasteSpecialOperationSubtract
    
13.         
    
14.    
    
15.         For Each Rng In Range(.Offset(0, 1), .End(xlToRight).End(xlDown))
    
16.             color = 0
    
17.             If Rng.Row >= 12 And Rng.Row <= 17 Then
    
18.                 If Rng.Value > 0 Then
    
19.                     color = 15773696
    
20.                 ElseIf Rng.Value < 0 Then
    
21.                     color = 52479
    
22.                 End If
    
23.             Else
    
24.                 If Rng.Value > 0 Then
    
25.                     color = 255
    
26.                 ElseIf Rng.Value < 0 Then
    
27.                     color = 5296274
    
28.                 End If
    
29.             End If
    
30.             If color > 0 Then
    
31.                 With Rng.Interior
    
32.                     .Pattern = xlSolid
    
33.                     .PatternColorIndex = xlAutomatic
    
34.                     .color = color
    
35.                 End With
    
36.             End If
    
37.         Next
    
38.         Range(.Address, .End(xlDown)).Clear
    
39.     End With
    
40.     Application.ScreenUpdating = True
    
41.     Application.Calculation = xlCalculationAutomatic
    
42. 
    
43. End Sub

½Æ»s¥N½X