Boşluk Olan Hücreleri Renklendirme
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.
XD Destek İsteSub 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 Sub
Gerekli 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
Daha önce yorum yapılmamış!
YARARLI KISAYOLLAR | |
---|---|
Hücrede Yatay Ortalama Yapmak | Alt Ş OO |
Çalışma Sayfası İstatistikleri | Ctrl G |
Koyu Yazdırma | Ctrl K |
Yazdırma | Ctrl P |
Bitişik Olmayan Hücreler Seçme | Ctrl Tıklama |
Excel formüllerinizde gelen 0 değerleri yerine başka bir ifade yazdırmak isterseniz; veilerinizin olduğu aralığı seçip:
Sağ Tıklama -> Hücre Biçimlendir -> Sayı Sekmesi -> İsteğe Uyarlanmış tıkladıktan sonra, sağ kısımdaki Tür bölümüne:
[=0]"istediğim içerik";0;Genel
yazmanız yeterli olacaktır.
0;Genel olan kısım, diğer verilerin biçimine göre farklılık gösterecektir.
Sağ Tıklama -> Hücre Biçimlendir -> Sayı Sekmesi -> İsteğe Uyarlanmış tıkladıktan sonra, sağ kısımdaki Tür bölümüne:
[=0]"istediğim içerik";0;Genel
yazmanız yeterli olacaktır.
0;Genel olan kısım, diğer verilerin biçimine göre farklılık gösterecektir.