Kuidas kontrollida, kas lahter või mitme lahtri vahemik on Excel VBA abil tühi?

Täna õpime, kuidas Visual Basic for Applications abil hõlpsalt kontrollida, kas üks või mitu lahtrit on tühjad. Sisu on asjakohane Excel 2019 / 365, 2016 ja Microsoft Office'i varasemate versioonide jaoks.

Ettevalmistustööd

Enne Excelis VBA-ga kodeerimise alustamist peate veenduma, et teie arenduskaart on lubatud. Kui see nii ei ole, vaadake seda lühikest õpetust .

Kontrollige, kas Exceli lahtrivahemik on tühi VBA-ga

• Avage Excelis oma Visual Basicu keskkond, vajutades Alt+F11
• Sisestage järgmine kood protseduurina oma töölehel või teise võimalusena spetsiaalsesse VBA moodulisse.

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

• Avage oma arvutustabel ja valige suvaline lahtrite vahemik.
• Minge tagasi Visual Basicu redaktorisse ja veenduge, et vahetu vaataja (CTRL+G) oleks nähtav – kuna koodis olev Debug.Print meetod väljastab selle tulemuse sellesse aknasse.
• Koodi käivitamiseks vajutage F5.
• Vaadake tulemusi koheses aknas.

• Kõik tühjad lahtrid tuvastatakse.

Koodi võimalikud laiendused: Ilmselgelt saate seda koodi vajaduse korral laiendada, kui soovite tühjad väärtused vahele jätta või lihtsalt mitte midagi teha, kui lahtrid pole täis. Samamoodi saab kontrollida, kas vahemik ise on tühi, st – musti lahtreid pole.

Mittetühjade väljade kontrollimine

Samamoodi saate kasutada atribuuti IsEmpty, et kontrollida, kas väljad pole tühjad.

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