See õpetus näitab, kuidas VBA -s kärjepiiri seadeid reguleerida.
Ääriste vormindamine
Ülemine äär - topeltjoon
Kõigepealt vaatame näidet selle kohta, kuidas määrata lehe 1 lahtrile B3 sinine, paks, kahekordistunud ülemine äär:
123456789 | AlamnäideSetBorder ()Töölehtedega ("Sheet1"). Vahemik ("B3"). Piirid (xlEdgeTop).LineStyle = xlDouble.Kaal = xlPaks.ColorIndex = 5LõpetaEnd Sub |
Pange tähele, et kodeerimise lihtsustamiseks kasutame koos avaldusega.
Ülemisele piirile pääseme juurde .Borders (xlEdgeTop).
Muud rakupiirid
Selle asemel pääsete juurde teistele piiridele, sealhulgas diagonaalidele.
123456 | Töölehed ("Sheet1"). Vahemik ("B2"). Äärised (xlEdgeTop). Värv = RGB (128, 0, 0)Töölehed ("Sheet1"). Vahemik ("B2"). Piirid (xlEdgeRight). Värv = RGB (0, 255, 0)Töölehed ("Sheet1"). Vahemik ("B2"). Äärised (xlEdgeBottom) .Värv = RGB (0, 0, 128)Töölehed ("Sheet1"). Vahemik ("B2"). Piirid (xlEdgeLeft). Värv = RGB (255, 0, 0)Töölehed ("Sheet1"). Vahemik ("B2"). Äärised (xlDiagonalDown) .Värv = RGB (0, 0, 0)Töölehed ("Sheet1"). Vahemik ("B2"). Äärised (xlDiagonalUp). Värv = RGB (0, 0, 0) |
Piiride sees
Samuti saate reguleerida kõigi vahemiku lahtrite horisontaalseid (xlInsideHorizontal) ja vertikaalseid (xlInsideVertical) piire.
12345 | Töölehtedega ("Sheet1"). Vahemik ("B2: C6"). Piirid (xlInsideHorizontal).LineStyle = xlDashDotDot.Kaal = xlKeskmine.ColorIndex = 3Lõpeta |
LineStyle
Atribuudi LineStyle saab muuta xlContinuous, xlDot, xlDash, xlDashDot, xlDashDotDot, xlDouble, xlSlantDashDot ja xlLineStyleNone.
Atribuut Kaal võib olla kas xlHariline, xlThin, xlMedium ja xlThick. Selle tulemuse saate alloleva koodiga:
12345678 | Töölehed ("Sheet1"). Vahemik ("C3"). Piirid (xlEdgeTop). Kaal = xlHairlineTöölehed ("Sheet1"). Vahemik ("C3"). Piirid (xlEdgeBottom). Kaal = xlHairlineTöölehed ("Sheet1"). Vahemik ("D3"). Piirid (xlEdgeTop). Kaal = xlThinTöölehed ("Sheet1"). Vahemik ("D3"). Piirid (xlEdgeBottom). Kaal = xlTöölehed ("Sheet1"). Vahemik ("E3"). Piirid (xlEdgeTop). Kaal = xlMediumTöölehed ("Sheet1"). Vahemik ("E3"). Piirid (xlEdgeBottom). Kaal = xlMediumTöölehed ("Sheet1"). Vahemik ("F3"). Piirid (xlEdgeTop). Kaal = xlThickTöölehed ("Sheet1"). Vahemik ("F3"). Piirid (xlEdgeBottom). Kaal = xlThick |
Ääriste värvid saab määrata ColorIndex või Color (RGB, seerianumber või vbColor). Lisateavet värvisätete kohta leiate siit.
Piireid saab vahemiku ümber lisada ka ühe rea käsuga:
1 | Vahemik ("B5: C7"). BorderAround LineStyle: = xlPidev, kaal: = xlPaks, värv: = vbPunane |