Søg
Avatar billede qln Juniormester
11. november 2005 - 14:29 Der er 6 kommentarer og
1 løsning

VBA If sætning der farver

Jeg har en række med 3 forskellige farvekoder på skrift fx Bullet Orange 600 dpi.
Disse farvekoder vil jeg gerne have omdannet til en tilhørende farvekode fx C1=Bullet Orange 600 dpi, så skal C1 have ColorIndex = 6 (gul), og farvekodeteksten (Bullet Orange 600 dpi) skal slettes.
Jeg vil gerne lave det i en If sætning, så jeg kan køre hver celle i rækken igennem med Else If sætninger, så hver celle får en farve.
Avatar billede qln Juniormester
11. november 2005 - 14:53 #1
Beklager!!!
Det er cellen ved siden af, der skal farves.
Fx C1=Bullet Orange 600 dpi (tekst), så skal B1 farves ColorIndex = 6 (gul).
Avatar billede x-lars Novice
11. november 2005 - 15:31 #2
Brug Betinget formattering under Formater-menuen.

Vælg "Formlen er" og skriv følgende i feltet ved siden af: "=VENSTRE($C1;21)="Bullet Orange 600 dpi". Vælg hvilket format, du vil have, på knappen Format og klik OK. Tilføj yderligere betingelser, hvis cellen kan få andre værdier, som skal have deres egen farvekode.
Avatar billede x-lars Novice
11. november 2005 - 15:35 #3
I VBA:

    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=VENSTRE($C1;21)="Bullet Orange 600 dpi"
            Selection.FormatConditions(1).Interior.ColorIndex = 6
Avatar billede qln Juniormester
11. november 2005 - 15:43 #4
Jeg kan ikke bruge betinget formatering, da kolonnen med farvekoderne fx Bullet Orange 600 dpi skal slettes.
Avatar billede bak Forsker
11. november 2005 - 16:12 #5
Du kan med fordel benytte Select Case

Dim C As Range
For Each C In Selection.Cells
Select Case C
    Case "Bullet Orange 600 dpi ": C.Offset(0, -1).Interior.ColorIndex = 6
    Case "Grøn": C.Offset(0, -1).Interior.ColorIndex = 4
    Case "Blå": C.Offset(0, -1).Interior.ColorIndex = 5
    Case o.s.v.
   
    Case Else:
End Select
Avatar billede qln Juniormester
17. november 2005 - 13:56 #6
Super bak. Send et svar :-)
Avatar billede bak Forsker
18. november 2005 - 00:17 #7
ok :-)
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
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Ændre tal i en celle Af xvid i Excel 1 04/09/202616:05 04/09/202616:54
Kan Excel selv beregne alder? Af leahcim i Excel 7 31/08/202610:24 04/09/202602:08
problem med mailbesked Af Pestilensen i Excel 3 24/08/202611:16 28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel 18 17/08/202615:14 I går 22:04
Gemme største værdi Af Lemming@privat.dk i Excel 2 07/08/202622:13 08/08/202609:03
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
5 min siden Popup ved opstart Af mort1 i Windows
04/0918:50 Slet lokal konto Af ErikHg i Windows
04/0916:05 Ændre tal i en celle Af xvid i Excel
04/0913:47 Dette er ikke en kommerciel session i Windows 11 Af eksmojo i Windows
31/0810:26 Synkronisering af kalender mellem computer, android telefon og iPhone Af Strawberry i Andre onlineløsninger
White papers
Flere white papers »