Bu dosya, bir ligdeki takımların birbirleriyle yapacağı maçları bir VBA makrosuyla otomatik olarak listeler. Takım adları A sütununa alt alta yazılır, düğmeye basıldığında olası tüm eşleşmeler C sütununda "Takım1 vs Takım2" biçiminde oluşturulur. Aynı mantık, Excel VBA ile kombinasyon üretmek için örnek olarak da kullanılabilir.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.
Dosyanın içeriği
- Sheet1: A sütununda Türkiye Süper Lig takımları (Adana Demirspor, Alanyaspor, Antalyaspor, Beşiktaş, Bodrum FK, Çaykur Rizespor, Eyüpspor, Fenerbahçe, Galatasaray, Gaziantep FK, Göztepe, Hatayspor ve diğerleri) alt alta yer alır. Sayfada eşleşmeleri oluşturan komut düğmesi bulunur; sonuçlar C sütununa yazılır.
Makrolar
- CommandButton1_Click: Sheet1 sayfasındaki düğmeye bağlıdır. A1 hücresinin bulunduğu bölgedeki (CurrentRegion) takım adlarını okur. Çalışmadan önce C sütunundaki eski sonuçları temizler. Ardından her takımı listede kendisinden sonra gelen tüm takımlarla eşleştirir; böylece her takım çifti yalnızca bir kez listelenir. Sonuçlar C1 hücresinden başlayarak alt alta yazılır. İşlem bitince C sütunu için baskı önizleme penceresi açılır.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- A sütununa ligdeki takım adlarını alt alta girin veya hazır Süper Lig listesini kullanın.
- Sheet1 sayfasındaki komut düğmesine tıklayın.
- C sütununda oluşan eşleşme listesini inceleyin; açılan baskı önizleme penceresinden yazdırabilir veya pencereyi kapatabilirsiniz.
- Takım listesini değiştirdikten sonra düğmeye yeniden basın; C sütunu yeni listeye göre baştan oluşturulur.