Ten samouczek pokaże, jak dostosować ustawienia obramowania komórki w VBA.
Formatowanie obramowań
Górna krawędź - linia podwójna
Najpierw spójrzmy na przykład, jak ustawić niebieską, grubą, podwojoną górną ramkę do komórki B3 w Arkuszu 1:
| 123456789 | Sub PrzykładZestawBorder()Z Arkuszami("Arkusz1").Range("B3").Borders(xlEdgeTop).LineStyle = xlDouble.Waga = xlGruby.KolorIndeks = 5Kończyć zNapis końcowy |
Zauważ, że używamy instrukcji With, aby uprościć nasze kodowanie.
Do górnej granicy docieramy z .Granice(xlEdgeTop).
Inne granice komórek
Zamiast tego możesz uzyskać dostęp do innych granic, w tym przekątnych:
| 123456 | Arkusze("Arkusz1").Range("B2").Borders(xlEdgeTop).Color = RGB(128, 0, 0)Arkusze("Arkusz1").Range("B2").Borders(xlEdgeRight).Color = RGB(0, 255, 0)Arkusze("Arkusz1").Range("B2").Borders(xlEdgeBottom).Color = RGB(0, 0, 128)Arkusze("Arkusz1").Range("B2").Borders(xlEdgeLeft).Color = RGB(255, 0, 0)Arkusze("Arkusz1").Range("B2").Borders(xlDiagonalDown).Color = RGB(0, 0, 0)Arkusze("Arkusz1").Range("B2").Borders(xlDiagonalUp).Color = RGB(0, 0, 0) |
Wewnętrzne granice
Możesz także dostosować obramowanie poziome (xlInsideHorizontal) i pionowe (xlInsideVertical) dla wszystkich komórek w zakresie:
| 12345 | Z arkuszami roboczymi("Arkusz1").Range("B2:C6").Borders(xlInsideHorizontal).LineStyle = xlDashDotDot.Waga = xlŚrednia.KolorIndeks = 3Kończyć z |
Styl linii
Właściwość LineStyle można zmienić na xlContinuous, xlDot, xlDash, xlDashDot, xlDashDotDot, xlDouble, xlSlantDashDot i xlLineStyleNone.
Właściwość Weight może mieć wartość xlHariline, xlThin, xlMedium i xlThick. Otrzymasz ten wynik z poniższym kodem:
| 12345678 | Worksheets("Arkusz1").Range("C3").Borders(xlEdgeTop).Weight = xlHairlineWorksheets("Arkusz1").Range("C3").Borders(xlEdgeBottom).Weight = xlHairlineArkusze("Arkusz1").Range("D3").Borders(xlEdgeTop).Weight = xlThinArkusze("Arkusz1").Range("D3").Borders(xlEdgeBottom).Weight = xlThinArkusze("Arkusz1").Range("E3").Borders(xlEdgeTop).Weight = xlMediumArkusze("Arkusz1").Range("E3").Borders(xlEdgeBottom).Weight = xlMediumArkusze("Arkusz1").Range("F3").Borders(xlEdgeTop).Weight = xlThickArkusze("Arkusz1").Range("F3").Borders(xlEdgeBottom).Weight = xlThick |
Kolory obramowania można ustawić jako ColorIndex lub Color (RGB, numer seryjny lub vbColor). Więcej informacji o ustawieniach kolorów znajdziesz tutaj.
Możesz również dodać obramowanie wokół zakresu za pomocą polecenia jednowierszowego:
| 1 | Zakres("B5:C7").BorderAround LineStyle:=xlContinuous, Weight:=xlThick, Color:=vbRed |
