excel 格式化

格式化 去$  $P"$"3   可以拉整排


=IF($F3<>"-",$P3<$F3)










Sub 高低比較()
'
' 高低比較 巨集
'
'
'Sheets("工作").Activate
'Application.Goto ActiveWorkbook.Sheets("工作")
    For i = 3 To 26
    'ActiveSheet.
        If Cells(i, 6) <> "-" Then
            If Cells(i, 3) > Cells(i, 6) Then
            'Cells(i, 3).Font.Color = RGB(0, 255, 0)
             Cells(i, 3).Interior.Color = RGB(204, 255, 204)
             End If
       
              If Cells(i, 3) < Cells(i, 6) Then
           
             Cells(i, 3).Interior.Color = RGB(255, 153, 153)
             End If
  '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       
             If Cells(i, 4) > Cells(i, 6) Then
           
             Cells(i, 4).Interior.Color = RGB(204, 255, 204)
             End If
       
              If Cells(i, 4) < Cells(i, 6) Then
          
             Cells(i, 4).Interior.Color = RGB(255, 153, 153)
             End If
   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

 
 
 
 
        End If
       
    Next