Bu dosya, InputBox ile girilen değerin sayfada aranmasını ve bulunan her hücrenin adresi ile içeriğinin mesaj kutusunda gösterilmesini örnekler. Aynı iş için iki farklı yöntem içerir: Find/FindNext tabanlı klasik arama ve hücre hücre dolaşan alternatif arama. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.
Dosyanın içeriği
- Sayfa1: A1:D18 aralığında deneme amaçlı metinler bulunur (ak, akbaba, ayakkabı, apak, baraka gibi). Arama bu veriler üzerinde denenir.
- Module1: KlasikBul ve AlternatifBul makroları bu modüldedir.
Makrolar
- KlasikBul: InputBox ile aranacak değer istenir. A1:D500 aralığında Find yöntemi kullanılır; arama değerlerde yapılır, metnin bir kısmının eşleşmesi yeterlidir ve büyük/küçük harf ayrımı vardır. Bulunan her hücre için değer, hücre adresi ve hücre içeriği mesaj kutusunda gösterilir. FindNext ile sonraki eşleşmelere geçilir, ilk bulunan adrese dönüldüğünde döngü biter. Değer bulunamazsa hata yakalanır ve makro sessizce sonlanır.
- AlternatifBul: InputBox ile aranacak değer istenir. A1:D500 aralığındaki her hücre Like işleci ile "*değer*" kalıbına göre denetlenir. Eşleşen her hücrenin adresi ve içeriği mesaj kutusunda gösterilir. Bu yöntemde büyük/küçük harf ayrımı yapılır ve tüm hücreler tek tek taranır.
- cmdAction0_Click: Sayfa1 kod bölümündeki bu yordam yalnızca "Button Clicked!" mesajı gösteren örnek bir düğme koddur; aramayla ilgisi yoktur.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- ALT+F8 tuşlarıyla makro listesini açın.
- KlasikBul ya da AlternatifBul makrosunu seçip çalıştırın.
- Açılan InputBox'a aranacak değeri yazıp Tamam'a basın. Örneğin "ak" yazıldığında içinde "ak" geçen hücreler tek tek bildirilir.
- Her mesaj kutusunda hücre adresini ve içeriğini okuyup Tamam ile sonraki sonuca geçin.
- Kendi verinizde kullanmak için kodda geçen A1:D500 aralığını değiştirin.