Formatering
Beskrivelse
Formatering
Når vi nu har lært at gennemløbe et datasæt og markere celler må det være meget passende at formatere lidt på cellerne. Det gør man med Range objektet, der har en lang række underobjekter og egenskaber, der bruges til dette. Jeg har forsøgt at lave en lille tabel med de mest brugte:
| Opgave | VBA kode |
| Fed | Range["A1"].Font.Bold = True |
| Kursiv | Range["A1"].Font.Italic = True |
| Font Verdana | Range["A1"].Font.Name = "Verdana" |
| Font størrelse 12 pt | Range["A1"].Font.Size = 12 |
| Baggrundsfarve rød | Range["A1"].Interior.Color = RGB(255, 0, 0) |
| Streg rundt om celle | Range["A1"].BorderAround xlContinuous, xlThick, xlColorIndexAutomatic |
| Autotilpas kolonne | Range["A1"].EntireColumn.AutoFit |
Skal du bruge en helt speciel formatering er det letteste at optage en lille makro, der laver den pågældende formatering og efterfølgende gå ind i makroen og se, hvilke objekter, der skal bruges.
Du kan naturligvis kombinere din viden om markering af område med formatering - hvis du for eksempel vil formatere den øverste række i et regneark kan det se sådan her ud:
wks.Range["A1", wks.Range["A1"].End[Excel.XlDirection.xlToRight]].Font.Bold = True
Øvelse
Skriv makroer, der løser opgaverne.Du må selv vælge, hvordan formateringen skal laves - det skal bare være "pænt".
Husk igen, at dine makroer skal være uafhængige af hvor mange poster der er i regnearket.
Send din installationsfil til mig.
Når jeg skriver "marker" mener jeg "farv på en måde, så brugeren let kan finde".
Brug for hjælp til VBA, VSTO eller SQL?
Scient Data tilbyder professionel IT-konsulentbistand
Kontakt Scient Data →