Det gælder for hele kolonne "J" i relation til kolonne "I" med undtagelse af celle 1, hvor titlen står. Det må gerne være en makro - og jeg vil gerne anvende formlen i relationer mellem andre kolonner.
Private Sub Worksheet_Change(ByVal Target As Range) If (Target.Column = 9 Or Target.Column = 10) And Target.Row > 1 Then Range("J" & Target.Row).Select If Range("I" & Target.Row) > Range("J" & Target.Row) Then gørTekstRød Else gørTekstGrøn End If End If End Sub Sub gørTekstRød() With Selection.Font .Color = -16776961 .TintAndShade = 0 End With End Sub Sub gørTekstGrøn() With Selection.Font .Color = -11489280 .TintAndShade = 0 End With End Sub
Jeg har prøvet vedlagte beskrivelse, og den virker.
Lav en hjælpekolonne, for eks. Kolonne K. I "K" indsættes formel =hvis (I2>j2;1;0)
Lav 2 betingede formatering i celle "J2"
Placer markøren i celle "J2"
Vælg "Ny regel"
Vælg "Brug en formel til at bestemme, hvilke celler der skal formateres.
Indtast formel: =K2>0
I formater vælges fyldfarve, og klik på den røde farve.
Gentag betinget formatering i celle "J2" Placer markøren i celle "J2" Vælg "Ny regel" Vælg "Brug en formel til at bestemme, hvilke celler der skal formateres
Indtast formel: =K2=0
I formater vælges fyldfarve, og klik på den grønne farve
Anvend formatpensel til at formatere alle de celler i kolonne J der er behov for.
NB! Ved anvendelse af de foreslåede former bliver cellerne grønne, hvis "I" og "J" er lige store.
Rem Version 2 Rem Forholdet melle kolonne I & J gælder nu for alle kolonner. Dim adr As String Private Sub Worksheet_Change(ByVal Target As Range) adr = Target.Address Range(adr).Select
If ActiveCell.Row > 1 And ActiveCell <> "" Then If ActiveCell.Column Mod 2 = 0 Then Rem kolonne m/lige nr If ActiveCell.Offset(0, -1) > ActiveCell Then gørTekstRød Else gørTekstGrøn End If Else Rem kolonne m/ulige nr ActiveCell.Offset(0, 1).Activate
If ActiveCell > ActiveCell.Offset(0, 1) Then gørTekstRød Else gørTekstGrøn End If End If End If End Sub Sub gørTekstRød() With Selection.Font .Color = -16776961 .TintAndShade = 0 End With End Sub Sub gørTekstGrøn() With Selection.Font .Color = -11489280 .TintAndShade = 0 End With End Sub
Jeg har ikke noget problem som du fortæller med mit eksempel. Jeg sender gerne en fil med min formatering hvis du er interesseret.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.