Bir Değeri Renklendirme
02 Ocak 2021
01 Haziran 2021
784
Bir Değeri Renklendirme isimli kod, belirlediğiniz bir kelimeyi Excel sayfalarında kullanılmış alanlarda arar ve bulunca renklendirme işlevi sağlar.
Sub Bir_Degeri_Renklendirme()
Dim Alan As Range
Dim i As Integer
Dim c As Variant
c = InputBox("Vurgulanacak değeri girin")
For Each Alan In ActiveSheet.UsedRange
If Alan = c Then
Alan.Style = "Not" 'İngilizce için "Note" yazınız.
i = i + 1
End If
Next Alan
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Hücrelere herhangi bir metin yazın ve kodu çalıştırın.
Aramak istediğiniz değeri InputBox nesnesine yazmanız yeterli olacak, o değer renklenecektir.
Etiketler :
Hazır Dosyayı İndir
Dosyayı indirmek için giriş yapmanız ve VIP Üyelik Paketine sahip olmanız gerekir.
| YARARLI KISAYOLLAR | |
|---|---|
| Veri Doğrulama Penceresini Açma | Alt X VE V |
| Ekranı Küçültme | Ctrl F5 |
| Bir Hücre Aşağı Git | ↓ |
| Yardım | F1 |
| Veri Aralığının En Altına Gitme | Ctrl ↓ |