Forfatter |
Emne Søg Emne funktioner
|
Sejerkilde
Sølv bruger
Medlem: 10.Dec.2011
Land: DK
Status: Offline
Point: 233
|
Indlæg funktioner
Tak(0)
Citér Svar
Emne: Mærke hele rækken Sendt: 20.Maj.2024 kl. 10:42 |
Hejsa
Tænke at det er lavet i en VBA kode ![Question Question](smileys/smiley25.gif)
For nogle år siden (mindst 10 år), brugte jeg et Excel ark, i forbindelse med mit job, hvor den række, som man var i, var mærket op med en farve.
Så vidt jeg husker, så kunne man skifte farve, men hvordan det blev gjort, ved jeg ikke.
Er der en eller anden, som måske har en VBA kode til det, så vil jeg blive glad.
|
m.v.h.
Sejerkilde
Anvender Excel 365 DK
|
![Til top Til top](forum_images/back_to_top.png) |
|
|
![Til top Til top](forum_images/back_to_top.png) |
maxzpad
Guld bruger
Medlem: 04.Aug.2016
Land: Danmark
Status: Offline
Point: 698
|
Accepteret svar
Indlæg funktioner
Tak(0)
Citér Svar
Sendt: 20.Maj.2024 kl. 13:01 |
Se denne fil: uploads/1747/Forum_Marker_Række.xlsm
Jeg har valgt at løse det med betinget formatering og tre makroer:
I arket Markér_Række er der en Worksheet_SelectionChange-makro, som skriver den aktive celles rækkenummer ind i en celle i arket Vælg_farve. Denne rækkenummer-værdi anvendes i den betingede formatering til farvemarkering af hele rækken.
I arket Vælg_farve er der en Worksheet_Deactivate-makro, som trigger makroen "Makro1" i kodemodulet "Module1". "Makro1" opdaterer farvekoden for den betingede formatering, så den passer med den farve, som er valgt i celle C2 i arket Vælg_farve.
I filen er det kun de første 1.000 rækker, som er dækket af den betingede formatering, men det kan tilpasses i "Makro1" efter behov: With .Rows("1:10000") kan fx ændres til With .Rows("1:20000").
|
![Til top Til top](forum_images/back_to_top.png) |
Sejerkilde
Sølv bruger
Medlem: 10.Dec.2011
Land: DK
Status: Offline
Point: 233
|
Indlæg funktioner
Tak(0)
Citér Svar
Sendt: 20.Maj.2024 kl. 13:44 |
Det er da lige sådan det så nu, er jeg rette sikker på 👍 Mange tak for hjælpen
|
m.v.h.
Sejerkilde
Anvender Excel 365 DK
|
![Til top Til top](forum_images/back_to_top.png) |
Sejerkilde
Sølv bruger
Medlem: 10.Dec.2011
Land: DK
Status: Offline
Point: 233
|
Indlæg funktioner
Tak(0)
Citér Svar
Sendt: 20.Maj.2024 kl. 15:26 |
Lige et tillægs spørgsmål.
Kan man lave det sådan, at det gæller for 2 ark, f.eks. ark2 og ark5 ?
|
m.v.h.
Sejerkilde
Anvender Excel 365 DK
|
![Til top Til top](forum_images/back_to_top.png) |
maxzpad
Guld bruger
Medlem: 04.Aug.2016
Land: Danmark
Status: Offline
Point: 698
|
Indlæg funktioner
Tak(0)
Citér Svar
Sendt: 21.Maj.2024 kl. 08:18 |
Ja, hvis du kopierer hele den blok i "Makro1", som starter med With Ark1, og så ændrer du til With Ark2 eller With Ark5 eller hvad du har behov for.
Bemærk at Ark1 i makroen refererer til arkets kodenavn (CodeName) - ikke arkets navn på arkfanen (Markér_række).
|
![Til top Til top](forum_images/back_to_top.png) |
maxzpad
Guld bruger
Medlem: 04.Aug.2016
Land: Danmark
Status: Offline
Point: 698
|
Indlæg funktioner
Tak(1)
Citér Svar
Sendt: 21.Maj.2024 kl. 08:30 |
Der skulle lige lidt mere til - se denne fil uploads/1747/Forum_Marker_Række_2024-05-21_08-24-42.xlsm
Der skal jo holdes styr på den aktive celle i begge ark, så derfor bliver Worksheet_SelectionChange-makroerne lidt anderledes for de to ark, da de skal skrive rækkeværdi i to forskellige felter.
Måske er denne struktur med betinget formatering ikke den bedste, hvis der skal tilføjes flere ark med rækkemarkering, men jeg valgte det for at undgå at "male rækken over", hvorved evt. brugervalgt cellefarve ville gå tabt.
|
![Til top Til top](forum_images/back_to_top.png) |
Sejerkilde
Sølv bruger
Medlem: 10.Dec.2011
Land: DK
Status: Offline
Point: 233
|
Indlæg funktioner
Tak(0)
Citér Svar
Sendt: 21.Maj.2024 kl. 20:14 |
Mange tak ![Thumbs Up Thumbs Up](https://forum.excel-regneark.dk/smileys/smiley20.gif)
Nu skal jeg bare have det flyttet over i mit ark og have det til at virke ![Wink Wink](smileys/smiley2.gif)
|
m.v.h.
Sejerkilde
Anvender Excel 365 DK
|
![Til top Til top](forum_images/back_to_top.png) |
maxzpad
Guld bruger
Medlem: 04.Aug.2016
Land: Danmark
Status: Offline
Point: 698
|
Indlæg funktioner
Tak(0)
Citér Svar
Sendt: 22.Maj.2024 kl. 08:06 |
Det bør forholdsvis let kunne kopieres over fra mit eksempel, hvis sammenhængene i det, jeg har stillet op, giver mening for dig ![Smile Smile](smileys/smiley1.gif) Men sig til hvis du får behov for hjælp.
|
![Til top Til top](forum_images/back_to_top.png) |