Denna handledning visar hur du formaterar celler med VBA.
Formatera celler
Det finns många egenskaper som kan ställas in för ett (intervall av) celler så här:
| 1234567891011 | Sub SetCellFormat ()Med kalkylblad ("Sheet1"). Omfång ("B5: C7").HorizontalAlignment = xlHAlignDistributed.AddIndent = True.Font.FontStyle = "Italic".NumberFormat = "Allmänt".Interior.Color = RGB (128, 100, 250)Sluta medAvsluta Sub |
Låt oss se dem i alfabetisk ordning:
AddIndent
Genom att ange värdet för den här egenskapen till True kommer texten automatiskt att indragas när textjusteringen i cellen är inställd, antingen horisontellt eller vertikalt, till lika fördelning (se HorizontalAlignment och VerticalAlignment).
| 12345 | Med kalkylblad ("Sheet1"). Omfång ("A1").Orientation = xlVertical.VerticalAlignment = xlVAlignDistributed.AddIndent = SantSluta med |
Gränser
Du kan ställa in kantformatet för en cell. Se här för mer information om gränser.
Som ett exempel kan du ställa in en röd streckad linje runt cell B2 på blad 1 så här:
| 1 | Arbetsblad ("Sheet1"). Omfång ("B2"). BorderAround LineStyle: = xlDash, ColorIndex: = 3 |
Font
Du kan justera cellens teckensnittsformat genom att ange teckensnittsnamn, stil, storlek, färg, lägga till understrykningar och eller effekter (genomstrykning, under- eller överskrift). Se här för mer information om cellteckensnitt.
Här är några exempel:
| 12345 | Med intervall ("A1: C5"). Teckensnitt.Name = "Century".FontStyle = "Fet".Strikethrough = SantSluta med |
FormulaHidden
Den här egenskapen returnerar eller anger ett variantvärde som anger om formeln kommer att döljas när kalkylbladet skyddas. Till exempel:
| 1 | Arbetsblad ("Sheet1"). Omfång ("A1: B1"). FormulaHidden = True |
Horisontell linjering
Den här egenskapens cellformategenskap returnerar eller anger ett variantvärde som representerar den horisontella inriktningen för det angivna objektet. Returnerade eller inställda konstanter kan vara: xlGeneral, xlCenter, xlDistributed, xlJustify, xlLeft, xlRight, xlFill, xlCenterAcrossSelection. Till exempel:
| 1 | Arbetsblad ("Sheet1"). Omfång ("D3"). HorizontalAlignment = xlRight |
Inryckningsnivå
Den returnerar eller ställer in ett heltal mellan 0 och 15 som representerar indragningsnivån för cellen eller intervallet.
| 1 | Arbetsblad ("Ark1"). Omfång ("A1"). IndentLevel = 7 |
Interiör
Du kan ställa in eller få tillbaka information om cellens interiör: dess färg, ColorIndex, Pattern, PatternColor, PatternColorIndex, PatternThemeColor, PatternTintAndShade, ThemeColor, TintAndShade, så här:
| 123 | If Not Range ("A1"). Interior.ThemeColor = ThemeColorLight2 DåRäckvidd ("A1"). Interiör.Pattern = xlPatternUpAvsluta om |
Låst
Den här egenskapen returnerar True om cellen eller intervallet är låst, Falskt om objektet kan ändras när arket är skyddat, eller Null om det angivna intervallet innehåller både låsta och olåsta celler. Den kan också användas för att låsa eller låsa upp celler.
Detta exempel låser upp cellerna A1: B2 på Sheet1 så att de kan ändras när arket är skyddat.
| 12 | Arbetsblad ("Ark1"). Omfång ("A1: B2"). Låst = falsktArbetsblad ("Sheet1"). Skydda |
Sammanfoga celler
Ställ in den här egenskapen till True om du behöver slå ihop ett intervall. Dess värde blir sant om ett specifikt område innehåller sammanslagna celler. Om du till exempel behöver slå samman intervallet för C5: D7 kan du använda den här koden:
| 1 | Arbetsblad ("Sheet1"). Omfång ("C5: D7"). MergeCells = True |
NumberFormat
Du kan ställa in nummerformatet i cellen till Allmänt, Antal, Valuta, Bokföring, Datum, Tid, Procentandel, Bråk, Vetenskaplig, Text, Special och Anpassad.
Här är exemplen på vetenskapliga och procentuella talformat:
| 12 | Område ("A1"). NumberFormat = "0.00E+00"Område ("B1"). NumberFormat = "0,00%" |
NumberFormatLocal
Den här egenskapen returnerar eller anger ett variantvärde som representerar formatkoden för objektet som en sträng på användarens språk.
Orientering
Du kan ställa in (eller få tillbaka) textorienteringen i cell (erna) med den här egenskapen. Dess värde kan vara en av dessa konstanter: xlDownward, xlHorizontal, xlUpward, xlVertical eller ett heltal från -90 till 90 grader.
| 1 | Arbetsblad ("Ark1"). Omfång ("A1"). Orientering = -60 |
Förälder
Detta är en skrivskyddad egenskap som returnerar överordnade objekt för ett angivet objekt.
Krymp för att passa
Den här egenskapen returnerar eller anger ett variantvärde som anger om text automatiskt krymper för att passa i den tillgängliga kolumnbredden.
| 1 | Arbetsblad ("Sheet1"). Omfång ("A1"). ShrinkToFit = True |
Vertikal justering
Den här egenskapens cellformategenskap returnerar eller anger ett variantvärde som representerar den vertikala inriktningen för det angivna objektet. Returnerade eller inställda konstanter kan vara: xlCenter, xlDistributed, xlJustify, xlBottom, xlTop. Till exempel:
| 1 | Arbetsblad ("Sheet1"). Omfång ("A1"). VerticalAlignment = xlTop |
WrapText
Den här egenskapen returnerar True om text är insvept i alla celler inom det angivna intervallet, Falskt om text inte är insvept i alla celler inom det angivna intervallet, eller Null om det angivna intervallet innehåller några celler som omsluter text och andra celler som inte gör det.
Om du till exempel har detta cellintervall:
den här koden nedan returnerar Null i det omedelbara fönstret:
| 1 | ? Arbetsblad ("Sheet1"). Omfång ("A1: B1"). WrapText |
