Note: The other languages of the website are Google-translated. Back to English

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:


I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office/Excel 2007-2021 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
fondo officetab
Commenti (0)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite

Seguici

Copyright © 2009 - www.extendoffice.com. | Tutti i diritti riservati. Offerto da ExtendOffice, | Mappa del sito
Microsoft e il logo Office sono marchi o marchi registrati di Microsoft Corporation negli Stati Uniti e / o in altri paesi.
Protetto da Sectigo SSL