✅ Bordi delle celle VBA

Sommario

Formattazione dei bordi

Questo tutorial mostrerà come regolare le impostazioni del bordo della cella in VBA.

Formattazione dei bordi

Bordo superiore - Doppia linea

Per prima cosa diamo un'occhiata a un esempio di come impostare un bordo superiore blu, spesso e doppio sulla cella B3 su Foglio1:

123456789

Sub EsempioSetBorder()Con fogli di lavoro ("Foglio1"). Intervallo ("B3"). Bordi (xlEdgeTop).LineStyle = xlDouble.Peso = xlSpesso.Indice Colore = 5Termina conFine sottotitolo

Nota che usiamo un'istruzione With per semplificare la nostra codifica.

Accediamo al bordo superiore con .Bordi(xlEdgeTop).

Altri confini cellulari

Invece puoi accedere ad altri bordi, comprese le diagonali:

123456

Fogli di lavoro("Foglio1").Intervallo("B2").Bordi(xlEdgeTop).Colore = RGB(128, 0, 0)Fogli di lavoro ("Foglio1"). Intervallo ("B2"). Bordi (xlEdgeRight). Colore = RGB (0, 255, 0)Fogli di lavoro ("Foglio1"). Intervallo ("B2"). Bordi (xlEdgeBottom). Colore = RGB (0, 0, 128)Fogli di lavoro ("Foglio1"). Intervallo ("B2"). Bordi (xlEdgeLeft). Colore = RGB (255, 0, 0)Fogli di lavoro("Foglio1").Intervallo("B2").Bordi(xlDiagonalDown).Colore = RGB(0, 0, 0)Fogli di lavoro("Foglio1").Intervallo("B2").Bordi(xlDiagonalUp).Colore = RGB(0, 0, 0)

All'interno dei confini

Puoi anche regolare i bordi orizzontali (xlInsideHorizontal) e verticali (xlInsideVertical) per tutte le celle in un intervallo:

12345

Con fogli di lavoro ("Foglio1"). Intervallo ("B2: C6"). Bordi (xlInsideHorizontal).LineStyle = xlDashDotDot.Peso = xlMedio.Indice Colore = 3Termina con

Stile linea

La proprietà LineStyle può essere modificata in xlContinuous, xlDot, xlDash, xlDashDot, xlDashDotDot, xlDouble, xlSlantDashDot e xlLineStyleNone.

La proprietà Weight può essere xlHariline, xlThin, xlMedium e xlThick. Avrai questo risultato con il codice qui sotto:

12345678

Fogli di lavoro ("Foglio1"). Intervallo ("C3"). Bordi (xlEdgeTop).Peso = xlAttaccatura dei capelliFogli di lavoro("Foglio1").Intervallo("C3").Bordi(xlEdgeBottom).Peso = xlAttaccatura dei capelliFogli di lavoro("Foglio1").Intervallo("D3").Bordi(xlEdgeTop).Peso = xlSottileFogli di lavoro ("Foglio1"). Intervallo ("D3"). Bordi (xlEdgeBottom).Peso = xlSottileFogli di lavoro("Foglio1").Intervallo("E3").Bordi(xlEdgeTop).Peso = xlMediumFogli di lavoro("Foglio1").Intervallo("E3").Bordi(xlEdgeBottom).Peso = xlMediumFogli di lavoro ("Foglio1"). Intervallo ("F3"). Bordi (xlEdgeTop).Peso = xlSpessoreFogli di lavoro ("Foglio1"). Intervallo ("F3"). Bordi (xlEdgeBottom).Peso = xlSpessore

I colori dei bordi possono essere impostati come ColorIndex o Color (RGB, numero di serie o vbColor). Vedi maggiori informazioni sulle impostazioni del colore qui.

Puoi aggiungere bordi attorno a un intervallo anche con un comando a una riga: