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 Sub

3. 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?