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ā.

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

  • 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 & "."

Atstājiet komentāru

Bezpeļņas organizācijas gada pārskata PowerPoint veidne: bezmaksas lejupielādes iespējas un slaidu kontrolsaraksts

Bezpeļņas organizācijas gada pārskata PowerPoint veidne: bezmaksas lejupielādes iespējas un slaidu kontrolsaraksts

Izveidojiet skaidru bezpeļņas organizācijas gada pārskatu programmā PowerPoint, izmantojot bezmaksas veidni, praktisku slaidu struktūru, ietekmes rādītājus, finanšu datus un ziedotājiem gatavus prezentācijas padomus.

Minimālistiska investoru prezentācijas PowerPoint veidne tehnoloģiju jaunuzņēmumiem: ko iekļaut un ko izlaist

Minimālistiska investoru prezentācijas PowerPoint veidne tehnoloģiju jaunuzņēmumiem: ko iekļaut un ko izlaist

Izveidojiet tīro tehnoloģiju jaunuzņēmumu investoru prezentāciju programmā PowerPoint, izmantojot praktisku slaidu struktūru, uz pierādījumiem balstītu vēstījumu, pieejamu dizainu un mazāk uzmanības novēršanas faktoru.

Vienkārša uzdevumu deleģēšanas matricas veidne programmai Word: praktiska versija mazu komandu vadītājiem

Vienkārša uzdevumu deleģēšanas matricas veidne programmai Word: praktiska versija mazu komandu vadītājiem

Izmantojiet šo vienkāršo uzdevumu deleģēšanas matricas veidni programmā Word, lai piešķirtu īpašniekus, lēmumu pieņemšanas ierobežojumus, termiņus un kontrolpunktus, nepārāk sarežģījot nelielas komandas darbu.

Vienkārša dienas aprūpes apmeklējuma lapas veidne: drukājama pierakstīšanās un izrakstīšanās mājas bērnu aprūpei

Vienkārša dienas aprūpes apmeklējuma lapas veidne: drukājama pierakstīšanās un izrakstīšanās mājas bērnu aprūpei

Izmantojiet šo vienkāršo drukājamo dienas aprūpes centra apmeklējuma lapu mājas bērnu aprūpei ar bērnu vārdiem, ierašanās/aizbraukšanas laikiem, parakstiem un atbilstības padomiem.

Drukājama vienas lapas mārketinga stratēģijas veidne vietējiem uzņēmumiem

Drukājama vienas lapas mārketinga stratēģijas veidne vietējiem uzņēmumiem

Izmantojiet šo drukājamo vienas lapas mārketinga stratēģijas veidni, lai definētu savu vietējo auditoriju, piedāvājumu, kanālus, budžetu, iknedēļas darbības un izmērāmus mērķus.

Kā apturēt programmu Excel no automātiskas skaitļu maiņas uz datumiem

Kā apturēt programmu Excel no automātiskas skaitļu maiņas uz datumiem

Neļaujiet programmai Excel konvertēt tādas vērtības kā 1/2, 11–53 vai JAN1 datumos. Uzziniet uzticamus risinājumus rakstīšanai, ielīmēšanai, CSV importēšanai un jau konvertētajām šūnām.

Mūsdienīga nekustamā īpašuma saraksta prezentācijas PowerPoint veidne (bezmaksas): Kas jāiekļauj

Mūsdienīga nekustamā īpašuma saraksta prezentācijas PowerPoint veidne (bezmaksas): Kas jāiekļauj

Izveidojiet noformētu nekustamā īpašuma sludinājumu PowerPoint prezentācijā bez maksas ar praktisku slaidu plānu, fotoattēlu, zīmola veidošanas, pieejamības, atbilstības un eksportēšanas padomiem.

Kā novērst Outlook kļūdu: e-pasta sūtīšana neizdodas, bet saņemšana darbojas

Kā novērst Outlook kļūdu: e-pasta sūtīšana neizdodas, bet saņemšana darbojas

Novērsiet Outlook problēmu, kad e-pasts tiek saņemts, bet nevar nosūtīt. Pārbaudiet izsūtni, bezsaistes režīmu, pieteikšanos, SMTP iestatījumus, profilus un Microsoft 365 izmaiņas.

Vienkāršs divnedēļu algas aprēķina izsekošanas Excel veidne mazām komandām: Praktisks iestatīšanas ceļvedis

Vienkāršs divnedēļu algas aprēķina izsekošanas Excel veidne mazām komandām: Praktisks iestatīšanas ceļvedis

Izveidojiet vienkāršu divnedēļu algas aprēķina izsekošanas tabulu Excel mazai komandai, iekļaujot stundas, algu, atskaitījumus, pārskatīšanas karodziņus, kopsavilkumus un dokumentu glabāšanas norādījumus.

Drukājams pasākumu plānošanas kontrolsaraksts un budžeta veidne programmai Word: kas jāiekļauj un kad jāizmanto programma Excel

Drukājams pasākumu plānošanas kontrolsaraksts un budžeta veidne programmai Word: kas jāiekļauj un kad jāizmanto programma Excel

Izveidojiet vai pielāgojiet drukājamu pasākumu plānošanas kontrolsarakstu un budžeta veidni programmā Microsoft Word, iekļaujot praktiskas sadaļas, kompromisus un padomus par Word un Excel salīdzināšanu.