Denne vejledning viser, hvordan du formaterer celler ved hjælp af VBA.
Formatering af celler
Der er mange egenskaber, der kan indstilles for et (område af) celler som dette:
| 1234567891011 | Sub SetCellFormat ()Med regneark ("Ark1"). Område ("B5: C7").HorizontalAlignment = xlHAlignDistributed.AddIndent = True.Font.FontStyle = "Kursiv".NumberFormat = "Generelt".Interior.Color = RGB (128, 100, 250)Afslut medAfslut Sub |
Lad os se dem i alfabetisk rækkefølge:
TilføjIndent
Ved at indstille værdien af denne egenskab til True, bliver teksten automatisk indrykket, når tekstjusteringen i cellen, enten vandret eller lodret, er indstillet til lige fordeling (se HorizontalAlignment og VerticalAlignment).
| 12345 | Med regneark ("Ark1"). Område ("A1").Orientation = xlVertical.VerticalAlignment = xlVAlignDistributed.AddIndent = TrueAfslut med |
Grænser
Du kan indstille kantformatet for en celle. Se her for mere information om grænser.
Som et eksempel kan du angive en rød stiplet linje omkring celle B2 på ark 1 sådan:
| 1 | Regneark ("Ark1"). Område ("B2"). BorderAround LineStyle: = xlDash, ColorIndex: = 3 |
Skrifttype
Du kan justere cellens skrifttypeformat ved at indstille skrifttypenavn, stil, størrelse, farve, tilføje understregninger og eller effekter (gennemstregning, under- eller overskrift). Se her for mere information om celleskrifttyper.
Her er nogle eksempler:
| 12345 | Med område ("A1: C5"). Font.Name = "Århundrede".FontStyle = "Fed".Strikethrough = TrueAfslut med |
FormulaHidden
Denne egenskab returnerer eller angiver en variantværdi, der angiver, om formlen vil blive skjult, når regnearket er beskyttet. For eksempel:
| 1 | Regneark ("Ark1"). Område ("A1: B1"). FormulaHidden = True |
Horisontal tilpasning
Denne egenskabscelleformategenskab returnerer eller angiver en variantværdi, der repræsenterer den vandrette justering for det angivne objekt. Returnerede eller indstillede konstanter kan være: xlGeneral, xlCenter, xlDistributed, xlJustify, xlLeft, xlRight, xlFill, xlCenterAcrossSelection. For eksempel:
| 1 | Regneark ("Ark1"). Område ("D3"). HorizontalAlignment = xlRight |
Indrykningsniveau
Det returnerer eller angiver en heltalværdi mellem 0 og 15, der repræsenterer indrykningsniveauet for cellen eller området.
| 1 | Regneark ("Ark1"). Område ("A1"). IndentLevel = 7 |
Interiør
Du kan indstille eller få returnerede oplysninger om cellens indre: dens farve, ColorIndex, Pattern, PatternColor, PatternColorIndex, PatternThemeColor, PatternTintAndShade, ThemeColor, TintAndShade, sådan her:
| 123 | If Not Range ("A1"). Interior.ThemeColor = ThemeColorLight2 HerefterOmråde ("A1"). Interiør.Mønster = xlPatternUpAfslut Hvis |
Låst
Denne egenskab returnerer True, hvis cellen eller området er låst, Falsk, hvis objektet kan ændres, når arket er beskyttet, eller Null, hvis det angivne område indeholder både låste og ulåste celler. Det kan også bruges til at låse eller låse celler op.
Dette eksempel låser cellerne A1: B2 på Sheet1 op, så de kan ændres, når arket er beskyttet.
| 12 | Arbejdsark ("Ark1"). Område ("A1: B2"). Låst = falskArbejdsark ("Ark1"). Beskyt |
Flette celler
Indstil denne egenskab til True, hvis du skal flette et område. Dens værdi bliver sand, hvis et bestemt område indeholder flettede celler. Hvis du f.eks. Skal flette området C5: D7, kan du bruge denne kode:
| 1 | Regneark ("Ark1"). Område ("C5: D7"). MergeCells = True |
Nummerformat
Du kan indstille nummerformatet i cellen (erne) til Generelt, Nummer, Valuta, Regnskab, Dato, Tid, Procentdel, Brøk, Videnskabelig, Tekst, Special og Brugerdefineret.
Her er eksemplerne på videnskabelige tal og procenttalformater:
| 12 | Område ("A1"). NumberFormat = "0.00E+00"Område ("B1"). NumberFormat = "0,00%" |
NumberFormatLocal
Denne egenskab returnerer eller angiver en variantværdi, der repræsenterer formatkoden for objektet som en streng på brugerens sprog.
Orientering
Du kan indstille (eller få returneret) tekstretningen inden for cellen (e) ved denne egenskab. Dens værdi kan være en af disse konstanter: xlDownward, xlHorizontal, xlUpward, xlVertical eller en heltalsværdi fra -90 til 90 grader.
| 1 | Regneark ("Ark1"). Område ("A1"). Orientering = -60 |
Forælder
Dette er en skrivebeskyttet egenskab, der returnerer det overordnede objekt for et bestemt objekt.
ShrinkToFit
Denne egenskab returnerer eller angiver en variantværdi, der angiver, om teksten automatisk krymper, så den passer til den tilgængelige kolonnebredde.
| 1 | Regneark ("Sheet1"). Område ("A1"). ShrinkToFit = True |
Lodret tilpasning
Denne egenskab celleformat ejendom returnerer eller angiver en variantværdi, der repræsenterer den lodrette justering for det angivne objekt. Returnerede eller indstillede konstanter kan være: xlCenter, xlDistributed, xlJustify, xlBottom, xlTop. For eksempel:
| 1 | Regneark ("Ark1"). Område ("A1"). VerticalAlignment = xlTop |
WrapText
Denne egenskab returnerer True, hvis tekst er pakket ind i alle celler inden for det angivne område, Falsk, hvis tekst ikke er pakket ind i alle celler inden for det angivne område, eller Null, hvis det angivne område indeholder nogle celler, der ombryder tekst og andre celler, der ikke gør det.
For eksempel, hvis du har dette celleområde:
denne kode nedenfor vil returnere Null i det øjeblikkelige vindue:
| 1 | ? Regneark ("Ark1"). Område ("A1: B1"). WrapText |
