Bu öğretici, VBA'da hücre sınırı ayarlarının nasıl ayarlanacağını gösterecektir.
Kenarlıkları Biçimlendirme
Üst Bordür - Çift Hat
İlk önce, Sayfa1'deki B3 hücresine mavi, kalın, ikiye katlanmış bir üst kenarlığın nasıl ayarlanacağına dair bir örneğe bakalım:
| 123456789 | Alt ÖrnekSetBorder()Çalışma Sayfaları ile("Sayfa1").Range("B3").Borders(xlEdgeTop).LineStyle = xlDouble.Ağırlık = xlKalın.ColorIndex = 5İle bitmekAlt Bitiş |
Kodlamamızı basitleştirmek için With Statement kullandığımıza dikkat edin.
Üst sınıra erişiyoruz .Borders(xlEdgeTop).
Diğer Hücre Sınırları
Bunun yerine köşegenler dahil diğer sınırlara erişebilirsiniz:
| 123456 | Worksheets("Sayfa1").Range("B2").Borders(xlEdgeTop).Color = RGB(128, 0, 0)Worksheets("Sayfa1").Range("B2").Borders(xlEdgeRight).Color = RGB(0, 255, 0)Worksheets("Sayfa1").Range("B2").Borders(xlEdgeBottom).Color = RGB(0, 0, 128)Worksheets("Sayfa1").Range("B2").Borders(xlEdgeLeft).Color = RGB(255, 0, 0)Worksheets("Sayfa1").Range("B2").Borders(xlDiagonalDown).Color = RGB(0, 0, 0)Worksheets("Sayfa1").Range("B2").Borders(xlDiagonalUp).Color = RGB(0, 0, 0) |
İç Sınırlar
Bir aralıktaki tüm hücreler için yatay (xlInsideHorizontal) ve dikey (xlInsideVertical) kenarlıkları da ayarlayabilirsiniz:
| 12345 | Çalışma Sayfaları ile("Sayfa1").Range("B2:C6").Borders(xlInsideHorizontal).LineStyle = xlDashDotDot.Ağırlık = xlOrta.ColorIndex = 3İle bitmek |
Çizgi Stili
LineStyle özelliği, xlContinuous, xlDot, xlDash, xlDashDot, xlDashDotDot, xlDouble, xlSlantDashDot ve xlLineStyleNone olarak değiştirilebilir.
Weight özelliği xlHariline, xlThin, xlMedium ve xlThick olabilir. Bu sonucu aşağıdaki kodla alacaksınız:
| 12345678 | Worksheets("Sayfa1").Range("C3").Borders(xlEdgeTop).Weight = xlHairlineWorksheets("Sayfa1").Range("C3").Borders(xlEdgeBottom).Weight = xlHairlineWorksheets("Sayfa1").Range("D3").Borders(xlEdgeTop).Weight = xlThinWorksheets("Sayfa1").Range("D3").Borders(xlEdgeBottom).Weight = xlThinWorksheets("Sayfa1").Range("E3").Borders(xlEdgeTop).Weight = xlMediumWorksheets("Sayfa1").Range("E3").Borders(xlEdgeBottom).Weight = xlMediumWorksheets("Sayfa1").Range("F3").Borders(xlEdgeTop).Weight = xlThickWorksheets("Sayfa1").Range("F3").Borders(xlEdgeBottom).Weight = xlThick |
Kenarlık renkleri ColorIndex veya Color (RGB, seri numarası veya vbColor) olarak ayarlanabilir. Renk ayarları hakkında daha fazla bilgiyi burada bulabilirsiniz.
Tek satırlık bir komutla da bir aralığın etrafına kenarlıklar ekleyebilirsiniz:
| 1 | Range("B5:C7").BorderAround LineStyle:=xlSürekli, Ağırlık:=xlKalın, Renk:=vbKırmızı |
