Bir Değeri Renklendirme
02 Ocak 2021
01 Haziran 2021
966
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 | |
|---|---|
| Yazdırma | Ctrl P |
| Şerit Menü Tuşlarını Aktif Etme | Alt |
| Yeni Sayfa Ekleme | Shift F11 |
| Aktif Pencereyi Kapatma | Ctrl W |
| Hücreleri biçimlendirme ekranını açma | Ctrl 1 |