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