Kako preveriti, ali je celica ali obseg več celic prazna z Excel VBA?

Danes se bomo naučili, kako enostavno preveriti, ali je ena ali več celic praznih z uporabo Visual Basica za aplikacije. Vsebina je pomembna za Excel 2019 / 365, 2016 in starejše različice Microsoft Officea.

Pripravljalna dela

Preden začnete kodirati z VBA v Excelu, se morate prepričati, da je vaš zavihek za razvoj omogočen. Če temu ni tako, si oglejte to kratko vadnico .

Preverjanje, ali je obseg celic Excel prazen z VBA

• V Excelu odprite svoje okolje Visual Basic tako, da pritisnete Alt+F11
• Vstavite naslednjo kodo kot postopek v svoj delovni list ali v namenski modul 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

• Pojdite na preglednico in izberite poljuben obseg celic.
• Vrnite se v urejevalnik Visual Basic in zagotovite, da je pregledovalnik Immediate (CTRL+G) viden – saj bo metoda Debug.Print v kodi izpisala svoj rezultat v to okno.
• Pritisnite F5, da zaženete kodo.
• Poglejte rezultate v takojšnjem oknu.

• Vse prazne celice bodo identificirane.

Možne razširitve kode: Očitno lahko to kodo po potrebi razširite, če želite preskočiti prazne vrednosti ali preprosto storiti ničesar, če celice niso polne. Podobno lahko preverite, ali je obseg sam prazen, torej – ni črnih celic.

Preverjanje nepraznih polj

Na enak način lahko uporabite lastnost IsEmpty za preverjanje polj, ki niso prazna.

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