Como exibir um calendário ao clicar numa célula específica no Excel?
Imagine um intervalo de colunas numa folha de cálculo onde precisa frequentemente de introduzir e alterar datas, mas digitar ou editar manualmente cada data é cansativo. Como inserir rapidamente datas sem ter de as escrever à mão nesse intervalo? Este artigo explica como exibir um calendário ao clicar em células de um determinado intervalo e, em seguida, inserir automaticamente a data escolhida na célula selecionada.
Exibir um calendário ao clicar numa célula específica com código VBA
Resolva este problema passo a passo, conforme indicado a seguir.
Nota: Este método só funciona no Microsoft Excel de 32 bits.
Passo 1: Criar um UserForm com calendário
Crie um UserForm com um calendário que seja exibido automaticamente ao clicar numa célula.
1. Prima simultaneamente as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > UserForm.
3. Em seguida, surgem as janelas UserForm e Caixa de Ferramentas. Na Caixa de Ferramentas, clique num controlo qualquer, clique com o botão direito e selecione Controlos Adicionais no menu de contexto. Veja a imagem:
4. Na caixa de diálogo Controlos Adicionais, percorra até encontrar a opção Microsoft MonthView Control na caixa Controlos Disponíveis e, em seguida, clique no botão OK.
5. Depois, verá que o botão MonthView foi adicionado à janela da Caixa de Ferramentas. Clique neste botão MonthView e, em seguida, clique na janela UserForm1 para criar um calendário no UserForm.
Nota: Pode ajustar o tamanho da janela do UserForm para se adaptar ao calendário inserido, arrastando a respetiva borda.
6. Faça duplo clique no calendário inserido no UserForm1 e, na janela Código, substitua o código original pelo seguinte script VBA.
VBA code: create a user form with calendar
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
On Error Resume Next
Dim xRg As Object
For Each xRg In Selection.Cells
xRg.Value = DateClicked
Next xRg
Unload Me
End SubNota: Este código insere a data na célula selecionada após escolher uma data no calendário.
Passo 2: Ativar o calendário ao clicar numa célula
Agora, indique as células específicas nas quais, ao clicar, o calendário será exibido. Siga os passos abaixo.
7. Faça duplo clique no nome da folha que contém as células onde irá clicar para exibir o calendário, no painel Projeto à esquerda e, em seguida, copie e cole o código VBA abaixo na janela Código. Veja a imagem:
VBA code: Click cell to pop up calendar
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Count = 1) Then
If Not Intersect(Target, Range("A2:A10")) Is Nothing Then UserForm1.Show
End If
End SubNota: no código, A2:A10 são as células onde clicará para exibir o calendário. Ajuste o intervalo de células conforme necessário.
8. Prima simultaneamente as teclas Alt + Q para fechar a janela do Microsoft Visual Basic for Applications.
A partir de agora, ao clicar em qualquer célula dentro do intervalo limitado na Planilha Atual, será exibido um calendário, tal como mostrado na imagem seguinte. A data escolhida no calendário será inserida automaticamente na célula selecionada.
Exibir um calendário ao clicar numa célula específica com código VBA
Esta secção apresenta a utilidade Seleção de Data do Kutools para Excel. Após ativar esta funcionalidade, ao clicar numa célula com data será exibido um calendário, permitindo-lhe substituir facilmente a data existente por uma nova. Siga os passos abaixo para aplicar esta funcionalidade.
1. Clique em Kutools > Conteúdo > Ativar Seleção de Data.
2. Após ativar esta funcionalidade, clique numa célula com data e surgirá imediatamente à direita um ícone de calendário.
3. Clique no ícone de calendário para abrir a caixa de diálogo Seleção de Data e, em seguida, clique numa nova data para substituir a data na célula selecionada.
Notas:
Botão Anular: clique neste botão para anular a substituição da data;
Botão Fechar: clique neste botão para fechar a caixa de diálogo Seleção de Data;- Esta funcionalidade só está disponível para células que contenham datas.
Botão Anular: clique neste botão para anular a substituição da data;
Botão Fechar: clique neste botão para fechar a caixa de diálogo Seleção de Data;Se pretender experimentar gratuitamente esta utilidade durante 30 dias, clique para a transferir e, em seguida, siga os passos indicados acima.
Artigos relacionados:
- Como executar ou acionar uma macro ao clicar numa célula específica no Excel?
- Como alterar a cor de uma célula quando ela é clicada ou selecionada no Excel?
- Como exibir uma caixa de mensagem ao clicar numa célula específica no Excel?
- Como desativar um botão após ser clicado uma vez no Excel?
- Como desativar o clique com o botão direito do rato no separador da folha 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