Bu dosya, bir Userform üzerindeki renk kataloğundan seçilen rengi, TextBox'a yazılan değerle eşleşen hücrelere uygulayan makro örneğini içerir. Aynı form, daha önce boyanmış hücrelerin renklendirmesini kaldırmak için de kullanılır.
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
- 1 sayfası: A1:F19 aralığında deneme verisi bulunur. C ve E sütunlarında sayılar yer alır, C16 hücresinde C sütununun toplamı hesaplanır.
- Renkform: Renk seçenekleri (Renk01 - Renk12 ve RenkOpsiyon), eşleştirme seçeneği (Eslestir), arama kutusu (Textbox1), sonuç mesajı kutusu (TextBox2) ve kapatma düğmesi bulunan Userform.
- Module1: Formu açan FormAc makrosu.
Kullanılan formüller
C sütunundaki değerlerin toplamı C16 hücresinde şu formülle hesaplanır:=SUM(C3:C15)Makrolar
- FormAc: Renkform adlı Userform'u açar. Makroyu Alt+F8 ile çalıştırabilir veya bir düğmeye atayabilirsiniz.
- UserForm_Activate: Form açılırken sonuç mesajı kutusunu (TextBox2) gizler.
- RenkButton_Click: İşaretli renk seçeneğine karşılık gelen renk indeksini belirler. A1:IV65536 aralığında Textbox1 içindeki değeri önce formüllerde, sonra değerlerde arar ve bulunan hücrelerin dolgu rengini değiştirir. Eslestir işaretliyse hücrenin tamamı eşleşmelidir (xlWhole), işaretli değilse değerin hücre içinde geçmesi yeterlidir (xlPart). RenkOpsiyon seçildiğinde indeks 0 olur ve hücrelerin renklendirmesi kaldırılır. İşlem sonunda TextBox2 içinde kaç hücrenin renklendirildiği, renginin kaldırıldığı veya eşleşme bulunamadığı bildirilir. Arama kutusu boşsa işlem yapılmaz ve uyarı mesajı gösterilir.
- KapatButton_Click: Formu kapatır.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- Alt+F8 ile FormAc makrosunu çalıştırın.
- Katalogdan bir renk seçin.
- Aranacak değeri arama kutusuna yazın. Tam eşleşme istiyorsanız Eslestir seçeneğini işaretleyin.
- Renk düğmesine tıklayın; eşleşen hücreler boyanır ve sonuç mesajı formda görüntülenir.
- Renklendirmeyi kaldırmak için RenkOpsiyon seçeneğini işaretleyip aynı değerle işlemi tekrarlayın.
