Excel VBA ile bir hücrenin veya birden çok hücre aralığının boş olup olmadığı nasıl kontrol edilir?

Bugün, Visual Basic for Applications kullanarak bir veya birden çok hücrenin boş olup olmadığını kolayca kontrol etmeyi öğreneceğiz. İçerik, Excel 2019 / 365, 2016 ve Microsoft Office'in önceki sürümleriyle ilgilidir.

hazırlık çalışması

Excel'de VBA ile kodlamaya başlamadan önce geliştirme sekmenizin etkinleştirildiğinden emin olmanız gerekir. Durum böyle değilse, lütfen bu kısa eğiticiye bakın .

VBA ile Excel hücre aralığının boş olup olmadığını kontrol etme

  • Excel'de Alt+F11 tuşlarına basarak Visual Basic ortamınızı açın
  • Aşağıdaki kodu Çalışma Sayfanıza prosedür olarak veya alternatif olarak özel bir VBA modülüne ekleyin.
Sub Check_Cell_is_empty_alt()

Dim rng As Range
Set rng = Selection

For Each Cell In rng

    If IsEmpty(Cell.Value) = True Then
        
    Debug.Print ("Empty")
    Else
        Debug.Print ("Not Empty")
    End If
Next Cell


End Sub


  • Elektronik tablonuza gidin ve rastgele bir hücre aralığı seçin.
  • Visual Basic düzenleyicisine geri dönün ve Anında Görüntüleyicinin (CTRL+G) görünür olduğundan emin olun - koddaki Debug.Print yöntemi sonucunu o pencereye çıkaracaktır.
  • Kodunuzu çalıştırmak için F5'e basın.
  • Hemen pencerede sonuçlara bakın.

Excel VBA ile bir hücrenin veya birden çok hücre aralığının boş olup olmadığı nasıl kontrol edilir?

  • Tüm boş hücreler tanımlanacaktır.

Kodun olası uzantıları: Boş değerleri atlamak veya hücrelerin dolu olmaması durumunda hiçbir şey yapmamakla ilgileniyorsanız, bu kodu gerektiği gibi genişletebilirsiniz. Benzer şekilde, Aralığın kendisinin boş olup olmadığını kontrol edebilirsiniz, yani – siyah hücre içermiyor.

Boş olmayan alanları kontrol etme

Aynı şekilde, boş olmayan alanları kontrol etmek için IsEmpty özelliğini kullanabilirsiniz.

 If Not IsEmpty(Cell.Value) = True Then
        Debug.Print ("Not Empty")
    Else
        Debug.Print ("Empty")
    End If

Bonus: Boş hücreleri de vurgulamak istiyorsanız aşağıdaki kodu kullanın.

Dim i As Long Dim c As Long Dim myRange As Range Dim myCell As Range Set myRange = Range("A1:A10quot;) myRange'daki Her myCell İçin ' c = c + 1 If IsEmpty(myCell) Then myCell.Interior.Color = RGB(255, 87, 87) i = i + 1 End If Next myCell MsgBox _ "Toplam " & ben ve ben " " dışında boş hücre(ler) & c& "."

Leave a Comment

DXGI_ERROR_DEVICE_HUNG Hatasını Düzeltmenin 9 Etkili Yolu

DXGI_ERROR_DEVICE_HUNG Hatasını Düzeltmenin 9 Etkili Yolu

DirectX DXGI_ERROR_DEVICE_HUNG 0x887A0006 hatasını grafik sürücülerini ve DirectX

Sunucuya Bağlanırken Omegle Hatasını Düzeltmenin 7 Yolu

Sunucuya Bağlanırken Omegle Hatasını Düzeltmenin 7 Yolu

Omegle

DÜZELTİLDİ “Kimlik Bilgileriniz Yanlış veya Süresi Dolmuş”

DÜZELTİLDİ “Kimlik Bilgileriniz Yanlış veya Süresi Dolmuş”

Kimlik bilgilerinizle uğraşmak yanlış veya süresi dolmuş. Lütfen tekrar deneyin veya şifre hatanızı sıfırlayın, ardından burada verilen düzeltmeleri izleyin…

Red Dead Redemption 2 Tam Ekran Çalışmıyor [6 DÜZELTME]

Red Dead Redemption 2 Tam Ekran Çalışmıyor [6 DÜZELTME]

DirectX güncelleme, çözünürlük ayarlarını yapılandırma ve diğer düzeltmeler ile Red Dead Redemption 2 Tam Ekran Çalışmıyor sorununu çözün.

DÜZELTİLDİ: Amazon Fire TV Stick Depolama Alanında Hızlı Bir Şekilde Düşük

DÜZELTİLDİ: Amazon Fire TV Stick Depolama Alanında Hızlı Bir Şekilde Düşük

Amazon Fire TV

Sims 4 Sim Uyuyamıyor Sorunu Nasıl Çözülür? [KANITLANMIŞ YOLLAR]

Sims 4 Sim Uyuyamıyor Sorunu Nasıl Çözülür? [KANITLANMIŞ YOLLAR]

Sims 4 Sim uyku sorunu ile ilgili kesin çözümler ve ipuçları için makaleyi okuyun. Sim

Messenger fotoğrafları nereye kaydeder? (Açıklandı)

Messenger fotoğrafları nereye kaydeder? (Açıklandı)

Facebook Messenger

“Realtek PCIe Gbe Ailesi Denetleyicisi Çalışmıyor” Sorununu Düzeltmek İçin 7+ Püf Noktası

“Realtek PCIe Gbe Ailesi Denetleyicisi Çalışmıyor” Sorununu Düzeltmek İçin 7+ Püf Noktası

Realtek PCIe GBE Ailesi Denetleyicinizin Neden Çalışmadığını Bilin. Realtek PCIe GBE ailesi denetleyici sorununu çözmeye yönelik düzeltmelerle birlikte.

Microsoft PowerPointte Slayt Geçişleri Nasıl Kullanılır

Microsoft PowerPointte Slayt Geçişleri Nasıl Kullanılır

Slayttan slayda atlamak yerine sunumunuzu daha keyifli hale getirebilirsiniz. PowerPoint

Düzeltme: Apple Kimliğinizi ayarlamak birkaç dakika sürebilir

Düzeltme: Apple Kimliğinizi ayarlamak birkaç dakika sürebilir

Apple Kimliği mesajınızı ayarlamak birkaç dakika sürebilir mesajını alırsanız, telefonunuzu yeniden başlatmayı deneyin veya daha fazla zaman verin. Burada daha fazla adım: