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


Ghimbir 2.7.53.0

Ghimbir 2.7.53.0

Ginger este un corector gratuit de ortografie și gramatică.

Blocuri

Blocuri

Blocuri este un joc intelectual pentru elevii clasei a III-a de școală elementară pentru a-și exersa abilitățile de detectare și ochi și este inclus de profesori în programul de suport didactic IT.

Prezi 6.26

Prezi 6.26

Prezi este o aplicație gratuită care vă permite să creați prezentări digitale, atât online, cât și offline.

Mathway

Mathway

Mathway este o aplicație foarte utilă care vă poate ajuta să rezolvați toate acele probleme de matematică care necesită un instrument mai complex decât calculatorul încorporat al dispozitivului dvs.

Adobe Presenter

Adobe Presenter

Adobe Presenter este un software de e-Learning lansat de Adobe Systems, disponibil pe platforma Microsoft Windows ca plug-in Microsoft PowerPoint.

Tucan 2.3.0

Tucan 2.3.0

Toucan este o platformă tehnologică educațională. Vă permite să învățați o nouă limbă în timp ce navigați pe site-uri web comune, de zi cu zi.

ENetViet 24.2

ENetViet 24.2

eNetViet este o aplicație care ajută la conectarea părinților cu școala în care învață copiii lor, astfel încât aceștia să poată înțelege clar situația actuală de învățare a copilului lor.

Duolingo

Duolingo

Duolingo - Învață limbi străine gratuit, sau pur și simplu Duolingo, este un program educațional care îți permite să înveți și să exersezi multe limbi diferite.

Tastare rapidă

Tastare rapidă

RapidTyping este un instrument de instruire la tastatură convenabil și ușor de utilizat, care vă va ajuta să vă îmbunătățiți viteza de tastare și să reduceți erorile de ortografie. Cu lecții organizate pentru mai multe niveluri diferite, RapidTyping vă va învăța cum să scrieți sau să îmbunătățiți abilitățile existente.

MathType 7.4.10.53

MathType 7.4.10.53

MathType este un software interactiv de ecuații de la dezvoltator Design Science (Dessci), care vă permite să creați și să adnotați notații matematice pentru procesarea de text, prezentări, eLearning etc. Acest editor este folosit și pentru crearea documentelor TeX, LaTeX și MathML.