VBA sienos (žingsnis po žingsnio vadovas) Kaip nustatyti sienas naudojant „Excel VBA“?

Turinys

Sienos VBA „Excel“

Sienos VBA „Excel“

Mes naudojame kraštus „Excel“, norėdami pabrėžti savo duomenis, bet kurioje informacijos suvestinėje yra labai svarbus įgūdis atvaizduoti svarbius duomenis, o tai daro sienos, sienos yra VBA ypatybė, prie kurios galima pasiekti naudojant diapazono metodą ir suteikiant tinkamą sienos stilius, nes mes žinome, kad yra skirtingų sienų stilių.

Jei gerai formatuojate „Excel“, galite vadinti save „Excel kosmetologu“. Kad ataskaitos atrodytų patrauklios galutiniam vartotojui ar skaitytojams, formatavimas jose atlieka labai svarbų vaidmenį. Tikiuosi, kad jūs gerai žinote įprasto darbalapio formatavimo būdus. Formatavimui naudojant VBA kodavimą reikia nemažai VBA kodavimo kalbos. Šiame straipsnyje parodysime vieną iš labiausiai nuvertintų formatavimo būdų, ty taikant „Excel“ VBA kraštines.

VBA sienų pavyzdžiai

Pažvelkime į keletą pavyzdžių, kad tai geriau suprastume.

1 pavyzdys - pritaikykite VBA kraštus naudodami kodavimą

Sukūrę makrokomandą, kad pritaikytumėte „Excel“ VBA kraštus su skirtingais stiliais, kad jie būtų prieinami kaip priedas prie „Excel“ juostelės, darbas tampa lengvesnis, kai tik norime pritaikyti VBA kraštines.

Kiekvienas darbalapio langelis turi kraštus ir fono spalvas. Pagal numatytuosius nustatymus kiekviena langelis neturi krašto ir fono spalvos.

Darbalapyje, esančiame skirtuke HOME , mes turime sienų parinktį, o jei "Excel" paspausite išskleidžiamąjį sąrašą, turime daugybę galimybių.

Tačiau VBA pirmiausia turime nuspręsti langelį ar langelių diapazoną, kurį taikysime „Excel“ VBA sienų formatavimo stiliams. Taigi galime nurodyti langelių ar ląstelių diapazoną, naudojant objektą VBA RANGE. Pvz., Jei norite pakeisti langelio B5 kraštinę, galite parašyti kodą taip.

Diapazonas („B5“)

Tada turime patekti į „ Pasienio “ turtą.

Kodas:

Sub Border_Eample1 () diapazonas ("B5"). Bo End Sub

Pritaikę „Excel“ ypatybę „Borders“, atidarykite skliaustus, kad pamatytumėte visų rūšių krašto formatavimo parinktis.

Kodas:

