Negatif Sayıları Vurgulama

27 Mayıs 2021 1038

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 Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. 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.
  3. Araç çubuklarından Insert -> Module yazısına tıklayın.
  4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.

Kod Açıklaması

Kodu çalıştırmadan önce verilerin olduğu aralığı seçiyoruz.

Negatif Sayıları Vurgulama

Kod çalıştıktan sonra alınan görüntü aşağıdaki gibidir:

Negatif Sayıları Vurgulama

Hazır Dosyayı İndir

Dosyayı indirmek için giriş yapmanız ve VIP Üyelik Paketine sahip olmanız gerekir.
50 Farklı Hazır Makro (VBA) Kodu
Zaman Aralığı Ekleme
Sayıları Rastgele Karıştırmak
Bir Değeri Renklendirme
ComboBox Nesneleri ile Toplama Yapma
Excel Makro Modulü Silme Kodu
Sayfadaki Ad Tanımlamaları Silme
Tarih ve Saatten Saati Kaldırma
Etkin Sayfa Hariç Çalışma Sayfalarını Gizleme
Hoş Geldiniz Mesajı Ekleme
Yazı Efekti Verme Kodu
Cümle Durumuna Dönüştürme
Hücredeki Değer Sıfırdan Büyükse İşlem Yapma
Tüm Satırları ve Sütunları Gösterme
Dizinde Klasör Araması Yapma
Hücre Aralığını Kes Kopyala ve Yapıştır
Makro ile Boş Satırları Silme
Sağ Tık ile Açılan Menüye Ekleme Yapma
Açılışta İstediğiniz Sayfanın Aktif Edilmesi
Kapanışta Sayfaların Otomatik Olarak Gizlenmesi
Verileri Tek Sütuna Göre Sıralama
ListBox Üzerindeki Verilere Çoklu Seçim Yapma
Sayıların Önündeki Tek Tırnak İşaretini Kaldırma
Bir Aralıktaki Minimum Değeri Renklendirme
MsgBox ile Uyarı Çıkarma Kodu
Başka Dosyada Şifreli Userform Oluşturmak
Excel Makroları İle Not Defterini Açmak
Adlandırılmış Aralıkları Vurgulama
Tarih ve Saatten Tarihi Kaldırma
Seçili Hücrenin Sütun Harfini Bulma
Seçili Her Satırdan Sonra Bir Satır Ekleme
Çalışma Sayfaları için Yakınlaştırma Yüzdesini Ayarlama
2. Satırdaki Bilgileri Silmek
Otomatik Olarak Tarih ve Zaman Ekleme
Top 10 Değeri Renklendirme
Excel Seçenekleri Penceresini Açma
Çalışma Kitabındaki Tüm Çalışma Sayfalarını Koruma
Excel Üzerinden Klasör Açma Kodu
Hücredeki Değişikliklerin Kaydını Tutma
Tüm Çalışma Sayfalarını Tek Adımda Koruma
Bir Çalışma Kitabında Kaç Sayfa Var
Bilgisayar Bilgilerini Özetleme
Excel Kitabındaki Sayfa Adlarının Listelenmesi
Son Dolu Satırın Bir Altına Yazdırma
Aktif Hücrenin Sütun Numarasını Bulma
Son Sütun Numarasını Bulma
ListBbox ve ComboBox Satır Kaydırma
İki Sütundaki Değerleri Karşılaştırıp Ayrıştırma
Boş Hücreleri Sıfırlarla Değiştirme
Bir sayfadaki Veriyi Diğer Sayfaya Aktarma
Sayıyı Çift ya da Çiftin Katı Yapma

Daha önce yorum yapılmamış!

Backlink Reklam Bu alanda 50 karakterlik açıklama ile web sitenize ait Backlink Reklam yayınlayabilirsiniz.
Yükleniyor...