Kombinasyon Hesaplama

Kombinasyon Hesaplama​

Bu dosya, veriler sayfasının ilk satırındaki değerlerden kullanıcının belirlediği sayıda elemanlı tüm kombinasyonları makro ile üretir. Sonuçlar ayrı sonuç sayfalarına satır satır yazılır.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• veriler: A1:T1 aralığında 1'den 19'a kadar tek sayılar (1, 3, 5 ... 19) bulunur. Kombinasyonlar bu satırdaki değerlerden oluşturulur. Sayfada ayrıca makroyu başlatan düğme yer alır.
• kombinasyon1: Makro çalıştıktan sonra oluşan sonuç sayfasıdır. A1 hücresinde "Sonuçlar..." başlığı bulunur, kombinasyonlar A2 hücresinden itibaren her satıra bir kombinasyon gelecek biçimde sütunlara yazılır. Eleman sayısı kadar sütun kullanılır.

Makrolar​

• CommandButton1_Click: veriler sayfasındaki düğmeye bağlıdır. Önce veriler dışındaki tüm sayfaları uyarı vermeden siler, önceki çalıştırmadan kalan ModCombin modülünü kaldırır. Ardından "Kaçlı kombinasyon olsun ?" sorusunu sorar. Sıfırdan büyük bir sayı girilirse PrepareCode çağrılır.
• PrepareCode: Girilen sayıya göre iç içe döngülerden oluşan MyCombination prosedürünün kodunu üretir, ModCombin adlı yeni bir modüle ekler ve çalıştırır. Değer sayısı, 1. satırdaki son dolu sütundan belirlenir.
• MyCombination: Seçilen eleman sayısındaki kombinasyonları kombinasyon1 sayfasına yazar. Bir sayfa 65535 satıra ulaşınca kombinasyon2, kombinasyon3 gibi yeni sayfalar açılır. Dosyadaki mevcut kod 3'lü kombinasyon için üretilmiş örnektir.

Makrolar sayfa silme ve VBA modülü ekleme/kaldırma işlemleri yapar. Bu nedenle veriler dışındaki sayfalara eklediğiniz bilgiler her çalıştırmada silinir. Kod, VBA projesine erişim gerektirir; Excel'de "VBA proje nesne modeline erişime güven" seçeneğinin açık olması gerekir. Dışarıya bağlantı veya dosya silme işlemi yoktur.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. veriler sayfasının 1. satırına kombinasyonu yapılacak değerleri girin veya mevcut değerleri kullanın.
3. Sayfadaki düğmeye tıklayın.
4. Açılan kutuya kombinasyondaki eleman sayısını yazıp onaylayın.
5. Sonuçlar kombinasyon1 ve gerekirse sonraki sayfalarda listelenir.