Sub Border_Example1 () Range ("B5"). Borders (End Sub

Čia mes turime xlDiagonalDown, xlDiagonalUp, xlEdgeBottom, xlEdgeLeft, xlEdgeRight, xlEdgeTop, xlInsideHorizontal ir xlInsideVertical.

Pasirinkę kraštinės stilių, turime pasirinkti charakteristiką, su kuria norime dirbti. Vienas iš simbolių, kurį turime naudoti čia, yra „ Linijos stilius“, todėl pasirinkite ypatybę „Linijos stilius“.

Kodas:

Sub Border_Example1 () Range ("B5"). Borders (xlEdgeBottom) .li End Sub

Pasirinkę linijos stiliaus ypatybę, mes turime nustatyti linijos stiliaus tipą linijos arba sienų tipą VBA, kurį ketiname taikyti.

Įdėkite lygybės ženklą ir pasirinkite „XlLineStyle“ sąrašą.

Kodas:

Sub Border_Example1 () Range ("B5"). Borders (xlEdgeBottom) .LineStyle = XlLineStyle. Pabaigos sub

Įdėkite tašką, kad pamatytumėte visus galimus krašto stilius.

Kodas:

Čia mes turime daug galimybių. xlContinuous, xldash, xlDashDot, xlDashDotDot, xlDot, xlDouble, XlLineStyleNone ir xlSlantDashDot.

Gerai, dabar aš pasirinkau „ xlDouble “ parinktį.

Kodas:

Sub Border_Example1 () Range ("B5"). Borders (xlEdgeBottom) .LineStyle = XlLineStyle.xlDouble End Sub

Dabar, jei paleisiu kodą, jis dvigubą eilutę pritaikys langelio B5 apačioje .

Linijos tipas: „ xlContinuous “.

Kodas:

Sub Border_Example1 () Range ("B5"). Borders (xlEdgeBottom) .LineStyle = XlLineStyle.xlContinuous End Sub

Rezultatas:

Linijos tipas: „susidūrimas“.

Kodas:

Sub Border_Example1 () Range ("B5"). Borders (xlEdgeBottom) .LineStyle = XlLineStyle.xlDash End Sub

Rezultatas:

Linijos tipas: „ xlDashDot“.

Kodas:

Sub Border_Example1 () Range ("B5"). Borders (xlEdgeBottom) .LineStyle = XlLineStyle.xlDashDot End Sub

Rezultatas:

Linijos tipas: „ xlDashDotDot “.

Kodas:

Sub Border_Example1 () Range ("B5"). Borders (xlEdgeBottom) .LineStyle = XlLineStyle.xlDashDotDot End Sub

Rezultatas:

Linijos tipas: „ xlDot“.

Kodas:

Sub Border_Example1 () Range ("B5"). Borders (xlEdgeBottom) .LineStyle = XlLineStyle.xlDot End Sub Sub

Rezultatas:

Linijos tipas: „ xlLineStyleNone “.

Kodas:

Sub Border_Example1 () Range ("B5"). Borders (xlEdgeBottom) .LineStyle = XlLineStyle.xlLineStyleNone End Sub Sub

Rezultatas:

Tai pašalins nurodytos langelio ribą.

Linijos tipas: „ xlSlantDashDot “.

Kodas:

Sub Border_Example1 () Range ("B5"). Borders (xlEdgeBottom) .LineStyle = XlLineStyle.xlSlantDashDot End Sub

Rezultatas:

2 pavyzdys - pakeiskite kraštinę naudodami metodą VBA Borders Around

Taip pat galime pakeisti langelio ribas naudodami VBA Borders Around metodą. Kai bus paminėtas ląstelių ar ląstelių diapazonas, turime naudotis VBA Borders Around metodu.

Atidarykite skliaustus, kad pamatytumėte visus parametrus.

Diapazonas („B5“). „BorderAround“ ((Linijos stilius), (Svoris kaip xlBorderWeight), („ColorIndex“), (Spalva), (Temos spalva))

Galime paminėti linijos stilių, linijos spalvą, krašto svorį ir daugelį kitų dalykų, kuriuos galime padaryti naudodami šį metodą.

Kodas:

Sub Border_Eample1 () Diapazonas ("B5"). BorderAround LineStyle: = xlNuolatinis, Svoris: = xlThick End Sub

Tai pakeis linijos stilių į xlContinuous.

„LineStyle“: = xlNuolatinis

Pasienio svoris yra storas.

Svoris: = xlThick

Šio kodo rezultatas yra toks, koks yra žemiau.

Panašiai, naudodamiesi „Excel VBA Borders and Border Around“ ypatybėmis ir metodais, mes galime pakeisti sieną ir sienų elementus naudodami VBA kodavimą.

Rekomenduojami straipsniai

Tai buvo VBA sienų vadovas. Čia mes sužinosime, kaip nustatyti kraštus naudojant „Excel VBA“ kodavimą, kartu su praktiniais pavyzdžiais ir atsisiunčiamais kodo šablonais. Taip pat galite peržiūrėti kitus straipsnius, susijusius su „Excel VBA“ -