Macro Kullanarak Excel'de Süslemeler Yapılması

Macro kullanarak Excel'de süsleme yapmak için aşağıda örnek kodlama verilmiştir. Bu örneği bilgisayarınızda Macro yazma sayfasına kopyalayıp deneyebilir, değerleri ihtiyacınıza göre değiştirebilirsiniz. Açıklamaları tekli tırnak kullanılarak (tekli tırnaktan sonra) yazılmıştır. 

Programı Excel'de oluşturduktan sonra Excel sayfasındayken bir dikdörtgen oluşturun, istediğiniz gibi renklendirin. Dikdörtgenin üzerine Süslemeler gibi bir etiket yazın. Bu dikdörtgen seçiliyken farenin sağ düğme menüsünden Makro Ata seçeneğini kullanarak bu Macro programının ismini seçin. 

Dikdörtgen bir düğme haline gelmiştir. Bu düğmeye basarak programda belirtilen süslemeleri yapın. Daha sonra, "=" işaretlerinin sağındaki değerleri istediğiniz gibi değiştirerek denemeler yapabilirsiniz. 

------------------------------------------------------------------------------------------------------------------

 Public Sub Suslemeler()

 Range("A1:H1").Select  'A1:H1 aralığını, yani başlığı seç
 Selection.Font.Bold = True  'Yazı Bold olsun
 Selection.WrapText = True   'Metni kaydır olsun

 With Selection
  .HorizontalAlignment = xlCenter  'Yazı yatayda ortalansın
  .VerticalAlignment = xlBottom    'Yazı düşeyde altta olsun
 End With
 
 Range("A1:H5").Select  'A1:H5 aralığını seç

 With Selection

  .Font.Size = 14     'Font 14 punto olsun
  .Font.Name = "Times New Roman"     'Font Times New Roman olsun
  .Font.Underline = True    'Altı çizgili olsun
  .Font.ColorIndex = 4 'Font Rengi = Yeşil
  .Interior.ColorIndex = 6 'Hücre İçi Rengi = Sarı
 End With

 Range("A:H").Select    'A:H aralığında kolonları seç

 Selection.Columns.AutoFit   'Kolon genişliği yazıya otomatik uysun
 Selection.Rows.AutoFit   'Satır yüksekliği yazıya otomatik uysun
 Columns("J").ColumnWidth = 30  'Kolon genişliği 30 olsun

 Range("J10").Select    'Hücreyi seç
 ActiveCell.Value = "Ahmet Yılmaz"   'Seçilen (Aktif) hücreye değer ata
    
 Columns("K:L").ColumnWidth = 20   'Kolon genişliği 20 olsun
 Rows("12").RowHeight = 50      'Satır yüksekliği 50 olsun
 Range("K12:L12").Select     'Hücreleri seç
 Selection.Font.Bold = True    'Yazı Bold olsun
 Selection.Font.Italic = True     'Yazı İtalik olsun
 Selection.Font.Underline = xlUnderlineStyleSingle       'Yazı altı çizgili olsun

 With Selection
   .HorizontalAlignment = xlCenter     'Yazı yatayda ortalansın
   .VerticalAlignment = xlBottom      'Yazı düşeyde altta olsun
   .WrapText = True     'Metni kaydır olsun
   .Orientation = 45      'Yazı 45 derece dönsün
   .MergeCells = True     'Hücreler birleştirilsin
   .Font.ColorIndex = 3
 End With

 Selection.Value = "Mehmet Yıldırım"     'Seçim aralığına değer ata
 With Selection.Interior    'Seçimdeki hücre içi
     .ColorIndex = 9    'Renk değiştirilsin
     .Pattern = xlSolid     'İçi dolu olsun
 End With

End Sub

------------------------------------------------------------------------------------------------------------------