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

Lämna en kommentar

PowerPoint-mall för årsredovisning för ideella organisationer: Gratis nedladdningsalternativ och checklista för bildspel

PowerPoint-mall för årsredovisning för ideella organisationer: Gratis nedladdningsalternativ och checklista för bildspel

Skapa en tydlig årsredovisning för ideella organisationer i PowerPoint med en gratis mall, praktisk bildstruktur, effektmått, ekonomi och presentationstips som är redo för givare.

PowerPoint-mall för minimalistisk investerarpresentation för teknikstartups: Vad som ska inkluderas och vad som ska utelämnas

PowerPoint-mall för minimalistisk investerarpresentation för teknikstartups: Vad som ska inkluderas och vad som ska utelämnas

Skapa en PowerPoint-presentation för investerare i cleantech-startups med praktisk bildstruktur, evidensfokuserat budskap, tillgänglig design och färre distraktioner.

Enkel mall för uppgiftsdelegeringsmatris för Word: En praktisk version för små teamchefer

Enkel mall för uppgiftsdelegeringsmatris för Word: En praktisk version för små teamchefer

Använd den här enkla mallen för uppgiftsdelegeringsmatris i Word för att tilldela ägare, beslutsgränser, deadlines och kontrollpunkter utan att komplicera ett litet team alltför mycket.

Mall för enkel närvarolista för dagis: Utskrivbar in- och utloggning för hemomsorg

Mall för enkel närvarolista för dagis: Utskrivbar in- och utloggning för hemomsorg

Använd detta enkla utskrivbara närvaroblad för dagis för hemomsorg, med barnens namn, ankomst-/avgångstider, underskrifter och tips om efterlevnad.

Utskrivbar mall för marknadsföringsstrategi på en sida för lokala företag

Utskrivbar mall för marknadsföringsstrategi på en sida för lokala företag

Använd den här utskrivbara mallen för marknadsföringsstrategi på en sida för att definiera din lokala målgrupp, erbjudande, kanaler, budget, veckovisa åtgärder och mätbara mål.

Hur man stoppar Excel från att automatiskt ändra siffror till datum

Hur man stoppar Excel från att automatiskt ändra siffror till datum

Stoppa Excel från att konvertera värden som 1/2, 11-53 eller JAN1 till datum. Lär dig pålitliga lösningar för inmatning, inklistring, CSV-import och redan konverterade celler.

Modern Real Estate Listing Presentation PowerPoint Template (Free): What to Include

Modern Real Estate Listing Presentation PowerPoint Template (Free): What to Include

Build a polished real estate listing PowerPoint for free with a practical slide plan, photo, branding, accessibility, compliance, and export tips.

Så åtgärdar du felet att Outlook inte kan skicka e-post men kan ta emot

Så åtgärdar du felet att Outlook inte kan skicka e-post men kan ta emot

Åtgärda Outlook när du kan ta emot e-post men inte skicka. Kontrollera Utkorg, offlineläge, inloggning, SMTP-inställningar, profiler och ändringar i Microsoft 365.

Enkel biweekly lönespårare i Excel för små team: En praktisk installationsguide

Enkel biweekly lönespårare i Excel för små team: En praktisk installationsguide

Bygg en enkel biweekly lönespårare i Excel för ett litet team, med timmar, lön, avdrag, granskningsflaggor, sammanfattningar och vägledning för dokumentation.

Utskrivbar checklista och budgetmall för evenemangsplanering för Word: Vad som ska inkluderas och när man ska använda Excel istället

Utskrivbar checklista och budgetmall för evenemangsplanering för Word: Vad som ska inkluderas och när man ska använda Excel istället

Skapa eller anpassa en utskrivbar checklista och budgetmall för evenemangsplanering i Microsoft Word, med praktiska avsnitt, avvägningar och tips för Word kontra Excel.