Kaip patikrinti, ar langelis arba kelių langelių diapazonas yra tuščias naudojant „Excel VBA“?

Šiandien sužinosime, kaip lengvai patikrinti, ar vienas ar keli langeliai yra tušti, naudojant „Visual Basic for Applications“. Turinys tinka „Excel 2019“ / 365, 2016 ir ankstesnėms „Microsoft Office“ versijoms.

Paruošiamasis darbas

Prieš pradėdami koduoti naudodami VBA programoje „Excel“, turėsite įsitikinti, kad įgalintas kūrimo skirtukas. Jei taip nėra, peržiūrėkite šią trumpą mokymo programą .

Tikrinama, ar Excel langelių diapazonas tuščias naudojant VBA

Programoje „Excel“ atidarykite „Visual Basic“ aplinką paspausdami Alt + F11
Įdėkite šį kodą kaip procedūrą į darbalapį arba į tam skirtą 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

Eikite į skaičiuoklę ir pasirinkite savavališką langelių diapazoną.
Grįžkite į „Visual Basic“ redaktorių ir įsitikinkite, kad matoma „Immediate viewer“ (CTRL+G), nes kode esantis Debug.Print metodas išves rezultatą į tą langą.
Paspauskite F5, kad paleistumėte kodą.
Pažiūrėkite į rezultatus tiesioginiame lange.

Visi tušti langeliai bus identifikuoti.

Galimi kodo plėtiniai: Žinoma, galite išplėsti šį kodą pagal poreikį, jei norite praleisti tuščias reikšmes arba tiesiog nieko nedaryti, jei langeliai nėra pilni. Taip pat galite patikrinti, ar pats diapazonas yra tuščias, ty – nėra juodų langelių.

Tikrinami netušti laukai

Taip pat galite naudoti ypatybę IsEmpty, kad patikrintumėte, ar laukeliai nėra tušti.

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

Premija: naudokite šį kodą, jei norite paryškinti ir tuščius langelius.

Pritemdyti i Kaip ilgai Pritemdyti c Kaip ilgai pritemdyti myRange kaip diapazoną Dim myCell kaip diapazoną Nustatyti myRange = diapazonas ("A1:A10") Kiekvienam myCell MyRange ' c = c + 1 If IsEmpty(myCell) Tada myCell.Interior.Color = RGB(255, 87, 87) i = i + 1 End If Next myCell MsgBox _ "Yra viso " & aš & " tuščias langelis (-iai) iš " & c & "."

Palikti komentarą

Kaip išspręsti „Outlook negali siųsti el. laiškų, bet gali juos gauti“ klaidą

Ištaisykite „Outlook“, kai galite gauti el. laiškus, bet negalite jų siųsti. Patikrinkite išsiuntimo dėžutę, atjungties režimą, prisijungimą, SMTP nustatymus, profilius ir „Microsoft 365“ pakeitimus.

Paprastas dvisavaitinis atlyginimų apskaitos „Excel“ šablonas mažoms komandoms: praktinis diegimo vadovas

Sukurkite paprastą dvisavaitinį atlyginimų apskaitos šabloną „Excel“ mažai komandai, įtraukdami darbo valandas, atlyginimus, išskaičiavimus, peržiūros žymes, suvestines ir dokumentų saugojimo gaires.

Paprastas naujų darbuotojų įtraukimo mokymų pristatymo šablonas: 12 skaidrių praktinis planas

Sukurkite paprastą naujų darbuotojų įtraukimo pristatymą naudodami praktinę 12 skaidrių struktūrą, apimančią pareigų lūkesčius, įrankius, saugumą, politiką, saugą ir pirmosios savaitės veiksmus.

Kaip eksportuoti „Salesforce“ kontaktus į švarų „Excel“ formatą nesugadinant ID ar telefono numerių

Švariai eksportuokite „Salesforce“ kontaktus į „Excel“: sukurkite tinkamą ataskaitą, eksportuokite kaip „Details Only CSV“, importuokite naudodami „Power Query“, išsaugokite ID ir pradinus nulius, saugiai pašalinkite dublikatus ir patikrinkite rezultatą.

Spausdinamas savaitinis valymo tvarkaraščio šablonas „Airbnb“ šeimininkams (Word ir PDF)

Naudokite šį spausdinamą savaitinį valymo tvarkaraštį „Airbnb“ šeimininkams, kad organizuotumėte apsikeitimo valymą, giliajį valymą, atsargų papildymą, saugos patikras ir spausdinimą iš Word į PDF.

Nemokamas mėnesinių sąskaitų kalendoriaus organizatoriaus šablonas „Excel“: praktinis 2026 m. nustatymas

Organizuokite mėnesines sąskaitas „Excel“ naudodami nemokamą sąskaitų kalendoriaus išdėstymą, mokėjimo terminų stebėjimą, būsenos formules, automatinio mokėjimo laukus ir praktinius pinigų srautų patarimus.

Excel formulės neapskaičiuoja automatiškai? Ištaisykite tai per 3 paprastus veiksmus

Ištaisykite Excel formules, kurios neapskaičiuoja automatiškai, atlikdami tris veiksmus: įjunkite automatinį skaičiavimą, perskaičiuokite ir sutvarkykite formulių langelius.

Nepriklausomo rangovo išlaidų sekimo šablonas JAV laisvai samdomiems darbuotojams: ką sekti 2026 m.

Sukurkite praktišką išlaidų sekimo įrankį JAV laisvai samdomiems darbuotojams su Schedule C kategorijomis, kvitų laukais, nuvažiuotų mylių sekimu ir 2026 m. IRS taisyklių pakeitimais.

Geriausios nemokamos sąskaitų faktūrų programėlės mažoms JAV paslaugų įmonėms (2026 m.)

Palyginkite geriausias nemokamas sąskaitų faktūrų programėles JAV paslaugų įmonėms 2026 m., įskaitant „Zoho Invoice“, „Wave“, „Square“, „PayPal“ ir „Invoice Ninja“.

Nemokamas nuosavybės nuomos išlaidų ir pajamų stebėtojo „Excel“ šablonas: pradedančiųjų vadovas

Naudokite nemokamą „Excel“ nuomos nuosavybės stebėtoją pajamoms, išlaidoms, nuosavybei ir mėnesiniam pinigų srautui organizuoti. Sužinokite, ką fiksuoti, kaip tai nustatyti ir kokių klaidų vengti.