Mærke hele rækken
Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=5085
Udskrevet den: 18.Okt.2024 kl. 06:54
Emne: Mærke hele rækken
Besked fra: Sejerkilde
Emne: Mærke hele rækken
Posteringsdato: 20.Maj.2024 kl. 10:42
|
Hejsa Tænke at det er lavet i en VBA kode  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 |
Svar:
Besked fra: maxzpad
Posteringsdato: 20.Maj.2024 kl. 13:01
|
Se denne fil: uploads/1747/Forum_Marker_Række.xlsm" rel="nofollow - 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").
|
Besked fra: Sejerkilde
Posteringsdato: 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 |
Besked fra: Sejerkilde
Posteringsdato: 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 |
Besked fra: maxzpad
Posteringsdato: 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).
|
Besked fra: maxzpad
Posteringsdato: 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" rel="nofollow - 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.
|
Besked fra: Sejerkilde
Posteringsdato: 21.Maj.2024 kl. 20:14
|
Mange tak   ------------- m.v.h. Sejerkilde Anvender Excel 365 DK |
Besked fra: maxzpad
Posteringsdato: 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 Men sig til hvis du får behov for hjælp.
|