Si të kontrolloni nëse një qelizë ose një varg qelizash të shumta është bosh me Excel VBA?

Sot do të mësojmë se si të kontrollojmë lehtësisht nëse një ose disa qeliza janë bosh duke përdorur Visual Basic për Aplikacione. Përmbajtja është e rëndësishme për Excel 2019 / 365, 2016 dhe versionet e mëparshme të Microsoft Office.

Puna përgatitore

Përpara se të filloni kodimin me VBA në Excel, do t'ju duhet të siguroheni që skeda juaj e zhvillimit është e aktivizuar. Nëse nuk është kështu, shikoni me mirësi këtë tutorial të shkurtër .

Kontrollimi nëse diapazoni i qelizave Excel është bosh me VBA

• Në Excel, hapni mjedisin tuaj Visual Basic duke shtypur Alt+F11
• Fusni kodin e mëposhtëm si procedurë në fletën tuaj të punës, ose në mënyrë alternative në një modul të dedikuar VBA.

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

• Shkoni te tabela juaj dhe zgjidhni një gamë arbitrare qelizash.
• Kthehuni te redaktori i Visual Basic dhe sigurohuni që shikuesi i menjëhershëm (CTRL+G) të jetë i dukshëm – pasi metoda Debug.Print në kod do të nxjerrë rezultatin e saj në atë dritare.
• Shtypni F5 për të ekzekutuar kodin tuaj.
• Shikoni rezultatet në dritaren e menjëhershme.

• Të gjitha qelizat bosh do të identifikohen.

Zgjerime të mundshme të kodit: Padyshim që mund ta zgjeroni këtë kod sipas nevojës në rast se jeni të interesuar të kapërceni vlerat bosh ose thjesht të mos bëni asgjë në rast se qelizat nuk janë plot. Në mënyrë të ngjashme, mund të kontrolloni nëse vetë Gama është bosh, dmth - nuk ka qeliza të zeza.

Po kontrollon fushat jo bosh

Në të njëjtën mënyrë mund të përdorni veçorinë IsEmpty për të kontrolluar për fusha që nuk janë bosh.

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