ListView Sütun Başlıklarını Hizalama

ListView Sütun Başlıklarını Hizalama içeriğinde, UserForm nesnesi üzerindeki ListView’in sütunlarıın hizalanmasını sağlayan hazır makrolar yer almaktadır.

Private Sub UserForm_Activate()
  Dim XD As Long
        With ListView1
            For XD = 2 To .ColumnHeaders.Count
                .ColumnHeaders.Item(XD).Alignment = lvwColumnCenter
            Next XD
        End With
    XD = Empty
End Sub

ListView Sütun Başlıklarını Hizalama Uygulama Adımları

1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
2. Project – VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
3. Araç çubuklarından Insert -> UserForm yazısına tıklayın.
4. Solunda klasör simgesi olan Forms yazısının başındaki + simgesine tıklayın.
5. Alt kısma eklenen UserForm(1) yazısına çift tıklayın.
6. Üstteki kodu yapıştırın.

Kod Açıklaması

Üstteki kodları bir UserForm nesnesine eklemeniz gerekemektedir. Ayrıca, UserForm üzerinde bir tane de ListView nesnesi eklemeniz gerekmektedir. Lakin, çok güzel bir listeleme özelliklerine sahip olan bu nesne, 64 bit Ofis Sürümlerinde kodlar çalışmamaktadır.