Facebook
From Buff Hummingbird, 6 Years ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 260
  1. Sub zmiana_kolorkow()
  2. If Cells(5, 1) < 0 Then
  3. Cells(5, 1).Font.ColorIndex = 10
  4. Else
  5. If Cells(5, 1) = 0 Then
  6. Cells(5, 1).Font.ColorIndex = 1
  7. Else
  8. If Cells(5, 1) > 0 Then
  9. Cells(5, 1).Font.ColorIndex = 3
  10. End If
  11. End If
  12. End If
  13. End Sub