Ovaj će vodič pokazati kako prilagoditi postavke obruba ćelije u VBA -i.
Oblikovanje ivica
Gornja granica - dvostruka linija
Prvo pogledajmo primjer kako postaviti plavu, debelu, udvostručenu gornju granicu ćelije B3 na listu 1:
| 123456789 | PodprimjerSetBorder ()S radnim listovima ("Sheet1"). Raspon ("B3"). Granice (xlEdgeTop).LineStyle = xlDvostruko.Težina = xlDebela.Indeks boje = 5Završi sKraj podm |
Uočite da koristimo Statement With za pojednostavljivanje kodiranja.
Gornjoj granici pristupamo s .Granice (xlEdgeTop).
Ostale ćelijske granice
Umjesto toga možete pristupiti drugim granicama, uključujući dijagonale:
| 123456 | Radni listovi ("List1"). Raspon ("B2"). Granice (xlEdgeTop). Boja = RGB (128, 0, 0)Radni listovi ("List1"). Raspon ("B2"). Granice (xlEdgeRight). Boja = RGB (0, 255, 0)Radni listovi ("List1"). Raspon ("B2"). Granice (xlEdgeBottom). Boja = RGB (0, 0, 128)Radni listovi ("List1"). Raspon ("B2"). Granice (xlEdgeLeft). Boja = RGB (255, 0, 0)Radni listovi ("List1"). Raspon ("B2"). Granice (xlDiagonalDown). Boja = RGB (0, 0, 0)Radni listovi ("List1"). Raspon ("B2"). Granice (xlDiagonalUp). Boja = RGB (0, 0, 0) |
Unutrašnje granice
Također možete prilagoditi vodoravne (xlInsideHorizontalne) i okomite (xlInsideVertical) granice za sve ćelije u rasponu:
| 12345 | S radnim listovima ("List1"). Raspon ("B2: C6"). Ivice (xlInsideHorizontal).LineStyle = xlDashDotDot.Težina = xlSrednja.Indeks boje = 3Završi s |
LineStyle
Svojstvo LineStyle može se promijeniti u xlContinuous, xlDot, xlDash, xlDashDot, xlDashDotDot, xlDouble, xlSlantDashDot i xlLineStyleNone.
Svojstvo Weight može biti xlHariline, xlThin, xlMedium i xlThick. Dobit ćete ovaj rezultat s donjim kodom:
| 12345678 | Radni listovi ("List1"). Raspon ("C3"). Granice (xlEdgeTop). Težina = xlVodna linijaRadni listovi ("List1"). Raspon ("C3"). Granice (xlEdgeBottom). Težina = xlVolnicaRadni listovi ("List1"). Raspon ("D3"). Granice (xlEdgeTop). Težina = xlTanakRadni listovi ("List1"). Raspon ("D3"). Granice (xlEdgeBottom). Težina = xlTanakRadni listovi ("List1"). Raspon ("E3"). Granice (xlEdgeTop). Težina = xlMediumRadni listovi ("List1"). Raspon ("E3"). Granice (xlEdgeBottom). Težina = xlSrednjiRadni listovi ("List1"). Raspon ("F3"). Granice (xlEdgeTop). Težina = xlDebelaRadni listovi ("List1"). Raspon ("F3"). Granice (xlEdgeBottom). Težina = xlDebela |
Boje obruba mogu se postaviti kao ColorIndex ili Color (RGB, serijski broj ili vbColor). Više informacija o postavkama boja pogledajte ovdje.
Granice oko raspona možete dodati i naredbom u jednom retku:
| 1 | Raspon ("B5: C7"). BorderAround LineStyle: = xlContinuous, Weight: = xlThick, Color: = vbRed |
