Como evitar entradas em branco ou omissas nas células do Excel?
Se estiver a criar uma tabela no intervalo A1:B10 de uma folha de cálculo e quiser garantir que não fiquem células em branco nesse intervalo, pode implementar uma solução que mostre automaticamente uma mensagem sempre que for detetada uma entrada em branco durante a edição. Siga este guia passo a passo para evitar entradas em branco ou em falta no intervalo da tabela especificado.
Impedir entradas em branco ou em falta nas células utilizando código VBA
Impedir entradas em branco ou em falta nas células utilizando código VBA
O intervalo A1:B10 está definido como a sua tabela, com A1 e B1 a servirem de cabeçalhos, tal como mostrado na imagem seguinte. Siga os passos indicados para evitar entradas em branco ou em falta no intervalo A2:B10 ao preencher a tabela.
1. Na folha de cálculo onde pretende impedir entradas em branco num determinado intervalo, clique com o botão direito do rato no separador da folha e, em seguida, clique em Ver Código no menu de contexto.
2. Na janela do Microsoft Visual Basic for Applications, copie e cole o código VBA abaixo na janela de código. Veja a imagem:
Código VBA: Impedir entradas em branco ou em falta num intervalo de células
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
Nota: No código VBA, A2:B10 é o intervalo de células em que não pretende deixar nenhuma célula vazia. Por favor, ajuste o intervalo conforme necessário.
A partir de agora, se saltar uma célula em branco e preencher a célula seguinte no intervalo limitado, aparecerá uma caixa de diálogo Kutools para Excel, conforme ilustrado abaixo.
Artigos relacionados:
- Como impedir a introdução de dados em células específicas de uma folha de cálculo no Excel?
- Como impedir que várias folhas de cálculo sejam selecionadas no Excel?
- Como impedir que uma determinada folha de cálculo seja eliminada no Excel?
- Como evitar que o conteúdo de células específicas seja apagado no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos