Kā pārbaudīt, vai šūna vai vairāku šūnu diapazons ir tukšs, izmantojot Excel VBA?

Šodien mēs uzzināsim par to, kā viegli pārbaudīt, vai viena vai vairākas šūnas ir tukšas, izmantojot Visual Basic for Applications. Saturs attiecas uz Excel 2019/365, 2016 un vecākām Microsoft Office versijām.

Sagatavošanas darbi

Pirms sākat kodēt ar VBA programmā Excel, jums ir jāpārliecinās, vai ir iespējota izstrādes cilne. Ja tas tā nav, lūdzu, skatiet šo īso apmācību .

Pārbaude, vai Excel šūnu diapazons ir tukšs, izmantojot VBA

• Programmā Excel atveriet savu Visual Basic vidi, nospiežot Alt+F11
• Ievietojiet tālāk norādīto kodu kā procedūru savā darblapā vai arī speciālā 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

• Dodieties uz izklājlapu un atlasiet patvaļīgu šūnu diapazonu.
• Atgriezieties Visual Basic redaktorā un pārliecinieties, vai ir redzams tūlītējais skatītājs (CTRL+G), jo kodā esošā metode Debug.Print izvadīs rezultātu šajā logā.
• Nospiediet F5, lai palaistu kodu.
• Apskatiet rezultātus tiešajā logā.

• Visas tukšās šūnas tiks identificētas.

Iespējamie koda paplašinājumi: jūs noteikti varat paplašināt šo kodu pēc vajadzības, ja vēlaties izlaist tukšās vērtības vai vienkārši nedarīt neko, ja šūnas nav pilnas. Līdzīgi var pārbaudīt, vai pats Diapazons ir tukšs, ti – nav melnu šūnu.

Pārbauda laukus, kas nav tukši

Tādā pašā veidā varat izmantot rekvizītu IsEmpty, lai pārbaudītu laukus, kas nav tukši.

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