Denne tråd er over 6 måneder gammel
Er du sikker på, at du har noget relevant at tilføje?
excel Checkbox farve cellerAf Gæst jenspeter | 02-02-2022 19:39 | 839 visninger | 8 svar, hop til senesteJeg har lavet en checkbox, men hvordan laver så når boksen er markeret så bliver bestemte felter fyldt ud med en farve ?
--
Gæstebruger, opret dit eget login og få din egen signatur.
Først skal du linke din checkboks til en celle (oftest kan bagvedliggende celle benyttes).
Derefter skal du have sat den op til returnere SAND eller FALSK.
Her skal du bruge HVIS-funktionen.
=HVIS(A1,"Test","")
Ikke en fyldestgørende vejledning, men sidder kun med telefonen, men ud fra dette burde du kunne finde videre vejledning på nettet :-)
Når du kommer til det med farve af en eller flere celler skal du delvist have lavet lidt VBA.
--
Asus Strix B450-I Gaming, Ryzen 5600X, 1x8 GB Corsair 3000MHz LPX, Samsung 850 Evo 240GB SSD, GTX 1080 Ti Conditional formatting.
Jeg har kun lavet det i google sheets, men det burde være nogenlunde det samme i excel.
Markerer de celler du vil have til at skifte farve.
Lav conditional formatting
Indsæt custom formula
Min hedder =L2=false
Så når feltet L2 er lig med false (ikke checket), så er de markede felter én farver.
Laver en ny conditional formatting rule med de samme felter, men hvor farven er anderledes
=L2=true
Så når feltet L2 er lig med true (checket), så er de markede felter den anden farve.
--
Ryzen 7 1800X - GeForce GTX 1060 6GB - 48 gb DDR4 3200 MHz ram - ASRock AB350 Pro4 - Corsair 750W PSU
Tryk på den celle, du vil have til at skifte farve. Klik på "Conditional Formatting"/"Betinget formatering" og klik på "Manage Rules"/"Administrer regler". Klik herefter "New Rule"/"Ny regel" og vælg den nederste type af formatering. Herfra indsætter du "?=IF(CELL<>"",TRUE,FALSE)"/"?=HVIS(CELLE<>"",SAND,FALSK)", hvor CELLE refererer til din checkbox. Vælg også den farve, du vil have fremvist.
Så vil den givne celle ændre farve, når din checkbox bliver udfyldt.
EDIT: Eller gør som 3 siger. Det virker også.
--
Sidst redigeret 02-02-2022 21:25 #2+3
Jeg kan ikke rigtig få det til at virke, men det er sikkert mig som ikke gør som i skriver :)
#3´s eksempel er det sådann den er tænkt
="?HVIS(C19<$C$21:$P$26>"""",SAND,FALSK)"
C19 = checkbox
<$C$21:$P$26> = området
--
Gæstebruger, opret dit eget login og få din egen signatur. Jeg skal lige forstå, hvad du egentligt vil. Vil du have området $C$21:$P$26 til at blive farvet, hvis der står noget i C19?
I så fald, mærker området $C$21:$P$26, tryk "Betinget formatering", "Administrer regler", "Ny regel" og brug:
=HVIS($C$19<>"";SAND;FALSK)
<> betyder "Ikke lig med", og "" betyder, at der ikke er noget i en celle.
--
#5
Takker, nu kan jeg få det til at virke altså hvis jeg fjerner Checkboksen og skriver en værdi så sker ændringen, men burde det ikke også kunne virke med en checkbox ?
jeg bruger dem under
Udvikler => indsæt => ActiveX-objekter og så vælger jeg checkboksen
--
Gæstebruger, opret dit eget login og få din egen signatur. Hvis du bruger en Checkbox, så skal du til at skrive VBA kode, hvis du vil have den til at interagere med dit ark. Du kan for eksempel tilføje denne makro til din knap (på engelsk):
Sub CheckBox3_Click()
If Sheet1.Range("$C$19") = False Then
Sheet1.Range("$C$19") = "Ok"
Else
Sheet1.Range("$C$19") = ""
End If
End Sub
(Sheet1 angiver arket du arbejder i, mens CheckBox3_Click() angiver din makros navn)
Her vil cellen $C$19 blive udfyldt med "Ok", når checkboxen bliver trykket, og de resterende felter vil blive farvede via formateringsreglen fra før. Hvis du farver $C$19 hvid, så kan man kun se farverne ændre sig, når du trykker på checkboxen.
Du kunne også ændre farve direkte i VBA-koden, men så skal man til at rode med det.
En meget nemmere implementering er at fjerne checkboxen helt og i stedet bruge "Datavalidering" under "Data". Her kan du vælge, at man kun må vælge data fra en liste. Hvis listen for eksempel består af "Ok" og et tomt felt, så kan du klikke en af de muligheder af.
--
Hvis du vil gøre det hele med én makro kode, så tilføj denne til din checkbox:
Sub CheckBox4_Click()
If Sheet1.Range("$C$19") = False Then
Sheet1.Range("$C$19") = 1
With Range("$C$21:$P$26").Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Else
Sheet1.Range("$C$19") = ""
With Range("$C$21:$P$26").Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
End Sub
$C$19 er arbitrær, men hjælper med at indikere, om arealet er farvet eller ej. Gør den usynlig, eller ryk den til at ark som du ikke bruger.
--
Grundet øget spam aktivitet fra gæstebrugere, er det desværre ikke længere muligt, at oprette svar som gæst.
Hvis du ønsker at deltage i debatten, skal du oprette en brugerprofil.
Opret bruger | Login
|
Du skal være logget ind for at tilmelde dig nyhedsbrev.
Hvilken udbyder har du til internet? 231 personer har stemt - Mit energiselskab (Ewii f.eks) 11%
|