Bir Değeri Renklendirme
02 Ocak 2021
01 Haziran 2021
912
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 | |
|---|---|
| Seçimi Ekle veya Kaldır | Shift F8 |
| Üstü Çizgili Yazdırma | Ctrl 5 |
| Baskı Önizleme | Ctrl F2 |
| Bul Penceresini Açma / Alternatif | Shift F5 |
| Sayfa Sonları Ekleme | Alt P O E |