Hvernig á að athuga hvort hólf eða svið margra hólfa sé tómt með Excel VBA?

Í dag munum við læra um hvernig á að athuga auðveldlega hvort ein eða margar frumur séu tómar með Visual Basic for Applications. Innihaldið á við fyrir Excel 2019 / 365, 2016 og fyrri útgáfur af Microsoft Office.

Undirbúningsvinna

Áður en þú byrjar að kóða með VBA í Excel þarftu að tryggja að þróunarflipi þinn sé virkur. Ef það er ekki raunin, vinsamlegast skoðaðu þetta stutta kennsluefni .

Athugar hvort Excel frumusvið sé tómt með VBA

Í Excel, opnaðu Visual Basic umhverfið þitt með því að ýta á Alt+F11
Settu eftirfarandi kóða inn sem aðferð í vinnublaðið þitt, eða að öðrum kosti í sérstaka VBA einingu.

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

Farðu í töflureikninn þinn og veldu handahófskennt svið af frumum.
Farðu aftur í Visual Basic ritilinn og tryggðu að Immediate viewer (CTRL+G) sé sýnilegur - þar sem Debug.Print aðferðin í kóðanum mun birta niðurstöðu sína í þann glugga.
Smelltu á F5 til að keyra kóðann þinn.
Skoðaðu niðurstöðurnar strax í glugganum.

Öll auð hólf verða auðkennd.

Mögulegar viðbætur við kóðann: Þú getur augljóslega framlengt þennan kóða eftir þörfum ef þú hefur áhuga á að sleppa auðum gildum eða bara gera ekkert ef hólfin eru ekki full. Á sama hátt geturðu athugað hvort sviðið sjálft sé tómt, þ.e. - engir svartir reiti eru í.

Athugar reiti sem ekki eru tómir

Á sama hátt er hægt að nota IsEmpty eignina til að athuga hvort reitir séu ekki auðir.

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

Bónus: Notaðu eftirfarandi kóða ef þú vilt auðkenna tómar reiti líka.

Dim i As Long Dim c As Long Dim myRange As Range Dim myCell As Range Set myRange = Range("A1:A10") Fyrir hverja myCell In myRange ' c = c + 1 If IsEmpty(myCell) Then myCell.Interior.Color = RGB(255, 87, 87) i = i + 1 End If Next myCell MsgBox _ "Það eru alls " & ég & " tómt(r) hólf úr " & c & "."

Skildu eftir athugasemd

Hvernig á að laga villuna þar sem Outlook getur ekki sent tölvupóst en tekur við

Lagaðu Outlook þegar þú getur tekið við tölvupósti en ekki sent. Athugaðu Úthreitt, ónettengingu, innskráningu, SMTP-stillingar, notendasnið og breytingar í Microsoft 365.

Einfalt tvívítt launareikninga-fylgist með Excel sniðmát fyrir litla teymi: Handbók í uppsetningu

Búðu til einfalt tvívítt launareikninga-fylgist með í Excel fyrir lítið teymi, með klukkustundum, launum, frádráttum, endurskoðunarvörnum, yfirlitum og leiðbeiningum um skjalasöfnun.

Einfalt þjálfunarkynningarsniðmát fyrir nýja starfsmenn: 12 glæra hagnýtt grunnuppbygging

Búðu til einfalda kynningu fyrir nýja starfsmenn með hagnýtri 12 glæra uppbyggingu sem fjallar um væntingar til starfs, verkfæri, öryggi, stefnur, öryggi og aðgerðir fyrstu viku.

Hvernig á að flytja Salesforce tengiliði yfir í hreint Excel-snið án þess að skemma auðkenni eða símanúmer

Flyttu Salesforce tengiliði hreinlega yfir í Excel: búðu til rétta skýrslu, flyttu út Details Only CSV, flyttu inn með Power Query, varðveittu auðkenni og núll á undan, fjarlægðu tvítekið örugglega og staðfestu niðurstöðuna.

Prentanlegt vikulegt þrifatíðni sniðmát fyrir Airbnb gestgjafa (Word og PDF)

Notaðu þetta prentanlega vikulega þrifatíðni fyrir Airbnb gestgjafa til að skipuleggja skiptithrif, djúpþrif, áfyllingu, öryggisathuganir og prentun frá Word í PDF.

Ókeypis mánaðarlegur reikningadagbókar sniðmát fyrir Excel: Hagnýtt uppsetning fyrir 2026

Skipulagðu mánaðarlega reikninga í Excel með ókeypis dagbókarútliti, eftirlits með skiladögum, stöðufallformúlum, sjálfvirkum greiðslusvæðum og hagnýtum ráðum um fjármagnsflæði.

Excel-formla reiknast ekki sjálfkrafa? Lagaðu það á 3 einföldum skrefum

Lagaðu Excel-formlur sem reiknast ekki sjálfkrafa í þremur skrefum: virkjaðu Sjálfvirka útreikninga, endurreiknaðu og lagaðu formlufrumurnar.

Sniðmát fyrir útgjaldaskráningu sjálfstætt starfandi í Bandaríkjunum: Hvað á að skrá árið 2026

Búðu til hagnýtt útgjaldakerfi fyrir bandaríska frilansara með flokkum sem passa við Schedule C, kvittunareitum, vegalengdaskráningu og uppfærslum í IRS-reglum fyrir 2026.

Bestu ókeypis reikningsforritin fyrir litla þjónustufyrirtæki í Bandaríkjunum (2026)

Berðu saman bestu ókeypis reikningsforritin fyrir þjónustufyrirtæki í Bandaríkjunum árið 2026, þar á meðal Zoho Invoice, Wave, Square, PayPal og Invoice Ninja.

Ókeypis Excel-sniðmát fyrir rekstrar- og tekjufylgni í leigueignum: Byrjendahandbók

Notið ókeypis Excel-fylgni fyrir leigueignir til að skipuleggja tekjur, útgjöld, eignir og mánaðarlega fjármagnsflæði. Lærið hvað á að skrá, hvernig á að setja upp kerfið og hvaða mistök á að forðast.