Negatif Sayıları Vurgulama

27 Mayıs 2021 1027

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
Kullanılan Tüm Sütunları Otomatik Sığdır
Sütunda Yazılı Olanlardan Sayfa Adı Yapma
Excel ile Faiz Hesaplama Kodu
Birden Çok Çalışma Sayfası Ekleme
Bir Aralıktaki Minimum Değeri Renklendirme
2. Derece Denklemin Grafiğini Çizmek
Sütun Genişliğini Ayarla
Seçili Sütunların Sayısını Bulma
Sürücü Seri Numarasını Gösterme
Aralıklı Olarak Satır Silme
PDF Dosyalarını Birleştirme
Hücre Biçimlendir Yazı Tipi Penceresini Açma
Başka Dosyada Şifreli Userform Oluşturmak
Hücredeki Değer Sıfırdan Büyükse İşlem Yapma
A Sütunundaki Verileri C Sütununda Sıralama
Her Kapatma İşleminde Otomatik Olarak Kaydetme
Excel Kapanırken Otomatik İşlem Yaptırma
Aktif Hücrenin Satır Numarasını Bulma
Kilitlenmemiş Hücreleri Seçme İşlemi
Tekrarlayan Verileri Vurgulama
Kes Kopyala ve Başka Çalışma Kitabına Yapıştır
Txt Dosyası Oluşturma
UserForm Üzerinde Dört İşlem
Metni Tersten Yazdırma
X Sayı Atlayarak Satır Gizleme
Seçili Aralığa Ait Bilgilerin Listelenmesi
Toplu Satır Silme
Seçili Hücrelerden Boşlukları Kaldırma
TextBox Nesnesine Harf Girilmesini Engelleme
Makro Etkinletirilmezse Sayfalar Gizlenir
Son Dolu Satırın Bir Altına Yazdırma
Özet Tablo Aralığını Otomatik Güncelleştirme
Aktif Satırı ve Sütunu Vurgulama
Hoş Geldiniz Mesajı Ekleme
Açılışta UserForm Nesnesinin Otomatik Gösterilmesi
Klavyeye Makro Atama ve Çalıştırma
Excel Dosya Silme İşlemi Makrosu
Roma Rakamlarını Normal Sayılara Dönüştürme
Makrolar ile Klasör Silme
Dördüncü Sütunda İşlem Yapılınca Çalışan Makro
Tüm Çalışma Sayfalarını Tek Adımda Koruma
Tüm Satırları ve Sütunları Gösterme
Program Başlangıcı Kodları
Hücredeki Değere Göre Yeni Sayfa Ekleme
Kare Kökünü Hesaplama
UserForm Kapatma Kodu
Tüm Çalışma Sayfalarını Gösterme
Yorumları İçeren Hücreleri Renklendirme
C Klasörüne Sanal Dizin Oluşturma
Kapanış Mesajı Ekleme

Daha önce yorum yapılmamış!

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