Avatar billede perhol Seniormester
06. december 2011 - 21:20 Der er 3 kommentarer og
1 løsning

Rækkehøjde driller

Jeg har lavet en Excel fil til registrering af uddelt medicin.
Nu har det vist sig at nogen præparat-navne er for lange til at være i den tildelte celle.
Bortset fra dette opfylder filen kravene fra tilsynet.

Det er ikke en option at udvide længden på cellen da udskriften fylder arket i bredden. Og arket må ikke lægges ned, men skal være stående (tilsynets krav - forstå det hvem der kan).

Der er ikke plads til at øge højden på alle rækker, men sikkert nok det antal der evt. kan blive brug for.

Præparatnavne optræder på 3 ark i filen, 1. ark til PN-medicin hvor der registreres ordineret medicin der kun uddeles ved særligt behov, 2. ark hvor den faste ordinerede medicin registreres og 3. ark hvor givet (uddelt og indtaget) medicin registreres.

Man indskriver PN-medicin manuelt på 1. første ark.
Man indskriver den faste medicin samt krydser af for uddelingstidspunkter manuelt på 2. ark.

På 3. ark overføres den faste medicin og uddelingstidspunkter ved hjælp af koder.

Det jeg leder efter er en metode så rækkehøjden udvides ved behov, altså når præraratnavnet er for langt til cellen. Det gælder både de ark hvor præparatet indskrives manuelt og det ark hvor præparatetnavnet hentes af en kode.

Her er koden: =HVIS('Medicinskema Fast'!G8<>"";'Medicinskema Fast'!C8;"")
Avatar billede Mathias- Nybegynder
07. december 2011 - 00:17 #1
Afspil denne macro..

Sub Test()
    Cells.EntireColumn.AutoFit
End Sub

Ellers kan du som alternativ bruge:
marker dine celler -> gå op i startside -> ombryd tekst.
Avatar billede perhol Seniormester
07. december 2011 - 10:36 #2
Det virker på kolonnebredden.
Jeg har brug for at teksten der hentes med koden =HVIS('Medicinskema Fast'!G8<>"";'Medicinskema Fast'!C8;"") ombrydes og rækkehøjden tilpasses netop den celle teksten hentes til og kun den.
Jeg har prøvet Cells.EntireRow.AutoFit.
Det har ingen virkning.
Avatar billede perhol Seniormester
07. december 2011 - 11:40 #3
Dette virker specifikt på på celle C8 i arket Medicinskema Fast (hvor præparatnavnet indtastes).

Sub FastAutofit()
Sheets("Medicinskema Fast").Range("C8").WrapText = True
Sheets("Medicinskema Fast").Range("C8").EntireRow.AutoFit
End Sub

Det skulle gerne virke på cellerne C8 til C23 (navngivet område PræparatFast)

Dette virker specifikt på på celle A8 i arket X-skema for given medicin (hvor præparatnavnet hentes fra arket Medicinskema Fast celle C8 med koden =HVIS('Medicinskema Fast'!G8<>"";'Medicinskema Fast'!C8;"")).

Sub AfkrydsAutofit()
Sheets("X-skema for given medicin").Range("A6").WrapText = True
Sheets("X-skema for given medicin").Range("A6").EntireRow.AutoFit
End Sub

Det skulle gerne virke på cellerne A6 til A21, C6 til C21, E6 til E21 og G6 til G21 (navngivet område PræparatX)

Kan det klares?
Avatar billede perhol Seniormester
07. december 2011 - 11:56 #4
Jeg føler mig godt nok lidt dum nu.
Den der WrapText = True fik mig til at undersøge formateringen af de celler hvor rækkehøjden blev udvidet sammenlignet med de celler hvor rækkehøjden ikke blev udvidet.

Resultat!

Hvis der under Justering er sat tjekmærke i Ombryd tekst virker det.

Mathias- Du får point, ikke for løsningen, men for ulejligheden.

Undskyld!
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 for alle niveauer og behov – find det kursus, der passer til dig

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.

Du kan også logge ind via nedenstående tjenester