Deze tutorial laat zien hoe je cellen opmaakt met VBA.
Cellen opmaken
Er zijn veel eigenschappen die kunnen worden ingesteld voor een (bereik van) cellen zoals deze:
| 1234567891011 | Sub SetCellFormat()Met werkbladen ("Blad1"). Bereik ("B5:C7").HorizontalAlignment = xlHAlignDistributed.AddIndent = True.Font.FontStyle = "Cursief".NumberFormat = "Algemeen".Interieur.Kleur = RGB(128, 100, 250)Eindigt metEinde sub |
Laten we ze in alfabetische volgorde bekijken:
Inspringen toevoegen
Door de waarde van deze eigenschap in te stellen op True, springt de tekst automatisch in als de tekstuitlijning in de cel, horizontaal of verticaal, gelijk is verdeeld (zie HorizontalAlignment en VerticalAlignment).
| 12345 | Met werkbladen ("Blad1"). Bereik ("A1").Oriëntatie = xlVerticaal.VerticalAlignment = xlVAlignDistributed.AddIndent = TrueEindigt met |
grenzen
U kunt de randindeling van een cel instellen. Kijk hier voor meer informatie over grenzen.
Als voorbeeld kunt u een rode stippellijn rond cel B2 op blad 1 als volgt instellen:
| 1 | Werkbladen ("Blad1").Bereik ("B2").BorderAround LineStyle:=xlDash, ColorIndex:=3 |
Lettertype
U kunt het lettertype van de cel aanpassen door de naam, stijl, grootte, kleur van het lettertype in te stellen, onderstrepingen en/of effecten toe te voegen (doorhalen, sub- of superscript). Kijk hier voor meer informatie over cellettertypen.
Hier zijn enkele voorbeelden:
| 12345 | Met bereik ("A1:C5"). Lettertype.Naam = "Eeuw".FontStyle = "Vet".Doorstrepen = TrueEindigt met |
FormuleVerborgen
Deze eigenschap retourneert of stelt een variantwaarde in die aangeeft of de formule wordt verborgen wanneer het werkblad is beveiligd. Bijvoorbeeld:
| 1 | Werkbladen ("Blad1"). Bereik ("A1: B1"). Formule Verborgen = Waar |
Horizontale uitlijning
Deze eigenschap celopmaak eigenschap retourneert of stelt een variantwaarde in die de horizontale uitlijning voor het opgegeven object vertegenwoordigt. Geretourneerde of ingestelde constanten kunnen zijn: xlGeneral, xlCenter, xlDistributed, xlJustify, xlLeft, xlRight, xlFill, xlCenterAcrossSelection. Bijvoorbeeld:
| 1 | Werkbladen ("Blad1"). Bereik ("D3"). Horizontale uitlijning = xlRechts |
Inspringniveau
Het retourneert of stelt een geheel getal in tussen 0 en 15 dat het inspringniveau voor de cel of het bereik vertegenwoordigt.
| 1 | Werkbladen ("Blad1"). Bereik ("A1"). Inspringniveau = 7 |
Interieur
U kunt informatie over het interieur van de cel instellen of terugkrijgen: de kleur, ColorIndex, Pattern, PatternColor, PatternColorIndex, PatternThemeColor, PatternTintAndShade, ThemeColor, TintAndShade, als volgt:
| 123 | Indien niet Bereik ("A1").Interior.ThemeColor = ThemeColorLight2 DanBereik ("A1").Interieur.Patroon = xlPatternUpStop als |
Op slot
Deze eigenschap retourneert True als de cel of het bereik is vergrendeld, False als het object kan worden gewijzigd wanneer het blad is beveiligd, of Null als het opgegeven bereik zowel vergrendelde als ontgrendelde cellen bevat. Het kan ook worden gebruikt voor het vergrendelen of ontgrendelen van cellen.
In dit voorbeeld worden de cellen A1:B2 op Blad1 ontgrendeld, zodat ze kunnen worden gewijzigd wanneer het blad is beveiligd.
| 12 | Werkbladen ("Blad1"). Bereik ("A1: B2"). Vergrendeld = FalseWerkbladen ("Blad1").Beschermen |
Cellen samenvoegen
Stel deze eigenschap in op True als u een bereik moet samenvoegen. De waarde wordt True als een opgegeven bereik samengevoegde cellen bevat. Als u bijvoorbeeld het bereik van C5:D7 moet samenvoegen, kunt u deze code gebruiken:
| 1 | Werkbladen ("Blad1").Bereik ("C5:D7").MergeCells = True |
Nummer formaat
U kunt de getalnotatie binnen de cel(len) instellen op Algemeen, Getal, Valuta, Boekhouding, Datum, Tijd, Percentage, Breuk, Wetenschappelijk, Tekst, Speciaal en Aangepast.
Hier zijn de voorbeelden van wetenschappelijke en procentuele getalnotaties:
| 12 | Bereik ("A1").NumberFormat = "0.00E+00"Bereik ("B1"). NumberFormat = "0.00%" |
NummerFormaatLokaal
Deze eigenschap retourneert of stelt een variantwaarde in die de opmaakcode voor het object vertegenwoordigt als een tekenreeks in de taal van de gebruiker.
Oriëntatie
Met deze eigenschap kunt u de tekstoriëntatie binnen de cel(len) instellen (of terugkrijgen). De waarde kan een van de volgende constanten zijn: xlDownward, xlHorizontal, xlUpward, xlVertical of een geheel getal van -90 tot 90 graden.
| 1 | Werkbladen ("Blad1"). Bereik ("A1"). Oriëntatie = -60 |
Ouder
Dit is een alleen-lezen eigenschap die het bovenliggende object van een opgegeven object retourneert.
ShrinkToFit
Deze eigenschap retourneert of stelt een variantwaarde in die aangeeft of tekst automatisch wordt verkleind om in de beschikbare kolombreedte te passen.
| 1 | Werkbladen ("Blad1"). Bereik ("A1").ShrinkToFit = True |
Verticale uitlijning
Deze eigenschap celopmaak retourneert of stelt een variantwaarde in die de verticale uitlijning voor het opgegeven object vertegenwoordigt. Geretourneerde of ingestelde constanten kunnen zijn: xlCenter, xlDistributed, xlJustify, xlBottom, xlTop. Bijvoorbeeld:
| 1 | Werkbladen ("Blad1"). Bereik ("A1"). Verticale uitlijning = xlTop |
WrapText
Deze eigenschap retourneert True als tekst is terugloop in alle cellen binnen het opgegeven bereik, False als tekst niet in alle cellen binnen het opgegeven bereik is ingesloten, of Null als het opgegeven bereik enkele cellen bevat die tekst omlopen en andere cellen die dat niet doen.
Als u bijvoorbeeld dit celbereik heeft:
deze onderstaande code retourneert Null in het onmiddellijke venster:
| 1 | ?Werkbladen("Blad1").Bereik("A1:B1").WrapText |
