Boşluk Olan Hücreleri Renklendirme
02 Ocak 2021
01 Haziran 2021
900
Boşluk Olan Hücreleri Renklendirme isimli kod, Excel sayfalarınızda bir yerine iki boşluk bırakılmış alanların renklendirilmesini sağlar.
Sub Bosluk_Olan_Hucreleri_Renklendirme()
Dim Alan As Range
For Each Alan In ActiveSheet.UsedRange
If Alan.Value = " " Then
Alan.Style = "Not" 'İngilizce "Note"
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ı
Kodda 2 boşluk olanların renklendirilmesi sağlanmaktadır. Eğer daha fazla boşluk kontrolü yapmak istiyorsanız; If Alan.Value = " " Then satırındaki " " kısmını revize etmeniz yeterli olacaktır.
Etiketler :
Hazır Dosyayı İndir
Dosyayı indirmek için giriş yapmanız ve VIP Üyelik Paketine sahip olmanız gerekir.
| YARARLI KISAYOLLAR | |
|---|---|
| Seçilen kontrolü etkinleştirme veya açma | Space |
| Sayfa Yapısı Kenar Boşlukları Sekmesini Açma | Alt P J Ö |
| Bir Hücre Aşağı Git | ↓ |
| Yeni Sayfada Grafik Oluşturma | F11 |
| Şerit Menü Tuşlarını Aktif Etme / Alternatif | Shift F6 |