Kako provjeriti je li ćelija ili raspon od više ćelija prazan s Excel VBA?

Danas ćemo naučiti kako jednostavno provjeriti je li jedna ili više ćelija prazna pomoću Visual Basica za aplikacije. Sadržaj je relevantan za Excel 2019 / 365, 2016 i starije verzije Microsoft Officea.

Pripremni rad

Prije nego što počnete s kodiranjem s VBA u Excelu, morat ćete osigurati da je kartica za razvoj omogućena. Ako to nije slučaj, pogledajte ovaj kratki vodič .

Provjera je li raspon ćelija programa Excel prazan pomoću VBA

U Excelu otvorite svoje Visual Basic okruženje pritiskom na Alt+F11
Umetnite sljedeći kod kao proceduru u svoj radni list ili alternativno u namjenski VBA modul.

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

Idite na proračunsku tablicu i odaberite proizvoljan raspon ćelija.
Vratite se u uređivač Visual Basica i provjerite je li preglednik Immediate (CTRL+G) vidljiv – budući da će metoda Debug.Print u kodu ispisati svoj rezultat u taj prozor.
Pritisnite F5 da pokrenete svoj kod.
Pogledajte rezultate u neposrednom prozoru.

Sve prazne ćelije bit će identificirane.

Moguća proširenja koda: Očito možete proširiti ovaj kod prema potrebi u slučaju da želite preskočiti prazne vrijednosti ili jednostavno ne učiniti ništa u slučaju da ćelije nisu pune. Slično, možete provjeriti je li sam Range prazan, odnosno – nema crnih ćelija.

Provjera nepraznih polja

Na isti način možete koristiti svojstvo IsEmpty za provjeru polja koja nisu prazna.

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

Bonus: upotrijebite sljedeći kôd ako želite istaknuti i prazne ćelije.

Dim i As Long Dim c As Long Dim myRange As Range Dim myCell As Range Postavi myRange = Range("A1:A10") Za svaki myCell u myRange ' c = c + 1 If IsEmpty(myCell) Then myCell.Interior.Color = RGB(255, 87, 87) i = i + 1 End If Next myCell MsgBox _ "Postoji ukupno " & ja & " prazna ćelija(e) izvan " & c & "."

Ostavite komentar

Predložak za PowerPoint godišnje izvješće neprofitne organizacije: besplatne opcije preuzimanja i kontrolni popis slajdova

Izradite jasno godišnje izvješće neprofitne organizacije u PowerPointu s besplatnim predloškom, praktičnom strukturom slajdova, metrikama utjecaja, financijskim podacima i savjetima za prezentacije spremnim za donatore.

Minimalistički PowerPoint predložak za prezentaciju investitorima za tehnološke startupove: Što uključiti, a što izostaviti

Izradite prezentaciju za investitore u startup s čistom tehnologijom u PowerPointu s praktičnom strukturom slajdova, porukama koje stavljaju dokaze na prvo mjesto, pristupačnim dizajnom i manje ometanja.

Predložak jednostavne matrice delegiranja zadataka za Word: Praktična verzija za voditelje malih timova

Pomoću ovog jednostavnog predloška matrice delegiranja zadataka u Wordu dodijelite vlasnike, ograničenja odluka, rokove i kontrolne točke bez prekomjernog kompliciranja malog tima.

Jednostavan predložak za evidenciju prisutnosti u vrtiću: Ispisiva prijava i odjava za kućnu brigu o djeci

Koristite ovaj jednostavni ispisivi popis prisutnosti u vrtiću za kućnu brigu o djeci, s imenima djece, vremenima dolaska/odlaska, potpisima i savjetima o usklađenosti.

Predložak marketinške strategije na jednoj stranici za ispis za lokalna poduzeća

Pomoću ovog predloška marketinške strategije od jedne stranice za ispis definirajte svoju lokalnu publiku, ponudu, kanale, proračun, tjedne akcije i mjerljive ciljeve.

Kako spriječiti Excel da automatski mijenja brojeve u datume

Spriječite Excel da pretvara vrijednosti poput 1/2, 11-53 ili JAN1 u datume. Naučite pouzdana rješenja za tipkanje, lijepljenje, uvoz CSV datoteka i već pretvorene ćelije.

PowerPoint predložak za modernu prezentaciju nekretnina (besplatno): Što uključiti

Besplatno izradite uglađen PowerPoint prezentaciju s popisom nekretnina uz praktičan plan slajdova, fotografiju, brendiranje, pristupačnost, usklađenost i savjete za izvoz.

Kako riješiti grešku Outlooka: ne može slati e-poštu, ali može primati

Popravite Outlook kada možete primati e-poštu, ali ne i slati. Provjerite mapu Odlazne, način rada bez veze, prijavu, SMTP postavke, profile i promjene u Microsoft 365.

Jednostavni Excel predložak za dvotjedni obračun plaća za male timove: Praktični vodič za postavljanje

Izradite jednostavan dvotjedni obračun plaća u Excelu za mali tim, s evidencijom radnih sati, plaća, odbitaka, oznaka za pregled, sažecima i smjernicama za vođenje evidencije.

Predložak za provjeru planiranja događaja i proračun za Word za ispis: Što uključiti i kada umjesto toga koristiti Excel

Izradite ili prilagodite predložak proračuna i kontrolni popis za planiranje događaja za ispis u programu Microsoft Word, s praktičnim odjeljcima, kompromisima i savjetima za Word u odnosu na Excel.