Tämä opetusohjelma näyttää, miten voit säätää solurajan asetuksia VBA: ssa.
Reunojen muotoilu
Yläreuna - kaksoisviiva
Tarkastellaan ensin esimerkkiä siitä, kuinka asettaa sininen, paksu, kaksinkertainen yläreuna taulukon 1 solulle B3:
| 123456789 | AlaesimerkkiSetBorder ()Laskentataulukoilla ("Sheet1"). Alue ("B3"). Reunukset (xlEdgeTop).LineStyle = xlDoublePaino = xlPaksu.ColorIndex = 5LopetaEnd Sub |
Huomaa, että käytämme With Statementia koodauksen yksinkertaistamiseen.
Pääsemme ylärajalle .Borders (xlEdgeTop).
Muut solurajat
Sen sijaan voit käyttää muita reunoja, mukaan lukien lävistäjät:
| 123456 | Laskentataulukot ("Sheet1"). Alue ("B2"). Reunukset (xlEdgeTop) .Väri = RGB (128, 0, 0)Laskentataulukot ("Sheet1"). Alue ("B2"). Reunukset (xlEdgeRight) .Väri = RGB (0, 255, 0)Laskentataulukot ("Sheet1"). Alue ("B2"). Reunukset (xlEdgeBottom) .Väri = RGB (0, 0, 128)Laskentataulukot ("Sheet1"). Alue ("B2"). Reunukset (xlEdgeLeft) .Väri = RGB (255, 0, 0)Laskentataulukot ("Sheet1"). Alue ("B2"). Reunukset (xlDiagonalDown) .Väri = RGB (0, 0, 0)Laskentataulukot ("Sheet1"). Alue ("B2"). Reunukset (xlDiagonalUp) .Väri = RGB (0, 0, 0) |
Rajat sisällä
Voit myös säätää vaakasuuntaisia (xlInsideHorizontal) ja pystysuoria (xlInsideVertical) reunoja kaikille alueen soluille:
| 12345 | Laskentataulukoilla ("Sheet1"). Alue ("B2: C6"). Reunat (xlInsideHorizontal).LineStyle = xlDashDotDotPaino = xlKeskimääräinen.ColorIndex = 3Lopeta |
LineStyle
LineStyle -ominaisuuden voi muuttaa xlContinuous, xlDot, xlDash, xlDashDot, xlDashDotDot, xlDouble, xlSlantDashDot ja xlLineStyleNone.
Paino -ominaisuus voi olla joko xlHariline, xlThin, xlMedium ja xlThick. Saat tämän tuloksen alla olevalla koodilla:
| 12345678 | Laskentataulukot ("Sheet1"). Alue ("C3"). Reunukset (xlEdgeTop) .Paino = xlHiuksetLaskentataulukot ("Sheet1"). Alue ("C3"). Reunukset (xlEdgeBottom) .Paino = xlHiuksetLaskentataulukot ("Sheet1"). Alue ("D3"). Reunukset (xlEdgeTop) .Paino = xlOhutLaskentataulukot ("Sheet1"). Alue ("D3"). Reunukset (xlEdgeBottom) .Paino = xlOhutLaskentataulukot ("Sheet1"). Alue ("E3"). Reunukset (xlEdgeTop) .Paino = xlMediumLaskentataulukot ("Sheet1"). Alue ("E3"). Reunukset (xlEdgeBottom) .Paino = xlMediumLaskentataulukot ("Sheet1"). Alue ("F3"). Reunukset (xlEdgeTop) .Paino = xlPaksuLaskentataulukot ("Sheet1"). Alue ("F3"). Reunukset (xlEdgeBottom) .Paino = xlPaksu |
Reunuksen väreiksi voidaan asettaa ColorIndex tai Color (RGB, sarjanumero tai vbColor). Katso lisätietoja väriasetuksista täältä.
Voit lisätä rajoja alueen ympärille myös yksirivisellä komennolla:
| 1 | Alue ("B5: C7"). BorderAround LineStyle: = xlJatkuva, Paino: = xlPaksu, Väri: = vbPunainen |
