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

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& "."


Zencefil 2.7.53.0

Zencefil 2.7.53.0

Ginger ücretsiz bir yazım ve dilbilgisi denetleyicisidir.

Bloklar

Bloklar

Blocks, ilkokul 3. sınıf öğrencilerinin algılama ve göz becerilerini geliştirmeye yönelik entelektüel bir oyundur ve öğretmenler tarafından BT öğretim destek programına dahil edilmiştir.

Prezi 6.26

Prezi 6.26

Prezi, hem çevrimiçi hem de çevrimdışı dijital sunumlar oluşturmanıza olanak tanıyan ücretsiz bir uygulamadır.

Mathway

Mathway

Mathway, cihazınızın yerleşik hesap makinesinden daha karmaşık bir araç gerektiren tüm matematik problemlerini çözmenize yardımcı olabilecek çok kullanışlı bir uygulamadır.

Adobe Sunucusu

Adobe Sunucusu

Adobe Presenter, Microsoft Windows platformunda Microsoft PowerPoint eklentisi olarak sunulan, Adobe Systems tarafından yayımlanan bir e-Öğrenim yazılımıdır.

ENetViet 24.2

ENetViet 24.2

eNetViet, ebeveynlerin çocuklarının eğitim gördüğü okulla bağlantı kurmasına yardımcı olan ve böylece çocuklarının mevcut öğrenme durumunu net bir şekilde anlayabilmelerine yardımcı olan bir uygulamadır.

Duolingo

Duolingo

Duolingo - Ücretsiz Dil Öğrenin veya kısaca Duolingo, birçok farklı dili öğrenmenize ve pratik yapmanıza olanak tanıyan bir eğitim programıdır.

MathType 7.4.10.53

MathType 7.4.10.53

MathType, geliştirici Design Science'ın (Dessci) sunduğu etkileşimli bir denklem yazılımıdır ve kelime işlem, sunumlar, e-Öğrenim vb. için matematiksel gösterimler oluşturmanıza ve açıklama eklemenize olanak tanır. Bu düzenleyici aynı zamanda TeX, LaTeX ve MathML belgeleri oluşturmak için de kullanılır.

Dilbilgisi açısından

Dilbilgisi açısından

Grammarly'nin yapay zeka destekli uygulamaları insanların daha etkili iletişim kurmasına yardımcı oluyor. Milyonlarca kullanıcı mesajlarını, belgelerini ve sosyal medya gönderilerini daha net, hatasız ve daha profesyonel hale getirmek için her gün Grammarly'ye güveniyor.

Canlı çalışma sayfaları

Canlı çalışma sayfaları

Canlı çalışma sayfaları, öğrenciler için etkileşimli alıştırmalar oluşturmak için yararlı bir araçtır. Öğretmenler için kullanımı kolaydır ve öğrenmeyi daha eğlenceli ve ilgi çekici hale getirebilir.