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


Norādījumi mūzikas klausīšanai pakalpojumā Google Maps

Norādījumi mūzikas klausīšanai pakalpojumā Google Maps

Norādījumi mūzikas klausīšanai pakalpojumā Google Maps. Pašlaik lietotāji var ceļot un klausīties mūziku, izmantojot Google Map lietojumprogrammu iPhone tālrunī. Šodien WebTech360 aicina jūs

LifeBOX — Viettel tiešsaistes krātuves pakalpojuma lietošanas instrukcijas

LifeBOX — Viettel tiešsaistes krātuves pakalpojuma lietošanas instrukcijas

LifeBOX lietošanas instrukcijas — Viettel tiešsaistes krātuves pakalpojums, LifeBOX ir nesen palaists Viettel tiešsaistes krātuves pakalpojums ar daudzām izcilām funkcijām.

Kā atjaunināt statusu pakalpojumā Facebook Messenger

Kā atjaunināt statusu pakalpojumā Facebook Messenger

Kā atjaunināt statusu pakalpojumā Facebook Messenger, Facebook Messenger jaunākajā versijā ir nodrošinājis lietotājiem ārkārtīgi noderīgu funkciju: mainot

Instrukcijas kāršu spēlei Vilkacis tiešsaistē datorā

Instrukcijas kāršu spēlei Vilkacis tiešsaistē datorā

Instrukcijas kāršu spēlei Werewolf Online datorā, instrukcijas Werewolf Online lejupielādei, instalēšanai un spēlēšanai datorā, izmantojot ārkārtīgi vienkāršo LDPlayer emulatoru.

Norādījumi Instagram publicēto stāstu dzēšanai

Norādījumi Instagram publicēto stāstu dzēšanai

Norādījumi Instagram publicēto stāstu dzēšanai. Ja vēlaties dzēst stāstu Instagram, bet nezināt, kā? Šodien WebTech360

Norādījumi par piedāvāto fotoattēlu pievienošanu Facebook

Norādījumi par piedāvāto fotoattēlu pievienošanu Facebook

Norādījumi par piedāvāto attēlu pievienošanu Facebook. Pašlaik Facebook ļauj mums iestatīt piedāvātos attēlus mūsu personīgajās lapās. Šeit mēs jūs aicinām

Kā novērst Windows ātrās palīdzības nedarbošanās kļūdu

Kā novērst Windows ātrās palīdzības nedarbošanās kļūdu

Kā novērst Windows Quick Assist nedarbošanās kļūdu, Windows Quick Assist palīdz ērti izveidot savienojumu ar attālo datoru. Tomēr dažreiz tas rada arī kļūdas. Bet,

Norādījumi dziesmu miksēšanas ieslēgšanai/izslēgšanai pakalpojumā Spotify

Norādījumi dziesmu miksēšanas ieslēgšanai/izslēgšanai pakalpojumā Spotify

Norādījumi dziesmu miksēšanas ieslēgšanai/izslēgšanai pakalpojumā Spotify, lai palīdzētu cilvēkiem ātri mainīt dziesmu secību iepriekš minētajā mūzikas atskaņošanas sarakstā

Norādījumi par audio slepenu ierakstīšanu iPhone tālrunī

Norādījumi par audio slepenu ierakstīšanu iPhone tālrunī

Norādījumi slepenai ierakstīšanai iPhone tālrunī, Pašlaik iPhone lietotāji var ierakstīt slepeni, pieskaroties tālruņa aizmugurē. Šodien WebTech360 aicina jūs

Kā izmantot Mixamo, lai animētu pielāgotus 3D modeļus

Kā izmantot Mixamo, lai animētu pielāgotus 3D modeļus

Kā izmantot Mixamo, lai animētu pielāgotus 3D modeļus. Izmantojot Mixamo, varat viegli importēt 3D modeli un lietot tam animācijas efektus. Zemāk ir lietošanas instrukcijas