See õpetus näitab, kuidas VBA abil lahtreid vormindada.
Lahtrite vormindamine
Sellistele lahtritele (vahemikule) saab määrata palju atribuute:
| 1234567891011 | AlamkomplektCellFormat ()Töölehtedega ("Sheet1"). Vahemik ("B5: C7").HorizontalAlignment = xlHAlignDistributed.AddIndent = Tõsi.Font.FontStyle = "Kaldkiri".NumberFormat = "Üldine".Interior.Värv = RGB (128, 100, 250)LõpetaEnd Sub |
Vaatame neid tähestikulises järjekorras:
AddIndent
Kui määrate selle atribuudi väärtuseks Tõene, taandatakse tekst automaatselt, kui teksti joondamine lahtris horisontaalselt või vertikaalselt on seatud võrdseks jaotuseks (vt HorizontalAlignment ja VerticalAlignment).
| 12345 | Töölehtedega ("Sheet1"). Vahemik ("A1").Suund = xlVertikaalne.VerticalAlignment = xlVAlignDistributed.AddIndent = TõsiLõpeta |
Piirid
Saate määrata lahtri äärise vormingu. Siit leiate lisateavet piiride kohta.
Näitena võite määrata lehe 1 lahtri B2 ümber punase katkendjoone järgmiselt:
| 1 | Töölehed ("Sheet1"). Vahemik ("B2"). BorderAround LineStyle: = xlDash, ColorIndex: = 3 |
Font
Lahtri fondivormingut saate reguleerida, määrates fondi nime, stiili, suuruse, värvi, lisades allajooned ja / või efektid (läbikriipsutatud, alam- või ülaindeks). Siit leiate lisateavet lahtri fontide kohta.
siin on mõned näidised:
| 12345 | Vahemikuga ("A1: C5"). Font.Name = "Sajand".FontStyle = "Paks". Läbikriipsutus = tõsiLõpeta |
Valem peidetud
See omadus tagastab või määrab variandi väärtuse, mis näitab, kas valem on töölehe kaitsmisel peidetud. Näiteks:
| 1 | Töölehed ("Sheet1"). Vahemik ("A1: B1"). FormulaHidden = True |
Horisontaalne joondus
See atribuudi lahtrivormingu omadus tagastab või määrab variandi väärtuse, mis tähistab määratud objekti horisontaalset joondust. Tagastatud või seatud konstandid võivad olla: xlGeneral, xlCenter, xlDistributed, xlJustify, xlLeft, xlRight, xlFill, xlCenterAcrossSelection. Näiteks:
| 1 | Töölehed ("Sheet1"). Vahemik ("D3"). HorizontalAlignment = xlRight |
IndentLevel
See tagastab või määrab täisarvu väärtuse vahemikus 0 kuni 15, mis tähistab lahtri või vahemiku taande taset.
| 1 | Töölehed ("Sheet1"). Vahemik ("A1"). IndentLevel = 7 |
Interjöör
Saate määrata või saada tagasi teavet lahtri sisemuse kohta: selle värv, ColorIndex, Muster, PatternColor, PatternColorIndex, PatternThemeColor, PatternTintAndShade, ThemeColor, TintAndShade, näiteks:
| 123 | Kui mitte vahemik ("A1"). Interior.ThemeColor = ThemeColorLight2 SiisVahemik ("A1"). Interior.Pattern = xlPatternUpLõpp Kui |
Lukustatud
See atribuut tagastab tõese, kui lahter või vahemik on lukustatud, vale, kui objekti saab lehe kaitsmisel muuta, või null, kui määratud vahemik sisaldab nii lukustatud kui ka lukustamata lahtreid. Seda saab kasutada ka lahtrite lukustamiseks või avamiseks.
See näide avab lehe 1 lahtrid A1: B2, nii et neid saab lehe kaitsmisel muuta.
| 12 | Töölehed ("Sheet1"). Vahemik ("A1: B2"). Lukustatud = valeTöölehed ("Sheet1"). Kaitsta |
MergeCells
Kui soovite vahemiku ühendada, määrake see atribuut väärtusele Tõene. Selle väärtus saab tõese, kui määratud vahemik sisaldab ühendatud lahtreid. Näiteks kui teil on vaja ühendada vahemik C5: D7, võite kasutada seda koodi:
| 1 | Töölehed ("Sheet1"). Vahemik ("C5: D7"). MergeCells = True |
NumberFormat
Lahtri (de) numbrivorminguks saate määrata Üldine, Arv, Valuuta, Raamatupidamine, Kuupäev, Kellaaeg, Protsent, Murd, Teaduslik, Tekst, Eriline ja Kohandatud.
Siin on näited teaduslikest ja protsendivormingute vormingutest:
| 12 | Vahemik ("A1"). NumberFormat = "0.00E+00"Vahemik ("B1"). NumberFormat = "0.00%" |
NumberFormatLocal
See omadus tagastab või määrab variandi väärtuse, mis kujutab objekti vormingukoodi stringina kasutaja keeles.
Orienteerumine
Selle atribuudi abil saate määrata (või saada tagasi) teksti orientatsiooni lahtrites. Selle väärtus võib olla üks nendest konstantidest: xlDownward, xlHorizontal, xlUpward, xlVertical või täisarv vahemikus -90 kuni 90 kraadi.
| 1 | Töölehed ("Sheet1"). Vahemik ("A1"). Orientatsioon = -60 |
Lapsevanem
See on kirjutuskaitstud atribuut, mis tagastab määratud objekti emaobjekti.
ShrinkToFit
See atribuut tagastab või määrab variandi väärtuse, mis näitab, kas tekst kahaneb automaatselt, et see sobiks saadaoleva veeru laiusega.
| 1 | Töölehed ("Sheet1"). Vahemik ("A1"). ShrinkToFit = True |
Vertikaalne joondus
See atribuudi lahtrivormingu omadus tagastab või määrab variandi väärtuse, mis tähistab määratud objekti vertikaalset joondust. Tagastatud või seatud konstandid võivad olla: xlCenter, xlDistributed, xlJustify, xlBottom, xlTop. Näiteks:
| 1 | Töölehed ("Sheet1"). Vahemik ("A1"). VerticalAlignment = xlTop |
WrapText
See atribuut tagastab tõese, kui tekst on pakitud kõikidesse määratud vahemiku lahtritesse, vale, kui tekst ei ole pakitud kõikidesse määratud vahemiku lahtritesse, või null, kui määratud vahemik sisaldab mõnda teksti ümbritsevat lahtrit ja teisi lahtreid, mis seda ei tee.
Näiteks kui teil on selline lahtrite vahemik:
see allolev kood tagastab kohe aknas nulli:
| 1 | ? Töölehed ("Sheet1"). Vahemik ("A1: B1"). WrapText |
