Bu öğretici, VBA kullanarak hücrelerin nasıl biçimlendirileceğini gösterecektir.
Hücreleri Biçimlendirme
Bunun gibi (bir dizi) hücre için ayarlanabilecek birçok özellik vardır:
| 1234567891011 | Alt SetCellFormat()Çalışma Sayfaları ile("Sayfa1").Range("B5:C7").HorizontalAlignment = xlHAlignDistributed.AddIndent = Doğru.Font.FontStyle = "İtalik".NumberFormat = "Genel".İç.Renk = RGB(128, 100, 250)İle bitmekAlt Bitiş |
Bunları alfabetik sırayla görelim:
AddIndent
Bu özelliğin değeri True olarak ayarlandığında, hücredeki metin hizalaması yatay veya dikey olarak eşit dağılıma ayarlandığında metin otomatik olarak girintilenir (bkz. HorizontalAlignment ve VerticalAlignment).
| 12345 | Çalışma Sayfaları ile("Sayfa1").Range("A1").Oryantasyon = xlVertical.VerticalAlignment = xlVALignDistributed.AddIndent = Doğruİle bitmek |
Sınırlar
Bir hücrenin kenarlık biçimini ayarlayabilirsiniz. Sınırlar hakkında daha fazla bilgi için buraya bakın.
Örnek olarak, Sayfa 1'deki B2 hücresinin etrafına kırmızı kesikli bir çizgi şu şekilde ayarlayabilirsiniz:
| 1 | Worksheets("Sheet1").Range("B2").BorderAround LineStyle:=xlDash, ColorIndex:=3 |
Yazı tipi
Yazı tipi adını, stilini, boyutunu, rengini ayarlayarak, alt çizgi ve/veya efektler (üstü çizili, alt veya üst simge) ekleyerek hücrenin yazı tipi biçimini ayarlayabilirsiniz. Hücre yazı tipleri hakkında daha fazla bilgi için buraya bakın.
İşte bazı örnekler:
| 12345 | Aralık ("A1:C5") ile. Yazı Tipi.Ad = "Yüzyıl".FontStyle = "Kalın".Üst çizili = Doğruİle bitmek |
formülGizli
Bu özellik, çalışma sayfası korunduğunda formülün gizlenip gizlenmeyeceğini belirten bir değişken değeri döndürür veya ayarlar. Örneğin:
| 1 | Worksheets("Sayfa1").Range("A1:B1").FormulaHidden = True |
Yatay hizalama
Bu özellik hücre formatı özelliği, belirtilen nesne için yatay hizalamayı temsil eden bir değişken değeri döndürür veya ayarlar. Döndürülen veya ayarlanan sabitler şunlar olabilir: xlGeneral, xlCenter, xlDistributed, xlJustify, xlLeft, xlRight, xlFill, xlCenterAcrossSelection. Örneğin:
| 1 | Worksheets("Sayfa1").Range("D3").HorizontalAlignment = xlRight |
Girinti Düzeyi
Hücre veya aralık için girinti düzeyini temsil eden 0 ile 15 arasında bir tamsayı değeri döndürür veya ayarlar.
| 1 | Worksheets("Sayfa1").Range("A1").IndentLevel = 7 |
İç mekan
Hücrenin iç kısmı hakkında ayarlayabilir veya döndürülen bilgileri alabilirsiniz: Color, ColorIndex, Pattern, PatternColor, PatternColorIndex, PatternThemeColor, PatternTintAndShade, ThemeColor, TintAndShade, bunun gibi:
| 123 | Değilse Range("A1").Interior.ThemeColor = ThemeColorLight2 SonraRange("A1").Interior.Pattern = xlPatternUpBitir |
Kilitli
Bu özellik, hücre veya aralık kilitliyse True, sayfa korunurken nesne değiştirilebilirse False veya belirtilen aralık hem kilitli hem de kilitli olmayan hücreler içeriyorsa Null döndürür. Hücreleri kilitlemek veya kilidini açmak için de kullanılabilir.
Bu örnek, sayfa korunduğunda değiştirilebilmesi için Sayfa1'deki A1:B2 hücrelerinin kilidini açar.
| 12 | Worksheets("Sayfa1").Range("A1:B2").Locked = FalseÇalışma Sayfaları("Sayfa1").Koru |
MergeHücreler
Bir aralığı birleştirmeniz gerekiyorsa bu özelliği True olarak ayarlayın. Belirtilen aralık birleştirilmiş hücreler içeriyorsa değeri True olur. Örneğin, C5:D7 aralığını birleştirmeniz gerekiyorsa, bu kodu kullanabilirsiniz:
| 1 | Worksheets("Sayfa1").Range("C5:D7").MergeCells = True |
Sayı Biçimi
Hücre(ler) içindeki sayı biçimini Genel, Sayı, Para Birimi, Muhasebe, Tarih, Saat, Yüzde, Kesir, Bilimsel, Metin, Özel ve Özel olarak ayarlayabilirsiniz.
İşte bilimsel ve yüzde sayı biçimlerinin örnekleri:
| 12 | Aralık("A1").NumberFormat = "0.00E+00"Aralık("B1").NumberFormat = "0,00%" |
SayıFormatYerel
Bu özellik, kullanıcının dilinde bir dize olarak nesnenin biçim kodunu temsil eden bir değişken değeri döndürür veya ayarlar.
Oryantasyon
Bu özellik ile hücre(ler) içindeki metin yönlendirmesini ayarlayabilir (veya döndürülmesini sağlayabilirsiniz). Değeri şu sabitlerden biri olabilir: xlDownward, xlHorizontal, xlUpward, xlVertical veya -90 ile 90 derece arasında bir tamsayı değeri.
| 1 | Çalışma Sayfaları("Sayfa1").Range("A1").Oryantasyon = -60 |
ebeveyn
Bu, belirtilen bir nesnenin üst nesnesini döndüren salt okunur bir özelliktir.
Sığdırmak için küçültmek
Bu özellik, metnin mevcut sütun genişliğine sığacak şekilde otomatik olarak küçülüp küçülmediğini gösteren bir değişken değeri döndürür veya ayarlar.
| 1 | Worksheets("Sayfa1").Range("A1").ShrinkToFit = True |
Dikey hizalama
Bu özellik hücre formatı özelliği, belirtilen nesne için dikey hizalamayı temsil eden bir değişken değeri döndürür veya ayarlar. Döndürülen veya ayarlanan sabitler şunlar olabilir: xlCenter, xlDistributed, xlJustify, xlBottom, xlTop. Örneğin:
| 1 | Worksheets("Sayfa1").Range("A1").VerticalAlignment = xlTop |
Sarma Metni
Bu özellik, metin belirtilen aralıktaki tüm hücrelere sarılmışsa True, belirtilen aralıktaki tüm hücrelere metin sarılmamışsa False veya belirtilen aralık, metni kaydıran bazı hücreler içeriyorsa ve diğer hücreleri kaydırmayan diğer hücreler içeriyorsa Null döndürür.
Örneğin, bu hücre aralığına sahipseniz:
aşağıdaki kod, Anında Pencerede Null değerini döndürür:
| 1 | ?Worksheets("Sayfa1").Range("A1:B1").WrapText |
