Come verificare se una cella o un intervallo di più celle è vuoto con Excel VBA?

Come verificare se una cella o un intervallo di più celle è vuoto con Excel VBA?

Oggi impareremo come controllare facilmente se una o più celle sono vuote utilizzando Visual Basic, Applications Edition. Il contenuto è rilevante per Excel 2019/365, 2016 e versioni precedenti di Microsoft Office.

Lavoro di preparazione

Prima di iniziare a scrivere codice con VBA in Excel, devi assicurarti che la tua scheda di sviluppo sia abilitata. In caso contrario, dai un'occhiata a questo breve tutorial .

Verifica se l'intervallo di celle di Excel è vuoto con VBA

  • In Excel, apri il tuo ambiente Visual Basic premendo Alt+F11
  • Inserisci il codice seguente come procedura nel tuo foglio di lavoro o in alternativa in un modulo VBA dedicato.
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


  • Vai al tuo foglio di calcolo e seleziona un intervallo arbitrario di celle.
  • Torna all'editor di Visual Basic e assicurati che il visualizzatore immediato (CTRL+G) sia visibile, poiché il metodo Debug.Print nel codice visualizzerà il risultato in quella finestra.
  • Premi F5 per eseguire il tuo codice.
  • Guarda i risultati nella finestra immediata.

Come verificare se una cella o un intervallo di più celle è vuoto con Excel VBA?

  • Tutte le celle vuote verranno identificate.

Possibili estensioni al codice: puoi ovviamente estendere questo codice secondo necessità nel caso in cui sei interessato a saltare valori vuoti o semplicemente non fare nulla nel caso in cui le celle non siano piene. Allo stesso modo, puoi verificare se l'intervallo stesso è vuoto, ovvero non sono contenute celle nere.

Controllo dei campi non vuoti

Allo stesso modo è possibile utilizzare la proprietà IsEmpty per verificare la presenza di campi non vuoti.

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

Bonus: utilizza il seguente codice se desideri evidenziare anche le celle vuote.

Dim i As Long Dim c As Long Dim myRange As Range Dim myCell As Range Imposta myRange = Range("A1:A10") For Each 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 _ "Ci sono in totale" & io e "" celle vuote in " & c& "."


[RISOLTO] Il tuo computer è offline, accedi con lultima password Windows 10

[RISOLTO] Il tuo computer è offline, accedi con lultima password Windows 10

Se stai riscontrando l

Come raggruppare le cose in Presentazioni Google

Come raggruppare le cose in Presentazioni Google

Vuoi spostare gli elementi in Presentazioni Google senza perdere la loro posizione relativa? Scopri come raggrupparli in pochi semplici passi.

Come cancellare la cronologia delle connessioni desktop remoto

Come cancellare la cronologia delle connessioni desktop remoto

Scopri come cancellare la cronologia delle connessioni desktop remoto in modo semplice e veloce seguendo i passaggi indicati.

Come attivare o disattivare Caps Lock su Chromebook

Come attivare o disattivare Caps Lock su Chromebook

Scopri come attivare o disattivare Caps Lock su Chromebook in modo semplice e veloce. Segui i nostri passaggi per personalizzare la tua esperienza di digitazione.

Come regolare i rientri di elenchi puntati o numerici in Microsoft Word

Come regolare i rientri di elenchi puntati o numerici in Microsoft Word

Scopri come regolare i rientri degli elenchi in Microsoft Word per migliorare la formattazione del tuo documento.

HDMI non funziona su Windows 11? 11 correzioni

HDMI non funziona su Windows 11? 11 correzioni

Stai riscontrando problemi con la connettività HDMI su Windows 11? Scopri come risolvere i problemi di HDMI con 11 semplici correzioni.

[RISOLTO] Valheim continua a bloccarsi, bloccarsi, schermo nero, non si avviano problemi

[RISOLTO] Valheim continua a bloccarsi, bloccarsi, schermo nero, non si avviano problemi

Scopri come risolvere Valheim continua a bloccarsi, bloccarsi, schermo nero e problemi di avvio. Segui queste soluzioni efficaci per giocare senza interruzioni.

Come abilitare e personalizzare il lettore immersivo in Microsoft Word

Come abilitare e personalizzare il lettore immersivo in Microsoft Word

Scopri come abilitare e personalizzare il lettore immersivo in Microsoft Word per una lettura più accurata, aiuto con la pronuncia delle parole e per ascoltare il documento letto ad alta voce.

Come riprodurre file musicali direttamente da Google Drive

Come riprodurre file musicali direttamente da Google Drive

Scopri come riprodurre i tuoi file musicali archiviati su Google Drive senza doverli scaricare. Utilizza Music Player per Google Drive per un

[RISOLTO] Errore imprevisto di Windows 10 Defender e Microsoft Defender Threat Service ha interrotto lerrore

[RISOLTO] Errore imprevisto di Windows 10 Defender e Microsoft Defender Threat Service ha interrotto lerrore

Scopri come risolvere l