Ši pamoka parodys, kaip koreguoti langelio kraštinių nustatymus VBA.
Sienų formatavimas
Viršutinė siena - dviguba linija
Pirmiausia pažvelkime į pavyzdį, kaip nustatyti 1 lapo langelio B3 mėlyną, storą, dvigubą viršutinę kraštą:
| 123456789 | Antrasis pavyzdysSetBorder ()Su darbalapiais („Sheet1“). Diapazonas („B3“). Rėmeliai (xlEdgeTop).LineStyle = xlDvigubas.Svoris = xlTirštas.ColorIndex = 5Pabaiga suPabaiga Sub |
Atkreipkite dėmesį, kad kodavimui naudojame supaprastintą pareiškimą.
Prieiname viršutinę sieną su .Borders (xlEdgeTop).
Kitos ląstelių ribos
Vietoj to galite pasiekti kitas sienas, įskaitant įstrižaines:
| 123456 | Darbo lapai („Sheet1“). Diapazonas („B2“). Rėmeliai („xlEdgeTop“). Spalva = RGB (128, 0, 0)Darbo lapai („Sheet1“). Diapazonas („B2“). Rėmeliai (xlEdgeRight). Spalva = RGB (0, 255, 0)Darbo lapai („Sheet1“). Diapazonas („B2“). Rėmeliai (xlEdgeBottom). Spalva = RGB (0, 0, 128)Darbo lapai („Sheet1“). Diapazonas („B2“). Rėmeliai (xlEdgeLeft). Spalva = RGB (255, 0, 0)Darbo lapai („Sheet1“). Diapazonas („B2“). Rėmeliai (xlDiagonalDown). Spalva = RGB (0, 0, 0)Darbo lapai („Sheet1“). Diapazonas („B2“). Rėmeliai (xlDiagonalUp). Spalva = RGB (0, 0, 0) |
Sienų viduje
Taip pat galite koreguoti horizontalias (xlInsideHorizontal) ir vertikalias (xlInsideVertical) kraštines visoms diapazono ląstelėms:
| 12345 | Su darbalapiais („Sheet1“). Diapazonas („B2: C6“). Rėmeliai (xlInsideHorizontal).LineStyle = xlDashDotDot.Svoris = xlVidutinis.ColorIndex = 3Pabaiga su |
LineStyle
„LineStyle“ ypatybę galima pakeisti į „xlContinuous“, „xlDot“, „xlDash“, „xlDashDot“, „xlDashDotDot“, „xlDouble“, „xlSlantDashDot“ ir „xlLineStyleNone“.
Savybė Svoris gali būti xlHariline, xlThin, xlMedium ir xlThick. Šį rezultatą gausite naudodami toliau pateiktą kodą:
| 12345678 | Darbo lapai („Sheet1“). Diapazonas („C3“). Rėmeliai (xlEdgeTop). Svoris = xlHairlineDarbo lapai („Sheet1“). Diapazonas („C3“). Rėmeliai (xlEdgeBottom). Svoris = xlHairlineDarbo lapai („Sheet1“). Diapazonas („D3“). Rėmeliai (xlEdgeTop). Svoris = xlThinDarbo lapai („Sheet1“). Diapazonas („D3“). Rėmeliai (xlEdgeBottom). Svoris = xlThinDarbo lapai ("Sheet1"). Diapazonas ("E3"). Rėmeliai (xlEdgeTop). Svoris = xlMediumDarbo lapai („Sheet1“). Diapazonas („E3“). Rėmeliai (xlEdgeBottom). Svoris = xlMediumDarbo lapai („Sheet1“). Diapazonas („F3“). Rėmeliai (xlEdgeTop). Svoris = xlThickDarbo lapai („Sheet1“). Diapazonas („F3“). Rėmeliai (xlEdgeBottom). Svoris = xlThick |
Apvado spalvas galima nustatyti kaip „ColorIndex“ arba „Color“ (RGB, serijos numeris arba „vbColor“). Daugiau informacijos apie spalvų nustatymus rasite čia.
Taip pat galite pridėti kraštus aplink diapazoną naudodami vienos eilutės komandą:
| 1 | Diapazonas („B5: C7“). „BorderAround LineStyle“: = xlTęstinis, svoris: = xlTirštas, spalva: = vbRed |
