Come evitare voci vuote o mancanti nelle celle in Excel?

Supponendo che tu stia creando una tabella nell'intervallo A1: B10 di un foglio di lavoro e devi impedire la visualizzazione di celle vuote in questo intervallo di tabelle, come ottenerlo? Questo articolo introduce un metodo per visualizzare automaticamente la finestra di richiesta se una voce vuota appare in un determinato intervallo di tabella durante la modifica. Si prega di seguire il metodo passo dopo passo nell'articolo.

Impedisci le voci vuote o mancanti nelle celle utilizzando il codice VBA

---

Impedisci le voci vuote o mancanti nelle celle utilizzando il codice VBA

A1: B10 è l'intervallo in cui è necessario creare una tabella all'interno e A1, B1 contengono le intestazioni della tabella come mostrato nell'immagine sottostante. Eseguire le seguenti operazioni per evitare che voci vuote o mancanti appaiano nell'intervallo A2: B10 durante la creazione della tabella.

1. Nel foglio di lavoro in cui non saranno consentite voci vuote in un determinato intervallo, fare clic con il pulsante destro del mouse sulla scheda del foglio, quindi fare clic su Visualizza codice dal menu di scelta rapida.

2. Nel Microsoft Visual Basic, Applications Edition finestra, copia e incolla il codice VBA sottostante nella finestra del codice. Vedi screenshot:

Codice VBA: impedisce voci vuote o mancanti in un intervallo di celle

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count <> 1 Then Exit Sub
    Dim isect As Range
    On Error Resume Next
    Set isect = Application.Intersect(Target, Range("A2:B10"))
    
    If Not (isect Is Nothing) Then
        If Target.Column = 1 Then
            If Len(Target.Value) > 0 And Len(Target.Offset(-1, 0).Value) = 0 Then
                MsgBox "You cannot skip a row in column A2:B10", vbInformation, "Kutools for Excel"
                Target.ClearContents
            End If
        Else
            If (Len(Target.Value) > 0 And Len(Target.Offset(-1, 0).Value) = 0) Or (Len(Target.Value) > 0 And Len(Target.Offset(0, -1).Value) = 0) Then
                MsgBox "You cannot skip a row in column A2:B10", vbInformation, "Kutools for Excel"
                Target.ClearContents
            End If
        
        End If
    End If
End Sub

Note:: Nel codice VBA, A2: B10 è l'intervallo di celle in cui non vuoi lasciare celle vuote all'interno. Si prega di modificare l'intervallo di cui hai bisogno.

D'ora in poi, quando salti una cella vuota e inserisci direttamente la cella successiva nell'intervallo specificato, otterrai un file Kutools for Excel finestra di dialogo come mostrato nell'immagine sottostante.

---

Articoli correlati:

• Come impedire l'immissione di dati in celle specifiche di un foglio di lavoro in Excel?
• Come impedire la selezione di più fogli di lavoro in Excel?
• Come impedire che un determinato foglio di lavoro venga eliminato in Excel?
• Come impedire l'eliminazione di contenuti di celle specifici in Excel?