Š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
Bonuss: izmantojiet šo kodu, ja vēlaties izcelt arī tukšās šūnas.
Dim i As Long Dim c Tik Long Dim myRange As Range Dim myCell As Range Iestatīt myRange = Diapazons("A1:A10") Katrai myCell in myRange ' c = c + 1 If IsEmpty(myCell) Tad mana šūna.Interjers.Krāsa = RGB(255, 87, 87) i = i + 1 Beigas, ja Nākamā myCell MsgBox _ "Ir kopā " & es & " tukša(-as) šūna(-as) no " & c & "."