Como permitir apenas o formato de data em células específicas no Excel?
Restringir células específicas para aceitarem apenas o formato de data no Excel é uma ótima forma de garantir a consistência dos seus dados. Este guia apresenta duas abordagens eficazes: utilizar a funcionalidade Validação de Dados ou aplicar um código VBA simples para assegurar que apenas datas possam ser introduzidas nas células selecionadas.
Permitir apenas Formato de data em células específicas com a função Validação de Dados
Permitir apenas Formato de data em células específicas com código VBA
Permitir apenas Formato de data em células específicas com a função Validação de Dados
No Excel, a Validação de Dados é uma funcionalidade poderosa que lhe permite criar listas pendentes, evitar entradas duplicadas, entre outras possibilidades. Pode ainda impedir a introdução de qualquer formato de dados que não seja uma data em células específicas. Siga os passos abaixo:
1. Clique em Dados > Validação de Dados > Validação de Dados, conforme mostra a imagem:
2. Na caixa de diálogo Validação de Dados, clique no separador Definições, escolha Personalizado na lista pendente Permitir e introduza esta fórmula: =AND(ISNUMBER(B2),LEFT(CELL("format",B2),1)=«D») na caixa de texto Fórmula, conforme mostra a imagem:
Nota: Na fórmula acima, B2 é a primeira célula da coluna cujo formato de dados pretende restringir.
3.Em seguida, clique no separador Alerta de Errona caixa de diálogo e realize os seguintes passos:
(1.) Marque a opção Mostrar alerta de erro após introdução de dados inválidos;
(2.) No menu Estilopendente, selecione Por favor, selecione Parar;
(3.) Introduza o Título e a Mensagem de erro que pretende apresentar na caixa de aviso.
4. Após concluir as definições, clique no botão OK. A partir desse momento, sempre que introduzir dados que não estejam num formato de data válido, será apresentada uma caixa de aviso, conforme ilustrado na imagem seguinte:
Permitir apenas Formato de data em células específicas com código VBA
O segundo método recorre a um código VBA para executar esta tarefa.
1. Ative a folha de cálculo que pretende utilizar.
2. Em seguida, clique com o botão direito do rato no separador da folha e selecione Ver Código no menu de contexto, conforme mostra a imagem:
3. Na janela Microsoft Visual Basic para Aplicações exibida, copie e cole o código seguinte no Módulo, conforme mostra a imagem:
Código VBA: Permitir apenas a introdução de Formato de data em células específicas:
Private Sub Worksheet_Change(ByVal Target As Range)
'updateby Extendoffice
Set w = ActiveSheet.Range("B2:B12")
For Each c In w
If c.Value <> "" And Not IsDate(c) Then
c.ClearContents
MsgBox "Only a date format is permitted in this cell."
End If
Next c
End Sub
4. Guarde e feche o código. Agora, ao introduzir um valor que não esteja no formato de data no intervalo B2:B12, surgirá uma caixa de aviso a lembrá-lo, e o valor da célula será apagado automaticamente, conforme mostra a imagem:
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