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


[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.

Så här säkerhetskopierar du din Chromebook (2022)

Så här säkerhetskopierar du din Chromebook (2022)

Om du undrar hur du säkerhetskopierar din Chromebook, så hjälper vi dig. Läs mer om vad som säkerhetskopieras automatiskt och vad som inte görs här

Så här fixar du att Xbox-appen inte öppnas i Windows 10 [SNABBGUIDE]

Så här fixar du att Xbox-appen inte öppnas i Windows 10 [SNABBGUIDE]

Vill du fixa Xbox-appen öppnas inte i Windows 10, följ sedan korrigeringarna som Aktivera Xbox-appen från tjänster, återställ Xbox-appen, Återställ Xbox-apppaketet och andra.

Vad är LogiOptions.exe (UNICODE) och är processen säker?

Vad är LogiOptions.exe (UNICODE) och är processen säker?

Om du har ett Logitech-tangentbord och -mus kommer du att se den här processen köras. Det är inte skadlig programvara, men det är inte en viktig körbar fil för Windows OS.

Fixat Java Update/Install Error 1603 i Windows 10

Fixat Java Update/Install Error 1603 i Windows 10

Läs artikeln för att lära dig hur du fixar Java Update-fel 1603 i Windows 10, prova korrigeringarna en efter en och fixa fel 1603 enkelt ...