Makro ile Excel'de Bulma Örnekleri

Dosyanın içeriği​

• Speed sheet: Find yöntemi ile For/Next ve dizi yöntemlerinin hızı karşılaştırılır. Aranacak satır, eşit değer sayısı ve farklı değer sayısı açılır listelerden seçilir; süreler milisaniye olarak hücrelere yazılır.
• Examples 1: Tarih aralığında arama. Başlangıç ve bitiş tarihi arasındaki geçerli tarihler Find ile, aralık dışındaki tarihler dizi ile renklendirilir.
• Examples 2: Ters arama, sonraki kaydı bulma ve bulunan tüm kayıtları köprü bağlantılarıyla listeleme.
• Examples 3: Birden fazla aralıkta ve adlandırılmış aralıklarda (Items1, Items2, Items3, Flex) esnek arama.
• Examples 4: Tüm çalışma kitabı içinde arama ve sayfalardaki değerleri toplama.
• Examples 5: Joker karakterlerle (*, ?) arama ve xlPart / xlWhole seçeneğiyle metin değiştirme.
• Examples 6: Find ile Union yöntemini birleştirip "Crazy" geçen satırları toplu renklendirme.

Kullanılan formüller​

• TODAY ve C14+1 gibi basit formüller Examples 1 sayfasındaki tarih listelerini üretir.
• Examples 5 sayfasında bir değere karşılık gelen sonuç aranır:

=EĞER(C7="";"";DÜŞEYARA(C7;U1:V8;2;YANLIŞ))

=IF(C7="","",VLOOKUP(C7,U1:V8,2,FALSE))

Makrolar​

• Speed sheet: Altı demo düğmesi A sütununa test verisi yazar, aramayı Find, For/Next veya dizi ile yapar, süreyi Timer modülündeki timeGetTime ile ölçer ve sonucu hücreye yazar. Her demonun bilgi düğmesi açıklama penceresi gösterir.
• Examples 1: C7 hücresi değişince C9:F21 aralığında tam eşleşmeleri renklendirir; ayrıca değiştirme düğmesi seçilen metni "moron" ile değiştirir.
• Examples 2: FindPrevious ile ters arama, InputBox ile yeni arama, FindNext ile sonraki kayıt ve köprülü liste oluşturma.
• Examples 6: Eşleşen satırları gri, eşleşen hücreleri ayrı renkle boyar; sıfırlama düğmesi 13:47 satırlarındaki rengi kaldırır.
• Examples 3 ve 4: Çoklu aralık, esnek arama ve çalışma kitabı genelinde arama için düğme ve Worksheet_Change olayları bulunur.
• ThisWorkbook: Pencere etkin/pasif olurken ve kapanırken bir komut çubuğunu gizler, geri getirir ve siler.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Speed sheet sayfasında açılır listelerden değerleri seçip demo düğmelerine tıklayın; Find ve diğer yöntemlerin süreleri karşılaştırılır.
3. Examples sayfalarında ilgili düğmelere basın veya belirtilen hücreye değer girerek renklendirme, arama ve değiştirme sonuçlarını izleyin.
4. Kodları kendi dosyanıza uyarlamak için Alt+F11 ile VBA düzenleyicisini açın.