Bu dosya, bir UserForm üzerindeki ListBox'ta çalışma sayfasındaki verileri ADO bağlantısıyla listeler. Oran sütunu sorgu içinde biçimlendirildiği için değerler ListBox'a doğrudan yüzde olarak gelir. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.
Bu ifade ORAN değerini binlik ayraçlı ve bir ondalık basamaklı yüzde olarak döndürür.
Dosyanın içeriği
- veriler sayfası: A1:E3 aralığında başlık satırı ve veri satırları bulunur. Sütunlar ID, ADI, SOYADI, ORAN ve MAAŞ alanlarına karşılık gelir.
- UserForm1: Üzerinde 5 sütunlu bir ListBox (ListBox1) vardır.
- Module1: ADO bağlantısını kuran Baglanti_Yap yordamını içerir.
Kullanılan formüller
Sayfada hücre formülü yoktur. Yüzde biçimlendirmesi, UserForm içindeki SQL sorgusunda FORMAT fonksiyonuyla yapılır. Sorgudaki ilgili ifade şöyledir:FORMAT(ORAN, '#,##0.0%')
Makrolar
- Baglanti_Yap (Module1): Genel bir ADODB bağlantı nesnesi oluşturur. Bağlantı, Microsoft.ACE.OLEDB.12.0 sağlayıcısı ve Excel 12.0 özellikleriyle, başlık satırı kabul edilerek (hdr=yes) çalışma kitabının kendi dosyasına kurulur. Excel sürümü 12.0, 14.0, 15.0 ve 16.0 için aynı bağlantı dizesi kullanılır. Bağlantı zaten açıksa kapatılır ve yordamdan çıkılır.
- UserForm_Initialize (UserForm1): Form açılırken Baglanti_Yap çağrılır. Ardından veriler sayfasından ID, ADI, SOYADI, biçimlendirilmiş ORAN ve MAAŞ alanları sorgulanır. Kayıt varsa sonuç ListBox1'e 5 sütun olarak aktarılır.
- UserForm_Click: Boş bir olay yordamıdır, işlem yapmaz.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- VBA düzenleyicisinde (Alt+F11) UserForm1 formunu çalıştırın (F5).
- ListBox'ta veriler sayfasındaki kayıtlar, oran sütunu yüzde biçiminde olacak şekilde listelenir.
- Kendi verinizi kullanmak için veriler sayfasındaki satırları değiştirin; sütun başlıkları sorgudaki alan adlarıyla aynı kalmalıdır.
- Sütun genişlikleri için UserForm1 kodunda yorum satırı olarak duran ColumnWidths satırı kullanılabilir.