Avatar billede jct Nybegynder
06. august 2004 - 15:59 Der er 4 kommentarer og
2 løsninger

Betingede farvekoder i Excel

Jeg har på eksperten set nedenståen løsning fra dig på et problem vedr. farvestyring i excel, og det virker perfekt, Men! mit problem er at jeg har et større regneark hvor cellerne (b4:b28) skal ændre farve hvis værdien i cellen er =b3 og dette gælder så tilsvarende for 40 andre kolonner.
Har nogen en løsning på dette?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("b4").Value = Range("b3") Then Range("b4").Interior.ColorIndex = 36
End Sub
Avatar billede sjap Praktikant
06. august 2004 - 16:02 #1
Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("b4").Value = Range("b3") Then Range("b4:b28").Interior.ColorIndex = 36
End Sub
Avatar billede sjap Praktikant
06. august 2004 - 16:15 #2
Ved nærmere gennemlæsning af dit spørgsmål, er jeg kommet frem til at ovenstående muligvis var lidt lidt for hurtigt. Prøv i stedet med nedenstående:

Private Sub Worksheet_Change(ByVal Target As Range)
For i = 4 To 28
    If Range("b4").Value = Range("b" & i) Then Range("b" & i).Interior.ColorIndex = 36
Next i
End Sub
Avatar billede jct Nybegynder
06. august 2004 - 16:19 #3
Virker desværre ikke helt efter hensigten, denne løsning ændrer farver på alle cellerne i ranget men skal kun ændre farve i den celle der lever op til kriteriet, derudover virker den kun i celle (b4), det var meningen at den skal virke i hele ranget.
Det vi sige, uanset hvilken celle jeg står i i range(b4:b28) og indtaster en værdi magen til værdien i celle (b3) så ændrer cellen farve, og kun de celler der er =b3.
Avatar billede sjap Praktikant
06. august 2004 - 16:21 #4
Jamen så er det jo fordi jeg lige lavede en mindre fejl. Prøv med:

For i = 4 To 28
    If Range("b3").Value = Range("b" & i) Then Range("b" & i).Interior.ColorIndex = 36
Next i
Avatar billede jct Nybegynder
06. august 2004 - 16:29 #5
Så virker det

Tak for hjælpen
Avatar billede sjap Praktikant
06. august 2004 - 16:30 #6
:0)
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
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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