Negatif Sayıları Vurgulama
27 Mayıs 2021
1058
Negatif Sayıları Vurgulama isimli kod, seçtiğiniz alanda yer alan sayılar içerisindeki negatif sayıların renklendirilmesini sağlar.
Sub NegatifSayılarıVurgulama()
Dim Alan As Range
For Each Alan In Selection
If WorksheetFunction.IsNumber(Alan) Then
If Alan.Value < 0 Then
Alan.Font.Color = -16776961
End If
End If
Next
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ı
Kodu çalıştırmadan önce verilerin olduğu aralığı seçiyoruz.
Kod çalıştıktan sonra alınan görüntü aşağıdaki gibidir:
Hazır Dosyayı İndir
Dosyayı indirmek için giriş yapmanız ve VIP Üyelik Paketine sahip olmanız gerekir.
| YARARLI KISAYOLLAR | |
|---|---|
| Aynı hücre içinde bir alt satıra geçme | Alt Enter |
| Veri Aralığının En Üstüne Gitme | Ctrl ↑ |
| Şerit Menü Tuşlarını Aktif Etme / Alternatif | Shift F6 |
| Kaydet / Alternatif | Shift F12 |
| Ad Yöneticisi Penceresinin Açılması | Alt F X |