Как вставить отметку даты в ячейку, если флажок отмечен в Excel?

Обычно вы вводите отметку даты с помощью горячих клавиш в Excel. Как насчет того, чтобы вставить отметку даты в ячейку с использованием флажка в Excel? Когда флажок отмечен, временная метка автоматически вставляется в указанную ячейку. Эта статья поможет вам решить эту задачу.

Вставка отметки даты в ячейку при отметке флажка с помощью кода VBA

Вставка отметки даты в ячейку при отметке флажка с помощью кода VBA

В этом разделе будет представлен скрипт VBA, который поможет вам автоматически вставить отметку даты в ячейку, если флажок отмечен в Excel. Пожалуйста, следуйте инструкциям ниже.

1. После вставки флажка одновременно нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. В окне Microsoft Visual Basic for Applications нажмите Вставить > Модуль. Затем скопируйте и вставьте приведенный ниже код VBA в окно Модуля.

Код VBA: Вставка отметки даты в ячейку при отметке флажка

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. Нажмите клавиши Alt + Q, чтобы закрыть окно Microsoft Visual Basic for Applications.

4. Щелкните правой кнопкой мыши по флажку и выберите Назначить макрос из контекстного меню. См. скриншот:

5. В диалоговом окне Назначить макрос выберите CheckBox_Date_Stamp в поле Имя макроса, а затем нажмите кнопку ОК. См. скриншот:

При отметке флажка отметка даты будет автоматически вставлена в соседнюю ячейку.

Связанные статьи:

• Как изменить значение или цвет определенной ячейки, когда флажок отмечен в Excel?
• Как выделить ячейку или строку с помощью флажка в Excel?
• Как сделать флажок отмеченным на основе значения ячейки в Excel?
• Как фильтровать данные на основе флажка в Excel?
• Как скрыть флажок, когда строка скрыта в Excel?
• Как создать выпадающий список с несколькими флажками в Excel?