Deze zelfstudie laat zien hoe u de instellingen voor celranden in VBA kunt aanpassen.
Randen opmaken
Bovenrand - dubbele lijn
Laten we eerst eens kijken naar een voorbeeld van hoe je een blauwe, dikke, dubbele bovenrand instelt op cel B3 op Blad1:
123456789 | Sub VoorbeeldSetBorder()Met werkbladen ("Blad1"). Bereik ("B3"). Randen (xlEdgeTop).LineStyle = xlDouble.Gewicht = xlDik.ColorIndex = 5Eindigt metEinde sub |
Merk op dat we een With Statement gebruiken om onze codering te vereenvoudigen.
We hebben toegang tot de bovenrand met .Randen(xlEdgeTop).
Andere celgrenzen
In plaats daarvan hebt u toegang tot andere randen, inclusief diagonalen:
123456 | Werkbladen ("Blad1"). Bereik ("B2"). Randen (xlEdgeTop). Kleur = RGB (128, 0, 0)Werkbladen ("Blad1"). Bereik ("B2"). Randen (xlEdgeRight). Kleur = RGB (0, 255, 0)Werkbladen ("Blad1").Bereik ("B2").Borders(xlEdgeBottom).Kleur = RGB(0, 0, 128)Werkbladen ("Blad1"). Bereik ("B2"). Randen (xlEdgeLeft). Kleur = RGB (255, 0, 0)Werkbladen ("Blad1").Bereik ("B2").Borders(xlDiagonaalOmlaag).Kleur = RGB(0, 0, 0)Werkbladen ("Blad1"). Bereik ("B2"). Randen (xlDiagonaal Omhoog). Kleur = RGB (0, 0, 0) |
Binnen de grenzen
U kunt ook horizontale (xlInsideHorizontal) en verticale (xlInsideVertical) randen aanpassen voor alle cellen in een bereik:
12345 | Met werkbladen ("Blad1"). Bereik ("B2: C6"). Randen (xlBinnenHorizontaal).LineStyle = xlDashDotDot.Gewicht = xlMedium.ColorIndex = 3Eindigt met |
Lijnstijl
De eigenschap LineStyle kan worden gewijzigd in xlContinuous, xlDot, xlDash, xlDashDot, xlDashDotDot, xlDouble, xlSlantDashDot en xlLineStyleNone.
De eigenschap Weight kan xlHariline, xlThin, xlMedium en xlThick zijn. Je krijgt dit resultaat met de onderstaande code:
12345678 | Werkbladen ("Blad1"). Bereik ("C3"). Randen (xlEdgeTop). Gewicht = xlHaarlijnWerkbladen ("Blad1"). Bereik ("C3"). Randen (xlEdgeBottom).Gewicht = xlHaarlijnWerkbladen ("Blad1"). Bereik ("D3"). Randen (xlEdgeTop).Gewicht = xlThinWerkbladen ("Blad1"). Bereik ("D3"). Randen (xlEdgeBottom).Gewicht = xlThinWerkbladen ("Blad1"). Bereik ("E3"). Randen (xlEdgeTop).Gewicht = xlMediumWerkbladen ("Blad1"). Bereik ("E3"). Randen (xlEdgeBottom).Gewicht = xlMediumWerkbladen ("Blad1"). Bereik ("F3"). Randen (xlEdgeTop).Gewicht = xlThickWerkbladen ("Blad1"). Bereik ("F3"). Randen (xlEdgeBottom).Gewicht = xlThick |
Randkleuren kunnen worden ingesteld als ColorIndex of Color (RGB, serienummer of vbColor). Bekijk hier meer informatie over kleurinstellingen.
U kunt ook randen rond een bereik toevoegen met een eenregelige opdracht:
1 | Bereik ("B5:C7").BorderAround LineStyle:=xlContinuous, Weight:=xlThick, Color:=vbRed |