Søg
Avatar billede Butterfly Ekspert
23. august 2018 - 11:49 Der er 8 kommentarer og
1 løsning

Autohøjde + selvvalgt tillæg

Hej
Jeg har lavet en makro der tilpasser højden på en celle afhængig af hvor meget tekst der står. Er det muligt at udvide denne makro med noget ekstra selvvalgt højde, 15 pixels (eller hvad det nu hedder).
Cells.EntireRow.AutoFit
Avatar billede finb Ekspert
23. august 2018 - 12:06 #1
Utestet:
Cells.EntireRow.row.heigth =  Cells.EntireRow.AutoFit + 15
eller
(Cells.EntireRow.AutoFit).heigth + 15
eller
loop 2 gange,
1. loop: Cells.EntireRow.AutoFit
2. loop: Cells.EntireRow.row.heigth = Cells.EntireRow.row.heigth + 15
Avatar billede Thor Østergaard Ekspert
23. august 2018 - 12:10 #2
Testet ;-)

Sub test()
    ActiveCell.EntireRow.AutoFit
    ActiveCell.EntireRow.RowHeight = ActiveCell.RowHeight + 15
End Sub


Er skrevet så det kun påvirker den række markøren står i - tænker det er det mest hensigtsmæssige
Avatar billede Butterfly Ekspert
23. august 2018 - 12:54 #3
Tak for hurtigt svar Thor Østergaard, men den hopper tilbage til AutoFit, hvis jeg vælger at markere en kolonne.
Hvis jeg kører den for en enkelt celle så virker det, men så forsvinder meningen med den.
Avatar billede Thor Østergaard Ekspert
23. august 2018 - 13:01 #4
Du kan "bare" erstatte activecell med cells.
Udfordringen er bare, at du godt kan have rækker med forskellig højde, hvorfor det kan blive lidt bøvlet at skulle håndtere alle rækker på én gang.
Avatar billede Butterfly Ekspert
23. august 2018 - 13:42 #5
Jeg ved ikke helt hvad jeg gør galt, men det virker desværre ikke
Range("B:B").Select
    Cells.EntireRow.AutoFit
    Cells.EntireRow.RowHeight = Cells.RowHeight + 15
Avatar billede Thor Østergaard Ekspert
23. august 2018 - 13:51 #6
Prøv med

    Range("B:B").Select
    Selection.EntireRow.AutoFit
    Selection.EntireRow.RowHeight = Selection.RowHeight + 15


eller pænere

With    Range("B:B")
    .EntireRow.AutoFit
    .EntireRow.RowHeight = .RowHeight + 15
end with


Er dog ikke helt klar over, hvad du præcis mener med "virker ikke" - du må gerne prøve at forklare, hvad du gerne vil opnå.
Avatar billede Thor Østergaard Ekspert
23. august 2018 - 13:54 #7
Hvis dine rækker har forskellig højde skal du nok nærmere have noget i retnign af

Dim c as range
For each c in range("B1:B222")
  with c
    .EntireRow.AutoFit
    .EntireRow.RowHeight = .RowHeight + 15
  end with
next


B1:B222 er bare et skud fra hoften, men uden at kende dine data kan jeg ikke lige skrive kode der tilpasser sig antallet af rækker i dit datasæt.
Avatar billede Butterfly Ekspert
23. august 2018 - 14:11 #8
Mange tak for hjælpen, nu virker det
Avatar billede Thor Østergaard Ekspert
23. august 2018 - 14:13 #9
Super :)
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
Talkolonne Af hkv i Excel 3 20/11/202512:28 21/11/202509:47
Hjælp til tricky VBA-kode Af flras i Excel 4 19/11/202516:33 20/11/202512:40
Ny outlook Af Butterfly i Excel 8 18/11/202514:00 18/11/202520:33
Fødselsdag og anciennitet liste Af Alni i Excel 7 16/11/202513:46 17/11/202518:29
Beregn alder (i år, måneder og dage) på personer født før år 1900. Af Balar Seir i Excel 5 11/11/202509:38 13/11/202522:09
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
I går 22:04 Langsom Internet Af webnord i Andet software
I går 17:58 Libra Office har mange overflødige vaner. Af arnel i Andet software
I går 11:33 Bluetooth høreapparater og streaming Af bpnorskov i Tablet
I går 10:51 WIN 10 sikkerheds-opdateringer Af jernrosen3 i Windows
21/1121:04 Powershell installation Af casablanca i Windows
White papers
Flere white papers »