Bu dosya, A sütunundaki isim listesinde UserForm üzerinden arama yapmayı gösterir. İki arama türü vardır: tam eşleşmede aranan isim bulunup hücresi seçilir, yaklaşık eşleşmede ise Soundex koduna göre benzer okunuşlu isimler ayrı bir formda alfabetik olarak listelenir.
Dosyanın içeriği
- Sheet1: A1:B4023 aralığında, A sütununda NAME başlığı altında yaklaşık 4000 isim yer alır (Crician, Audra, Aleeza, Felicia gibi). Yaklaşık eşleşme aramasında B sütunundaki Soundex kodları kullanılır.
- UserForm1: Aranacak ismin yazıldığı kutu, tam eşleşme ve yaklaşık eşleşme seçenekleri ile arama ve çıkış düğmelerini içeren arama formudur.
- UserForm2: Yaklaşık eşleşme sonuçlarının ListBox içinde gösterildiği formdur; Git ve İptal düğmeleri bulunur.
Makrolar
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Makrolar yalnızca açık çalışma kitabındaki verilerle çalışır; dosya silme ya da dış bağlantı işlemi içermez.- ShowUserForm: Arama formunu (UserForm1) açar. Makro listesinden çalıştırılır.
- SOUNDEX: Girilen soyadı ya da ismi dört karakterli Soundex koduna çevirir. İlk harf korunur, diğer harfler sesli benzerliklerine göre rakamlara dönüştürülür; çift harfler ve sesli harfler elenir, sonuç gerekirse sıfırla tamamlanır.
- Category: SOUNDEX işlevinin kullandığı yardımcı işlevdir; her harfin kod karşılığını verir.
- FindButton_Click: Tam eşleşmede A sütununda aranan ismi bulur ve hücreyi seçer; bulunamazsa uyarı verir. Yaklaşık eşleşmede B sütunundaki kodlarla eşleşen isimleri toplar, alfabetik sıralar ve UserForm2 içinde gösterir.
- GoButton_Click ve ListBox1_DblClick: Listede seçilen ismi A sütununda bulup hücresine gider; çift tıklama aynı işlemi yapar.
- ExitButton_Click ve CancelButton_Click: Açık formu kapatır.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- Makro listesinden ShowUserForm makrosunu çalıştırın.
- Kutuya aranacak ismi yazın ve tam ya da yaklaşık eşleşme seçeneğini işaretleyin.
- Arama düğmesine basın. Tam eşleşmede ilgili hücre seçilir.
- Yaklaşık eşleşmede açılan listeden bir isim seçip Git düğmesine basın veya ismi çift tıklayın.