Como inserir um carimbo de data em uma célula se uma caixa de seleção for marcada no Excel?
Normalmente, você insere um carimbo de data usando atalhos no Excel. Que tal inserir um carimbo de data em uma célula usando uma caixa de seleção no Excel? Quando a caixa de seleção é marcada, o carimbo de data é inserido automaticamente em uma célula específica. Este artigo irá ajudá-lo a resolver isso.
Inserir carimbo de data em uma célula se uma caixa de seleção for marcada com código VBA
Inserir carimbo de data em uma célula se uma caixa de seleção for marcada com código VBA
Esta seção apresentará um script VBA para ajudá-lo a inserir um carimbo de data em uma célula automaticamente se uma caixa de seleção for marcada no Excel. Por favor, siga os passos abaixo.
1. Após inserir uma caixa de seleção, pressione simultaneamente as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie e cole o código VBA abaixo na janela Módulo.
Código VBA: Inserir carimbo de data em uma célula se uma caixa de seleção for marcada
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. Pressione as teclas Alt + Q para fechar a janela Microsoft Visual Basic for Applications.
4. Clique com o botão direito do mouse na caixa de seleção e selecione Atribuir Macro no menu de contexto. Veja a captura de tela:
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 captura de tela:
Ao marcar a caixa de seleção, o carimbo de data será inserido automaticamente na célula adjacente.
Artigos relacionados:
- Como alterar o valor ou cor de uma célula específica quando a caixa de seleção é marcada no Excel?
- Como destacar célula ou linha com caixa de seleção no Excel?
- Como marcar uma caixa de seleção com base no valor da célula no Excel?
- Como filtrar dados com base na caixa de seleção no Excel?
- Como ocultar caixa de seleção quando a linha está oculta no Excel?
- Como criar uma lista suspensa com várias caixas de seleção no Excel?
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins