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.

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

Voittoa tavoittelemattoman organisaation vuosikertomuksen PowerPoint-malli: Ilmaiset latausvaihtoehdot ja dialuettelo

Luo selkeä voittoa tavoittelemattoman organisaation vuosikertomus PowerPointissa ilmaisen mallin, käytännöllisen diarakenteen, vaikuttavuusmittareiden, taloustietojen ja lahjoittajille tarkoitettujen esitysvinkkien avulla.

Minimalistinen sijoittajapuheen PowerPoint-malli teknologia-alan startup-yrityksille: Mitä sisällyttää ja mitä jättää pois

Rakenna clean tech -alan startup-sijoittajan pitch-deck PowerPointilla käytännöllisellä diarakenteella, näyttöön perustuvalla viestinnällä, saavutettavalla suunnittelulla ja vähemmillä häiriötekijöillä.

Yksinkertainen tehtävien delegointimatriisimalli Wordille: Käytännönläheinen versio pienten tiimien esimiehille

Käytä tätä yksinkertaista tehtävien delegointimatriisimallia Wordissa omistajien, päätösrajojen, määräaikojen ja tarkistuspisteiden määrittämiseen ilman, että pienen tiimin työstä tulee liian monimutkaista.

Yksinkertainen päivähoidon läsnäololomakkeen malli: Tulostettava kirjautuminen sisään ja ulos kotihoitoon

Käytä tätä yksinkertaista tulostettavaa päivähoidon läsnäololomaketta kotihoitoon. Lomakkeeseen tulee lasten nimet, saapumis- ja lähtöajat, allekirjoitukset ja vinkkejä sääntöjen noudattamiseen.

Tulostettava yhden sivun markkinointistrategiamalli paikallisille yrityksille

Käytä tätä tulostettavaa yksisivuista markkinointistrategiapohjaa määrittääksesi paikallisen yleisösi, tarjonnan, kanavat, budjetin, viikoittaiset toimenpiteet ja mitattavissa olevat tavoitteet.

Kuinka estää Exceliä muuttamasta numeroita automaattisesti päivämääriksi

Estä Exceliä muuntamasta arvoja, kuten 1/2, 11-53 tai JAN1, päivämääriksi. Opi luotettavia korjauksia kirjoittamiseen, liittämiseen, CSV-tuontiin ja jo muunnettujen solujen käyttöön.

Modern Real Estate Listing Presentation PowerPoint Template (Free): What to Include

Build a polished real estate listing PowerPoint for free with a practical slide plan, photo, branding, accessibility, compliance, and export tips.

Näin korjaat Outlookin virheen: sähköpostia voi vastaanottaa, mutta ei lähettää

Korjaa Outlook, kun sähköpostia voi vastaanottaa mutta ei lähettää. Tarkista Lähtevät, offline-tila, kirjautuminen, SMTP-asetukset, profiilit ja Microsoft 365 -muutokset.

Yksinkertainen kahden viikon välein tapahtuvan palkanmaksun Excel-seurantamalli pienille tiimeille: käytännön asennusopas

Rakenna yksinkertainen kahden viikon välein tapahtuva palkanmaksuseurantamalli Exceliin pienelle tiimille, mukaan lukien tunnit, palkat, vähennykset, tarkistusliput, yhteenvedot ja kirjanpito-ohjeet.

Tulostettava tapahtumasuunnittelun tarkistuslista ja budjettimalli Wordiin: Mitä sisällyttää ja milloin käyttää Exceliä

Luo tai mukauta tulostettava tapahtumasuunnittelun tarkistuslista ja budjettimalli Microsoft Wordissa, joka sisältää käytännön osioita, kompromisseja ja vinkkejä Wordin ja Excelin vertailuun.