Como inserir uma data numa célula quando uma caixa de verificação estiver assinalada no Excel?
Normalmente, insere uma marca de data no Excel utilizando teclas de atalho. Mas que tal inserir uma marca de data numa célula através de uma caixa de verificação? Ao marcar a caixa, a marca temporal é automaticamente inserida na célula especificada. Este artigo mostra-lhe como resolver esta questão.
Inserir data numa célula se uma caixa de verificação estiver assinalada com código VBA
Inserir data numa célula se uma caixa de verificação estiver assinalada com código VBA
Esta secção apresenta um script VBA que insere automaticamente uma marca de data numa célula assim que uma caixa de verificação for assinalada no Excel. Siga os passos abaixo.
1. Após inserir uma Caixa de Seleção, prima simultaneamente as teclas Alt+F11 para abrir a janela Microsoft Visual Basic para Aplicações.
2. Na janela Microsoft Visual Basic para Aplicações, clique em Inserir > Módulo. Em seguida, copie e cole o código VBA seguinte na janela do Módulo.
Código VBA: Inserir data numa célula se uma caixa de verificação estiver assinalada
Sub CheckBox_Date_Stamp()
Dim xChk As CheckBox
Set xChk = ActiveSheet.CheckBoxes(Application.Caller)
With xChk.TopLeftCell.Offset(, 1)
If xChk.Value = xlOff Then
.Value = ""
Else
.Value = Date
End If
End With
End Sub3. Prima as teclas Alt + Q para fechar a janela Microsoft Visual Basic para Aplicações.
4. Clique com o botão direito do rato na caixa de verificação e selecione Atribuir Macro no menu de contexto. Veja a imagem:
5. Na caixa de diálogo Atribuir Macro, selecione CheckBox_Date_Stamp na caixa Nome da macro e, em seguida, clique no botão OK. Veja a imagem:
Ao marcar a caixa de seleção, a marca de data será inserida automaticamente na célula adjacente.
Artigos relacionados:
- Como alterar o valor ou a cor de uma célula específica quando a caixa de verificação estiver marcada no Excel?
- Como realçar uma célula ou linha com base numa caixa de verificação no Excel?
- Como marcar automaticamente uma caixa de verificação com base no valor de uma célula no Excel?
- Como filtrar dados com base numa caixa de verificação no Excel?
- Como ocultar uma caixa de verificação quando a linha correspondente estiver oculta no Excel?
- Como criar uma lista suspensa com várias caixas de verificação 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