Kuinka tarkistaa, onko solu tai useiden solujen alue tyhjä Excel VBA:lla?

Tänään opimme kuinka helposti tarkistaa, onko yksi vai useampi solu tyhjä Visual Basic for Applications -sovelluksella. Sisältö koskee Excel 2019 / 365, 2016 ja Microsoft Officen aiempia versioita.

Valmistelutyöt

Ennen kuin aloitat koodauksen VBA:lla Excelissä, sinun on varmistettava, että kehitysvälilehti on käytössä. Jos näin ei ole, tutustu tähän lyhyeen opetusohjelmaan .

VBA:lla tarkistetaan, onko Excelin solualue tyhjä

  • Avaa Visual Basic -ympäristö Excelissä painamalla Alt+F11
  • Lisää seuraava koodi toimenpiteenä laskentataulukkoon tai vaihtoehtoisesti erityiseen VBA-moduuliin.
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


  • Siirry laskentataulukkoon ja valitse mielivaltainen solualue.
  • Palaa Visual Basic -editoriin ja varmista, että välitön katseluohjelma (CTRL+G) on näkyvissä – koska koodin Debug.Print-menetelmä tulostaa tuloksensa kyseiseen ikkunaan.
  • Suorita koodi painamalla F5.
  • Katso tulokset välittömästä ikkunasta.

Kuinka tarkistaa, onko solu tai useiden solujen alue tyhjä Excel VBA:lla?

  • Kaikki tyhjät solut tunnistetaan.

Mahdolliset koodin laajennukset: Voit tietysti laajentaa tätä koodia tarpeen mukaan, jos haluat ohittaa tyhjiä arvoja tai olla tekemättä mitään, jos solut eivät ole täynnä. Vastaavasti voit tarkistaa, onko itse alue tyhjä, eli – ei sisällä mustia soluja.

Tarkistetaan ei-tyhjiä kenttiä

Samalla tavalla voit käyttää IsEmpty-ominaisuutta tarkistaaksesi kentät, jotka eivät ole tyhjiä.

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

Bonus: Käytä seuraavaa koodia, jos haluat korostaa myös tyhjät solut.

Himmeä i yhtä pitkä Himmeä c yhtä pitkä himmennys myRange As Range Dim myCell as Range Aseta myRange = Range("A1:A10") jokaiselle omalle solulle omalla alueella ' c = c + 1 If IsEmpty(myCell) then myCell.Interior.Color = RGB(255, 87, 87) i = i + 1 End If Next myCell ViestiBox _ "On yhteensä " & minä & " tyhjä(t) solu(t) " & c & "."

Jätä kommentti

Näin korjaat ongelman: PowerPointin näytöntallennuksen ääni ei toimi

Näin korjaat ongelman: PowerPointin näytöntallennuksen ääni ei toimi

Onko PowerPointin näytöntallennuksessa videota mutta ei ääntä? Tarkista ääniasetukset, Windowsin mikrofoni-ominaisuudet, tulolaitteet, toistoyhteensopivuus, päivitykset ja korjaus.

Ilmainen työntekijöiden vuorolista Excel-mallipohja tuntilaskurilla

Ilmainen työntekijöiden vuorolista Excel-mallipohja tuntilaskurilla

Luo ilmainen Excel-vuorolista automaattisilla tunneilla, yövuorojen käsittelyllä, taukovähennyksillä, viikkotunneilla, ylityövaroituksilla ja tulostettavalla tiiminäkymällä.

Ilmainen pienyrityksen laskupohja Exceliin automaattisella arvonlisäverolaskennalla

Ilmainen pienyrityksen laskupohja Exceliin automaattisella arvonlisäverolaskennalla

Luo ilmainen Excel-laskupohja, joka laskee verotettavat määrät, myyntiverot ja yhteissummat automaattisesti. Vertaa yhden verokannan, hakutaulukon ja rivikohtaisia verotusasetuksia sekä selvitä, milloin Excel ei enää riitä.

Miten muunnat PDF:n muokattavaksi Wordiksi menettämättä muotoilua

Miten muunnat PDF:n muokattavaksi Wordiksi menettämättä muotoilua

Muunna PDF muokattavaksi Wordiksi vähäisimmällä muotoiluhäviöllä käyttämällä Wordia tai Acrobatia. Opi, milloin suora muunnos toimii, milloin OCR on tarpeen ja miten korjata taulukot, fontit ja sivunvaihdot.

Tulostettava rakennusurakan kustannusarvio Excel-mallipohja pienille urakoitsijoille

Tulostettava rakennusurakan kustannusarvio Excel-mallipohja pienille urakoitsijoille

Laadi tulostettava rakennusurakan kustannusarvio Excelissä: työsuunnitelma, materiaalit, työvoima, yleiskulut, vararahat, katteet, verot ja tulostusvalmiit yhteenvetosummat – mukana kaavat ja vältettävät virheet.

Näin luot yksinkertaisen liidenseurantajärjestelmän Excelissä ennen CRM-järjestelmän ostamista

Näin luot yksinkertaisen liidenseurantajärjestelmän Excelissä ennen CRM-järjestelmän ostamista

Rakenna käytännöllinen liidenseuranta Exceliin taulukolla, vaihevalikoilla, seuranta-ajankohdilla, myöhässä olevien merkkauksilla, suodattimilla ja yksinkertaisella putkistoyhteenvetolla – sekä merkkejä siitä, milloin on aika siirtyä CRM-järjestelmään.

Tulostettava päivittäinen aikablokkauksen mallipohja PDF: etätyöläisille – aloittelijaystävällinen opas

Tulostettava päivittäinen aikablokkauksen mallipohja PDF: etätyöläisille – aloittelijaystävällinen opas

Opi käyttämään tulostettavaa päivittäistä aikablokkauksen mallipohjaa PDF-muodossa etätyöhön: suunnittele keskittymisblokit, palaverit, tauot, puskurit ja tulosta se oikein.

HubSpot Free CRM vs. Zoho CRM yksittäisille kiinteistönvälittäjille: Kumpi on parempi vuonna 2026?

HubSpot Free CRM vs. Zoho CRM yksittäisille kiinteistönvälittäjille: Kumpi on parempi vuonna 2026?

Vertaa HubSpot Free CRM:ää ja Zoho CRM:ää yksittäisille kiinteistönvälittäjille, mukaan lukien yhteystiedot, sähköposti, myyntiputket, mukauttaminen, automaatio, mobiilikäyttö ja päivitysten kompromissit.

Näin korjaat Word-asiakirjan, joka avautuu vain luku -tilassa Macilla

Näin korjaat Word-asiakirjan, joka avautuu vain luku -tilassa Macilla

Korjaa Macilla vain luku -tilassa avautuva Word-asiakirja tarkistamalla heinäkuun 2026 Office-päivitysongelma, Wordin muokkaustila, asiakirjan suojaus, Finderin käyttöoikeudet, OneDrive-pääsy ja tiedostosijainti.

Yksinkertainen Excel-in varastolaskentapohja vähittäiskaupalle: kentät, kaavat ja laskentaprosessi

Yksinkertainen Excel-in varastolaskentapohja vähittäiskaupalle: kentät, kaavat ja laskentaprosessi

Laadi yksinkertainen vähittäiskaupan varastolaskentataulukko Exceliin käytännöllisillä sarakkeilla, poikkeamakaavoilla, laskennan ohjauksella, tulostusvinkeillä ja nopealla tarkistuslistalla.