Avatar billede jakkeras Nybegynder
20. maj 2016 - 11:51 Der er 11 kommentarer

Farve i kolonne X betinget af værdi i forhold til kolonne Y

Hej alle

Sikkert et nemt spørgsmål for dette forum.

Jeg anvender Stata til hverdag, men har en opgave i et excelark som udfordrer mig.

Jeg vil gerne formatere værdierne i kolonne "J", hvis de er større end værdierne i kolonne "I".

Er I2 > J2 skal værdien gøres rød i kolonne J
Er I2 < J2 skal værdien gøres grøn i kolonne J

Håber I kan hjælpe - på forhånd tak.
Avatar billede supertekst Ekspert
20. maj 2016 - 14:52 #1
D.v.s. at alle rækker (måske kun fra række 2 til sidste række) skal testes for relationen mellem kolonne I & J.

Må det være en makro?
Avatar billede Mads32 Ekspert
20. maj 2016 - 22:01 #2
opgaven kan løses ved at anvende ved betinget formatering.

opstil 2 regler for  i kolonne J.
Avatar billede jakkeras Nybegynder
20. maj 2016 - 22:01 #3
@supertekst

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.

Mvh Jakob
Avatar billede jakkeras Nybegynder
20. maj 2016 - 22:03 #4
@mads32
Jeg har forsøgt med betinget formatering, men kan ikke få det til at slå igennem.
Regel "I">"J" Formatr til rød fx.

Mvh Jakob
Avatar billede jakkeras Nybegynder
20. maj 2016 - 22:06 #5
Ved ikke om det ar betydning, men data indtastes i begge kolonner manuelt løbende og skulle gerne skifte farve i "real time".
Avatar billede supertekst Ekspert
20. maj 2016 - 23:33 #6
Vender tilbage..
Avatar billede supertekst Ekspert
21. maj 2016 - 10:38 #7
En begyndelse vedr. kolonne I & J

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
Avatar billede Mads32 Ekspert
21. maj 2016 - 11:37 #8
Jeg var lidt for hurtig med mit korte svar.

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.
Avatar billede supertekst Ekspert
21. maj 2016 - 13:44 #9
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
Avatar billede jakkeras Nybegynder
23. maj 2016 - 11:18 #10
@Mads32

Det virker! ;)

Men der opstår et enkelt problem.

Når jeg har oprettet en regel for kolonne G og H (=H2>G2) er det som om den automatisk viderefører reglen til kolonne I.

Når jeg tjekker i administrer regler står området pludseligt inkl I.

Når jeg sletter det kommer den automatisk igen, når jeg indtaster data i cellen inden I.

Giver det mening?

Mvh
Avatar billede Mads32 Ekspert
24. maj 2016 - 01:07 #11
Hej jakkeras.

Det er dejligt at det virker.

Jeg har ikke noget problem som du fortæller med mit eksempel.  Jeg sender gerne en fil med min formatering hvis du er interesseret.
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester