✅ Borduri de celule VBA

Cuprins

Formatarea chenarelor

Acest tutorial va arăta cum să ajustați setările de margine de celulă în VBA.

Formatarea chenarelor

Frontieră superioară - Linie dublă

Mai întâi să vedem un exemplu despre cum să setați o margine superioară albastră, groasă, dublată la celula B3 din Sheet1:

123456789

Sub Exemplu SetBorder ()Cu foi de lucru ("Sheet1"). Range ("B3"). Borders (xlEdgeTop).LineStyle = xlDouble.Greutate = xlThick.ColorIndex = 5Se termina cuSfârșitul Sub

Observați că folosim o Declarație With pentru a simplifica codarea noastră.

Accesăm marginea de sus cu .Borders (xlEdgeTop).

Alte frontiere celulare

În schimb, puteți accesa alte chenare, inclusiv diagonale:

123456

Foi de lucru ("Sheet1"). Range ("B2"). Borders (xlEdgeTop) .Color = RGB (128, 0, 0)Foi de lucru („Sheet1”). Range („B2”). Borders (xlEdgeRight) .Color = RGB (0, 255, 0)Foi de lucru ("Sheet1"). Range ("B2"). Borders (xlEdgeBottom) .Color = RGB (0, 0, 128)Foi de lucru ("Sheet1"). Range ("B2"). Borders (xlEdgeLeft) .Color = RGB (255, 0, 0)Foi de lucru („Sheet1”). Range („B2”). Borders (xlDiagonalDown) .Color = RGB (0, 0, 0)Foi de lucru („Sheet1”). Range („B2”). Borders (xlDiagonalUp) .Color = RGB (0, 0, 0)

În interiorul frontierelor

De asemenea, puteți ajusta marginile orizontale (xlInsideHorizontal) și verticale (xlInsideVertical) pentru toate celulele dintr-un interval:

12345

Cu foi de lucru („Sheet1”). Range („B2: C6”). Borders (xlInsideHorizontal).LineStyle = xlDashDotDot.Greutate = xlMedium.ColorIndex = 3Se termina cu

LineStyle

Proprietatea LineStyle poate fi schimbată în xlContinuous, xlDot, xlDash, xlDashDot, xlDashDotDot, xlDouble, xlSlantDashDot și xlLineStyleNone.

Proprietatea Weight poate fi xlHariline, xlThin, xlMedium și xlThick. Veți obține acest rezultat cu codul de mai jos:

12345678

Foi de lucru ("Sheet1"). Range ("C3"). Borders (xlEdgeTop) .Weight = xlHairlineFoi de lucru ("Sheet1"). Range ("C3"). Borders (xlEdgeBottom) .Weight = xlHairlineFoi de lucru ("Sheet1"). Range ("D3"). Borders (xlEdgeTop) .Weight = xlThinFoi de lucru ("Sheet1"). Range ("D3"). Borders (xlEdgeBottom) .Weight = xlThinFoi de lucru ("Sheet1"). Range ("E3"). Borders (xlEdgeTop) .Weight = xlMediumFoi de lucru ("Sheet1"). Range ("E3"). Borders (xlEdgeBottom) .Weight = xlMediumFoi de lucru ("Sheet1"). Range ("F3"). Borders (xlEdgeTop) .Weight = xlThickFoi de lucru ("Sheet1"). Range ("F3"). Borders (xlEdgeBottom) .Weight = xlThick

Culorile de margine pot fi setate ca ColorIndex sau Color (RGB, număr de serie sau vbColor). Vedeți mai multe informații despre setările de culoare aici.

Puteți adăuga margini în jurul unui interval și cu o comandă pe o singură linie: