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

Como abrir um calendário ao clicar em uma célula específica no Excel?

Supondo que haja um intervalo de colunas em uma planilha, você precisa inserir e alterar as datas com frequência, mas é entediante inserir ou alterar a data manualmente por hora. Como inserir datas rapidamente sem digitar manualmente no intervalo de colunas? Este artigo fala sobre abrir um calendário ao clicar em células em um determinado intervalo e, em seguida, inserir a data na célula selecionada automaticamente após selecionar a data no calendário.


Abra um calendário ao clicar em uma célula específica com o código VBA

Resolva este problema da seguinte forma, passo a passo.

Nota: Este método só funciona no Microsoft Excel de 32 bits.

Etapa 1: Crie um UserForm com calendário

Crie um formulário de usuário que contenha o calendário que você abrirá clicando em uma célula.

1. Pressione outro + F11 simultaneamente para abrir o Microsoft Visual Basic para Aplicações janela.

2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > UserForm.

3. Então um UserForm e de um Caixa de ferramentas janelas pop-up, no Caixa de ferramentas, clique em qualquer controle, clique com o botão direito e selecione Controles Adicionais no menu do botão direito. Veja a imagem:

4. No Controles Adicionais caixa de diálogo, role para baixo para verificar o Controle Microsoft MonthView opção no Controles Disponíveis e, em seguida, clique no OK botão.

5. Então você pode ver o Visualização de mês O botão é adicionado no Caixa de ferramentas janela. Clique neste botão MonthView e, em seguida, clique na janela UserForm1 para criar um calendário no formulário do usuário.

Nota: Você pode ajustar o tamanho da janela do UserForm para se adequar ao calendário inserido arrastando a borda do UserForm.

6. Clique duas vezes no calendário inserido no UserForm1 e no Código janela, substitua o código original com o 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 Sub

Nota: Este código pode ajudar a inserir a data na célula selecionada após selecionar a data do calendário.

Etapa 2: ative o calendário ao clicar na célula

Agora você precisa especificar certas células para abrir o calendário ao clicar. Faça o seguinte.

7. Clique duas vezes no nome da planilha que contém as células em que você clicar para abrir o calendário à esquerda Projeto painel 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 Sub

Nota: no código, A2: A10 são células nas quais você clica para abrir o calendário. Altere o intervalo de células conforme necessário.

8. Pressione outro + Q simultaneamente para fechar o Microsoft Visual Basic para Aplicações janela.

A partir de agora, ao clicar em qualquer célula dentro do intervalo especificado na planilha atual, um calendário aparecerá conforme a imagem mostrada abaixo. E a data será inserida automaticamente na célula selecionada após selecionar a data no calendário.


Abra um calendário ao clicar em uma célula específica com o código VBA

Esta seção apresenta o Data Picker utilidade de Kutools for Excel. Depois de ativar esse recurso, clique em uma célula de data para abrir um calendário, você pode facilmente substituir a data existente por uma nova data com ela. Siga as etapas abaixo para aplicar este recurso.

1. Clique Kutools > Conteúdo > Habilitar selecionador de data.

2. Depois de habilitar este recurso, clique em uma célula de data e um ícone de calendário aparecerá diretamente na célula.

3. Clique no ícone de calendário para abrir o Data Picker caixa de diálogo e clique em uma nova data para substituir a data na célula selecionada.

notas:

  • Botão Desfazer: Clique neste botão para desfazer a substituição da data;
  • Botão Fechar: Clique neste botão para fechar a caixa de diálogo Selecionador de data;
  • Este recurso só pode ser aplicado a células contendo data.

  Se você quiser ter uma avaliação gratuita (30-dia) deste utilitário, por favor clique para fazer o downloade, em seguida, aplique a operação de acordo com as etapas acima.


Artigos relacionados:


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
parte inferior da aba do escritório
Comentários (18)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Quero mostrar o calendário pop-up na célula selecionada. Como devo fazer?
Este comentário foi feito pelo moderador no site
eu usei esses códigos VBA e tudo está bem até agora. O intervalo é A2:A10 e o calendário aparece quando você seleciona uma célula nele. Mas se você marcar a linha de 2 a 10 novamente, o calendário será exibido novamente. É o mesmo com a coluna "A" se você marcar, novamente o calendário aparece. Como devo proceder, para obter o calendário apenas no intervalo que defini?
Este comentário foi feito pelo moderador no site
Olá a todos,

Alguém pode me dizer como exibir um calendário em um intervalo de células, mas começando apenas na célula logo abaixo de um cabeçalho de tabela e abaixo em uma coluna do Excel.


Obrigado antecipadamente.
Este comentário foi feito pelo moderador no site
Bom dia,
Desculpe não recebi sua pergunta. Seria bom se você pudesse fornecer uma captura de tela do que você está tentando fazer.
Este comentário foi feito pelo moderador no site
Use, por exemplo: Range("B6:C30")
Este comentário foi feito pelo moderador no site
Use, por exemplo: Range("B6:C30")
Este comentário foi feito pelo moderador no site
tarihi seçebiliyorum ama a1:a10 hücrelerine seçtiğim tarih eklenmiyor. teşekkür ederim
Este comentário foi feito pelo moderador no site
se eu tentar selecionar uma linha, o pop-up será ativado e a data aparecerá em cada célula dessa linha


Como posso evitar isso
Este comentário foi feito pelo moderador no site
Olá Sam,
O código foi atualizado no artigo com a resolução do problema. Por favor, tente e obrigado pelo seu comentário.
Este comentário foi feito pelo moderador no site
Salve il codice funziona benissimo, mas se volessi farlo funzionare anche su un altro foglio
Este comentário foi feito pelo moderador no site
Oi, É possível colocar o pop-up do seletor de datas para várias colunas, pois na minha planilha eu tenho "data de início", "data de término" e "data do contrato". se sim então como?
Este comentário foi feito pelo moderador no site
Olá jeet,
Siga as etapas e substitua o intervalo "A2:A10" no segundo código VBA pelo intervalo de coluna (como C2:E2).
Este comentário foi feito pelo moderador no site
Muito obrigado! Essas indicações foram super úteis :)
Este comentário foi feito pelo moderador no site
O calendário aparecerá, mas quando clico na data, a célula não preenche
Este comentário foi feito pelo moderador no site
Oi,
O código funciona bem no meu caso. Qual versão do Excel você está usando?
Este comentário foi feito pelo moderador no site
Não há Microsoft MonthView Control listado (Office 365), e as instruções aqui não explicam como obter esse controle, então isso é praticamente inútil, a menos que você esteja usando uma versão mais antiga do Excel.
Este comentário foi feito pelo moderador no site
Não estou vendo o Microsoft MonthView Control na listagem, mas pode ser como Pete (#32847) mencionou que isso não funcionará no Office 365 ou no Microsoft Office de 64 bits.
Este comentário foi feito pelo moderador no site
Olá Teagan Caudle,
Pesquisei e tentei os métodos sugeridos no google, mas não consegui registrar o controle MonthView no Microsoft 365.
Desculpe pela inconveniência. Talvez você possa verificar isso.
https://social.technet.microsoft.com/Forums/Azure/en-US/db3b4dff-aad7-4d88-87cc-8f3f117be550/microsoft-windows-common-controls-60-for-office-2016
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL