Jeg er blevet lidt rusten i Excel, så jeg har brug
Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Generelt
Forum beskrivelse: Hjælp til generel daglig brug af programmet Excel
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=2545
Udskrevet den: 04.Mar.2025 kl. 04:11
Emne: Jeg er blevet lidt rusten i Excel, så jeg har brug
Besked fra: Sejerkilde
Emne: Jeg er blevet lidt rusten i Excel, så jeg har brug
Posteringsdato: 06.Maj.2016 kl. 12:25
|
Hejsa Jeg er blevet lidt rusten i Excel, så jeg har brug for lidt
hjælp.
Hvis jeg har en tekst, som stå i E39, så skal min værdig i
H39 stå i højre side i cellen
Men hvis der er en tekst i G39, skal værdig i H39 stå i venstre
side i cellen.
Er der ingen tekst, hverken i E39 og G39, skal værdigen, stå
i midten i H39
Der kan ikke stå en tekst, i E39 og G39, på én gang.
Hvordan lave jeg lige det i Excel 365/2016 DK ?
------------- m.v.h. Sejerkilde Anvender Excel 365 DK |
Svar:
Besked fra: excelent
Posteringsdato: 07.Maj.2016 kl. 10:55
|
er der formler i E39 og G39 ? hvilken hændelse får dem til at ændre tilstand ? ------------- Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!! |
Besked fra: Sejerkilde
Posteringsdato: 07.Maj.2016 kl. 11:11
|
lige nu, bruger jeg både en henvisning til et andet ark, (f.eks. =Tider!$B$15) og jeg skriver selv i E39 eller G39, men min plan er, at der skal laves en rundliste, i E39 og G39 ------------- m.v.h. Sejerkilde Anvender Excel 365 DK |
Besked fra: excelent
Posteringsdato: 07.Maj.2016 kl. 11:28
|
Højre klik på arkfanen, vælg "Vis programkode" indsæt følgende kode der Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("E39, G39")) Is Nothing Then Exit Sub If Range("E39") <> "" Then Range("H39").HorizontalAlignment = xlRight: Exit Sub If Range("G39") <> "" Then Range("H39").HorizontalAlignment = xlLeft: Exit Sub If Range("E39") = "" And Range("G39") = "" Then Range("H39").HorizontalAlignment = xlCenter End Sub ------------- Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!! |
Besked fra: Sejerkilde
Posteringsdato: 07.Maj.2016 kl. 11:58
Super, det var da lige det der skulle til  Mere vil jo have mere. Hvis det er et område, som jeg vil have VBA til at dække, f.eks. fra E39 - E45 og fra E62 - E75 og det sammen for G Er det så ikke noget med "Range("E39:E45"):Range("E62:E75")" eller er jeg helt gal på den ? ------------- m.v.h. Sejerkilde Anvender Excel 365 DK |
Besked fra: excelent
Posteringsdato: 07.Maj.2016 kl. 13:17
|
mener du at hvis der indsættes noget fx i celle E40 el. G40 så skal H40 formateres ? ------------- Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!! |
Besked fra: excelent
Posteringsdato: 07.Maj.2016 kl. 13:18
|
osv. der ned ad ------------- Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!! |
Besked fra: Sejerkilde
Posteringsdato: 07.Maj.2016 kl. 13:34
|
Ja, lige bestemt Jeg har vel omkring 17 - 20 områder, som skal formaters, lige som de første celler ------------- m.v.h. Sejerkilde Anvender Excel 365 DK |
Besked fra: excelent
Posteringsdato: 07.Maj.2016 kl. 13:40
|
ok så prøv denne (er ikke gennemtestet) vær opmærksom på at du skal taste direkte i aktuel celle, ellers trikker koden ikke du kan altså ikke blot kopiere flere værdier ind i området Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("E39:E45,E62:E75,G39:G45,G62:G75")) Is Nothing Then Exit Sub If Cells(Target.Row, "E") <> "" Then Cells(Target.Row, "H").HorizontalAlignment = xlRight: Exit Sub If Cells(Target.Row, "G") <> "" Then Cells(Target.Row, "H").HorizontalAlignment = xlLeft: Exit Sub Cells(Target.Row, "H").HorizontalAlignment = xlCenter End Sub følgende linje skal udbygges med alle dine områder If Intersect(Target, Range("E39:E45,E62:E75,G39:G45,G62:G75")) Is Nothing Then Exit Sub ------------- Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!! |
Besked fra: Sejerkilde
Posteringsdato: 07.Maj.2016 kl. 13:43
|
Jeg vil lige kigge på det, men skal på arbejde nu, så jeg kommer først til at se mere på det, på mandag, eller tirsdag. Jeg skal nok give lyd ------------- m.v.h. Sejerkilde Anvender Excel 365 DK |
Besked fra: excelent
Posteringsdato: 07.Maj.2016 kl. 13:43
|
under forudsætning af at det kun er kolonnerne E,G,H ellers skal der mere til ------------- Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!! |
Besked fra: Sejerkilde
Posteringsdato: 12.Maj.2016 kl. 11:30
|
Nu har jeg fået kigget på det :) Din sidste kode virker, som den skal. Har tilføjet 5 områder og det spille bare Tak for hjælpen :) ------------- m.v.h. Sejerkilde Anvender Excel 365 DK |