Denne opplæringen viser hvordan du formaterer celler ved hjelp av VBA.
Formatering av celler
Det er mange egenskaper som kan angis for et (område av) 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)Slutt medSlutt Sub |
La oss se dem i alfabetisk rekkefølge:
AddIndent
Ved å sette verdien til denne egenskapen til True blir teksten automatisk innrykket når tekstjusteringen i cellen er satt horisontalt eller vertikalt til lik fordeling (se HorizontalAlignment og VerticalAlignment).
| 12345 | Med regneark ("Ark1"). Område ("A1").Oriasjon = xlVertical.VerticalAlignment = xlVAlignDistributed.AddIndent = TrueSlutt med |
Grenser
Du kan angi kantformatet til en celle. Se her for mer informasjon om grenser.
Som et eksempel kan du sette en rød stiplet linje rundt celle B2 på ark 1 slik:
| 1 | Regneark ("Ark1"). Område ("B2"). BorderAround LineStyle: = xlDash, ColorIndex: = 3 |
Skrift
Du kan justere cellens skriftformat ved å angi skriftnavn, stil, størrelse, farge, legge til understreker og eller effekter (gjennomstrekking, under- eller overskrift). Se her for mer informasjon om celleskrifter.
Her er noen eksempler:
| 12345 | Med område ("A1: C5"). Font.Name = "Century".FontStyle = "Fet".Strikethrough = TrueSlutt med |
FormulaHidden
Denne egenskapen returnerer eller angir en variantverdi som angir om formelen vil bli skjult når regnearket er beskyttet. For eksempel:
| 1 | Regneark ("Ark1"). Område ("A1: B1"). FormulaHidden = True |
Horisontal justering
Denne egenskapen celleformategenskap returnerer eller angir en variantverdi som representerer den horisontale justeringen for det angitte objektet. Returnerte eller angitte konstanter kan være: xlGeneral, xlCenter, xlDistributed, xlJustify, xlLeft, xlRight, xlFill, xlCenterAcrossSelection. For eksempel:
| 1 | Regneark ("Ark1"). Område ("D3"). HorisontalAlignment = xlRight |
InnrykkNivå
Den returnerer eller angir en heltallsverdi mellom 0 og 15 som representerer innrykknivået for cellen eller området.
| 1 | Regneark ("Ark1"). Område ("A1"). IndentLevel = 7 |
Interiør
Du kan angi eller få tilbake informasjon om cellens interiør: dens farge, ColorIndex, Pattern, PatternColor, PatternColorIndex, PatternThemeColor, PatternTintAndShade, ThemeColor, TintAndShade, slik:
| 123 | If Not Range ("A1"). Interior.ThemeColor = ThemeColorLight2 DaRekkevidde ("A1"). Interiør.Mønster = xlPatternUpSlutt om |
Låst
Denne egenskapen returnerer True hvis cellen eller området er låst, Falskt hvis objektet kan endres når arket er beskyttet, eller Null hvis det angitte området inneholder både låste og ulåste celler. Den kan også brukes til å låse eller låse opp celler.
Dette eksemplet låser opp celler A1: B2 på ark1 slik at de kan endres når arket er beskyttet.
| 12 | Regneark ("Ark1"). Område ("A1: B2"). Låst = FeilRegneark ("Ark1"). Beskytt |
Slå sammen celler
Sett denne egenskapen til True hvis du trenger å slå sammen et område. Verdien blir sann hvis et spesifisert område inneholder sammenslåtte celler. For eksempel, hvis du trenger å slå sammen området C5: D7, kan du bruke denne koden:
| 1 | Regneark ("Ark1"). Område ("C5: D7"). MergeCells = True |
NumberFormat
Du kan angi tallformatet i cellen (e) til Generelt, Nummer, Valuta, Regnskap, Dato, Tid, Prosent, Brøk, Vitenskapelig, Tekst, Spesial og Egendefinert.
Her er eksemplene på vitenskapelige og prosentvise tallformater:
| 12 | Område ("A1"). NumberFormat = "0.00E+00"Område ("B1"). NumberFormat = "0,00%" |
NumberFormatLocal
Denne egenskapen returnerer eller angir en variantverdi som representerer formatkoden for objektet som en streng på brukerens språk.
Orientering
Du kan angi (eller få returnert) tekstretningen i cellen (e) etter denne egenskapen. Verdien kan være en av disse konstantene: xlDownward, xlHorizontal, xlUpward, xlVertical eller en heltallsverdi fra -90 til 90 grader.
| 1 | Regneark ("Ark1"). Område ("A1"). Orientering = -60 |
Forelder
Dette er en skrivebeskyttet egenskap som returnerer hovedobjektet til et spesifisert objekt.
Krymp for å passe
Denne egenskapen returnerer eller angir en variantverdi som angir om teksten automatisk krymper for å passe inn i den tilgjengelige kolonnebredden.
| 1 | Regneark ("Ark1"). Område ("A1"). ShrinkToFit = True |
Vertikal justering
Denne egenskapen celleformategenskap returnerer eller angir en variantverdi som representerer den vertikale justeringen for det angitte objektet. Returnerte eller angitte konstanter kan være: xlCenter, xlDistributed, xlJustify, xlBottom, xlTop. For eksempel:
| 1 | Regneark ("Ark1"). Område ("A1"). VerticalAlignment = xlTop |
Bryte tekst
Denne egenskapen returnerer True hvis tekst er pakket inn i alle cellene innenfor det angitte området, False hvis teksten ikke er pakket inn i alle cellene innenfor det angitte området, eller Null hvis det angitte området inneholder noen celler som pakker inn tekst og andre celler som ikke gjør det.
For eksempel, hvis du har dette celleområdet:
denne koden nedenfor vil returnere Null i det umiddelbare vinduet:
| 1 | ? Regneark ("Ark1"). Område ("A1: B1"). WrapText |
