Hur kontrollerar jag om en cell eller ett intervall med flera celler är tomt med Excel VBA?

Idag ska vi lära oss hur du enkelt kontrollerar om en eller flera celler är tomma med Visual Basic for Applications. Innehållet är relevant för Excel 2019 / 365, 2016 och tidigare versioner av Microsoft Office.

Förberedande arbete

Innan du börjar koda med VBA i Excel måste du se till att din utvecklingsflik är aktiverad. Om så inte är fallet, vänligen titta på denna korta handledning .

Kontrollera om Excel-cellintervallet är tomt med VBA

  • Öppna din Visual Basic-miljö i Excel genom att trycka på Alt+F11
  • Infoga följande kod som en procedur i ditt arbetsblad, eller alternativt i en dedikerad 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


  • Gå till ditt kalkylblad och välj ett godtyckligt cellområde.
  • Gå tillbaka till Visual Basic-redigeraren och se till att Immediate viewer (CTRL+G) är synlig – eftersom Debug.Print-metoden i koden kommer att mata ut resultatet till det fönstret.
  • Tryck på F5 för att köra din kod.
  • Titta på resultaten i det omedelbara fönstret.

Hur kontrollerar jag om en cell eller ett intervall med flera celler är tomt med Excel VBA?

  • Alla tomma celler kommer att identifieras.

Möjliga tillägg till koden: Du kan självklart utöka den här koden om du är intresserad av att hoppa över tomma värden eller bara göra ingenting om cellerna inte är fulla. På samma sätt kan du kontrollera om själva området är tomt, dvs. inga svarta celler finns.

Kontrollerar icke tomma fält

På samma sätt kan du använda egenskapen IsEmpty för att söka efter fält som inte är tomma.

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

Bonus: Använd följande kod om du också vill markera tomma celler.

Dim i As Long Dim c As Long Dim myRange As Range Dim myCell As Range Set myRange = Range("A1:A10") För varje myCell In myRange ' c = c + 1 If IsEmpty(myCell) Then myCell.Interior.Color = RGB(255, 87, 87) i = i + 1 End If Next myCell MsgBox _ "Det finns totalt " & jag & " tomma cell(er) från " & läger; "."

Leave a Comment

Fixat Fortnite-inställningar sparas inte Windows 11 & 10

Fixat Fortnite-inställningar sparas inte Windows 11 & 10

Undrar varför mina Fortnite-inställningar fortsätter att återställas, då är den här guiden för dig, här hittar du hur du fixar Fortnite-inställningar som inte sparar problem

Hur man ställer in tabbstopp i Microsoft Word

Hur man ställer in tabbstopp i Microsoft Word

Lär dig att ställa in tabbstopp i Word för optimal dokumentformattering. Anpassa tabbstopp för att förbättra din arbetsflöde på Windows och Mac.

Hur man gör en försättssida i Google Dokument

Hur man gör en försättssida i Google Dokument

Skapar du ett akademiskt dokument i Google Dokument? Denna guide hjälper dig att infoga ett professionellt försättsblad med tydliga instruktioner.

Hur man ändrar teckensnitt på Xiaomi

Hur man ändrar teckensnitt på Xiaomi

Hur ändrar man typsnitt på Xiaomi? Följ instruktionerna för att ändra teckensnittsstilen och storleken på din Xiaomi-enhet.

[100% löst] Hur åtgärdar jag meddelandet Fel vid utskrift i Windows 10?

[100% löst] Hur åtgärdar jag meddelandet Fel vid utskrift i Windows 10?

Får felmeddelande om utskrift på ditt Windows 10-system, följ sedan korrigeringarna i artikeln och få din skrivare på rätt spår...

Hur man fångar och spelar en Microsoft Teams-inspelning

Hur man fångar och spelar en Microsoft Teams-inspelning

Du kan enkelt besöka dina möten igen om du spelar in dem. Så här spelar du in en Microsoft Teams-inspelning för ditt nästa möte.

Hur man återställer standardappar på Android

Hur man återställer standardappar på Android

När du öppnar en fil eller klickar på en länk väljer din Android-enhet en standardapp för att öppna den. Du kan återställa dina standardappar på Android med den här guiden.

FIXAT: Entitlement.diagnostics.office.com certifikatfel

FIXAT: Entitlement.diagnostics.office.com certifikatfel

FIXAT: Entitlement.diagnostics.office.com certifikatfel

Topp 10 spelwebbplatser som inte blockerades av skolan 2022

Topp 10 spelwebbplatser som inte blockerades av skolan 2022

För att ta reda på de bästa spelsajterna som inte blockeras av skolor, läs artikeln och välj den bästa oblockerade spelwebbplatsen för skolor, högskolor och verk

FIXAT: Skrivare i feltillstånd [HP, Canon, Epson, Zebra & Brother]

FIXAT: Skrivare i feltillstånd [HP, Canon, Epson, Zebra & Brother]

Om du står inför problemet med skrivaren i feltillstånd på Windows 10 PC och inte vet hur du ska hantera det, följ dessa lösningar för att fixa det.