Cum se verifică dacă o celulă sau un interval de mai multe celule este goală cu Excel VBA?

Cum se verifică dacă o celulă sau un interval de mai multe celule este goală cu Excel VBA?

Astăzi vom afla cum să verificăm cu ușurință dacă una sau mai multe celule sunt goale folosind Visual Basic pentru aplicații. Conținutul este relevant pentru Excel 2019 / 365, 2016 și versiunile anterioare ale Microsoft Office.

Lucru de pregătire

Înainte de a începe codarea cu VBA în Excel, va trebui să vă asigurați că fila de dezvoltare este activată. Dacă nu este cazul, vă rugăm să consultați acest scurt tutorial .

Verificarea dacă intervalul de celule Excel este gol cu ​​VBA

  • În Excel, deschideți mediul Visual Basic apăsând Alt+F11
  • Introduceți următorul cod ca procedură în foaia de lucru sau, alternativ, într-un modul VBA dedicat.
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


  • Accesați foaia de calcul și selectați un interval arbitrar de celule.
  • Reveniți la editorul Visual Basic și asigurați-vă că vizualizatorul Imediat (CTRL+G) este vizibil – deoarece metoda Debug.Print din cod își va afișa rezultatul în acea fereastră.
  • Apăsați F5 pentru a rula codul.
  • Priviți rezultatele în fereastra imediată.

Cum se verifică dacă o celulă sau un interval de mai multe celule este goală cu Excel VBA?

  • Toate celulele goale vor fi identificate.

Posibile extensii ale codului: puteți, evident, extinde acest cod după cum este necesar, în cazul în care sunteți interesat să săriți peste valorile goale sau pur și simplu nu faceți nimic în cazul în care celulele nu sunt pline. În mod similar, puteți verifica dacă Intervalul în sine este gol, adică – nu sunt conținute celule negre.

Verificarea câmpurilor care nu sunt goale

În același mod, puteți utiliza proprietatea IsEmpty pentru a verifica câmpurile care nu sunt goale.

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

Bonus: Folosiți următorul cod dacă doriți să evidențiați și celulele goale.

Dim i As Long Dim c As Long Dim myRange As Range Dim myCell As Range Set myRange = Range("A1:A10") Pentru fiecare myCell din myRange ' c = c + 1 If IsEmpty(myCell) Then myCell.Interior.Color = RGB(255, 87, 87) i = i + 1 End If Next myCell MsgBox _ "Există total " & i & " celulă(e) goală(e) din " & tabără; "."


7 moduri de a remedia eroarea Blue Screen of Death (BSOD) în Windows 10

7 moduri de a remedia eroarea Blue Screen of Death (BSOD) în Windows 10

Luptă cu eroarea Blue Screen of Death (BSOD) în Windows 10. Obțineți remedieri de depanare pentru a rezolva această eroare cu ușurință.

Cum se creează etichete în aplicația Gmail? Iată tot ce trebuie să știi

Cum se creează etichete în aplicația Gmail? Iată tot ce trebuie să știi

Dacă doriți să creați etichete în aplicația Gmail, acest ghid vă oferă soluția. Aflati cum sa faceti acest lucru atât pe telefon, cât și pe desktop.

Cum să adăugați chenar la o pagină în Microsoft Word

Cum să adăugați chenar la o pagină în Microsoft Word

Îmbunătățiți-vă documentele cu un chenar de pagină personalizat în Word. Află cum să adăugați și să personalizezi chenarul.

Cum să remediați Xbox nu se conectează la Wi-Fi? [10 soluții rapide]

Cum să remediați Xbox nu se conectează la Wi-Fi? [10 soluții rapide]

Dacă Xbox-ul dvs. nu se va conecta la Wi-Fi, urmăriți soluțiile furnizate în acest articol pentru a vă conecta Xbox și a continua să jucați.

REPARAT: PS4 se oprește de la sine Problemă aleatorie [Remediere rapidă]

REPARAT: PS4 se oprește de la sine Problemă aleatorie [Remediere rapidă]

Dacă PS4 se oprește de la sine, urmați soluțiile noastre eficiente pentru a remedia problema rapid și ușor.

Remediați „Microfonul este dezactivat de setările sistemului Google Meet” [6 trucuri]

Remediați „Microfonul este dezactivat de setările sistemului Google Meet” [6 trucuri]

Aflați cele mai bune soluții pentru a remedia eroarea „microfonul este dezactivat de setările sistemului” pe Google Meet, Zoom și Hangouts.

Cum să scrieți fracții în Google Docs

Cum să scrieți fracții în Google Docs

Descoperiți modalitățile simple și eficiente de a scrie fracții în Google Docs folosind caractere speciale și echivalente automate.

7 Remedieri rapide pentru eroarea ReCaptcha pentru proprietarul site-ului: Tip cheie nevalid

7 Remedieri rapide pentru eroarea ReCaptcha pentru proprietarul site-ului: Tip cheie nevalid

Remedierea eroarei Google ReCaptcha „Eroare pentru proprietarul site-ului: tip cheie invalid” prin soluții eficiente și actualizate.

Cum să calibrați culoarea monitorului în Windows 10

Cum să calibrați culoarea monitorului în Windows 10

Setările de calibrare a culorilor încorporate în Windows 10 vă ajută să îmbunătățiți acuratețea culorii monitoarelor dvs. Acest ghid detaliat vă arată cum să găsiți și să configurați aceste setări.

Conectarea la PlayStation Network a eșuat [FIXAT]

Conectarea la PlayStation Network a eșuat [FIXAT]

Conectarea la rețeaua PlayStation a eșuat atunci când vă conectați la PS4, apoi urmați remedieri precum actualizarea software-ului sistemului PSN, modificarea setărilor DNS...