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