Ez az oktatóanyag bemutatja, hogyan módosíthatja a cellahatár beállításait a VBA -ban.
Szegélyek formázása
Felső szegély - kettős vonal
Először nézzünk egy példát arra, hogyan lehet kék, vastag, kétszeres felső szegélyt beállítani a B3 cellához az 1. lapon:
123456789 | AlpéldaSetBorder ()Munkalapokkal ("Sheet1"). Tartomány ("B3"). Szegélyek (xlEdgeTop).LineStyle = xlDouble.Súly = xlVastag.ColorIndex = 5Vége ezzelEnd Sub |
Figyeljük meg, hogy a With Statement használatával egyszerűsítjük a kódolást.
A felső határhoz érünk a gombbal .Borders (xlEdgeTop).
Más sejthatárok
Ehelyett más szegélyeket is elérhet, beleértve az átlókat:
123456 | Munkalapok ("Sheet1"). Tartomány ("B2"). Szegélyek (xlEdgeTop). Szín = RGB (128, 0, 0)Munkalapok ("Sheet1"). Tartomány ("B2"). Szegélyek (xlEdgeRight). Szín = RGB (0, 255, 0)Munkalapok ("Sheet1"). Tartomány ("B2"). Szegélyek (xlEdgeBottom). Szín = RGB (0, 0, 128)Munkalapok ("Sheet1"). Tartomány ("B2"). Szegélyek (xlEdgeLeft). Szín = RGB (255, 0, 0)Munkalapok ("Sheet1"). Tartomány ("B2"). Szegélyek (xlDiagonalDown). Szín = RGB (0, 0, 0)Munkalapok ("Sheet1"). Tartomány ("B2"). Szegélyek (xlDiagonalUp). Szín = RGB (0, 0, 0) |
A határokon belül
Vízszintes (xlInsideHorizontal) és függőleges (xlInsideVertical) szegélyeket is beállíthat a tartomány összes cellájához:
12345 | Munkalapokkal ("Sheet1"). Tartomány ("B2: C6"). Szegélyek (xlInsideHorizontal).LineStyle = xlDashDotDot.Súly = xlKözepes.ColorIndex = 3Vége ezzel |
LineStyle
A LineStyle tulajdonság xlContinuous, xlDot, xlDash, xlDashDot, xlDashDotDot, xlDouble, xlSlantDashDot és xlLineStyleNone értékekre módosítható.
A Súly tulajdonság lehet xlHariline, xlThin, xlMedium és xlThick. Ezt az eredményt az alábbi kóddal kapja meg:
12345678 | Munkalapok ("Sheet1"). Tartomány ("C3"). Szegélyek (xlEdgeTop) .Súly = xlHairlineMunkalapok ("Sheet1"). Tartomány ("C3"). Szegélyek (xlEdgeBottom) .Súly = xlHairlineMunkalapok ("Sheet1"). Tartomány ("D3"). Szegélyek (xlEdgeTop) .Súly = xlVékonyMunkalapok ("Sheet1"). Tartomány ("D3"). Szegélyek (xlEdgeBottom) .Súly = xlVékonyMunkalapok ("Sheet1"). Tartomány ("E3"). Szegélyek (xlEdgeTop) .Súly = xlKözepesMunkalapok ("Sheet1"). Tartomány ("E3"). Szegélyek (xlEdgeBottom) .Súly = xlKözepesMunkalapok ("Sheet1"). Tartomány ("F3"). Szegélyek (xlEdgeTop) .Súly = xlThickMunkalapok ("Sheet1"). Tartomány ("F3"). Szegélyek (xlEdgeBottom) .Súly = xlThick |
A szegély színei ColorIndex vagy Color (RGB, sorozatszám vagy vbColor) lehet. További információ a színbeállításokról itt.
Egysoros paranccsal is hozzáadhat határokat a tartomány körül:
1 | Tartomány ("B5: C7"). BorderAround LineStyle: = xlFolyamatos, Súly: = xlVastag, Szín: = vbRed |