Дата в ячейке от нажатия чекбокса

Дата в ячейке от нажатия чекбокса, Нажал чекбокс - в ячейку записалась дата.

Пользователь

Сообщений: 13 Регистрация: 29.07.2015

10.04.2017 18:59:57

Добрый день!

К ячейке в таблице1 привязан чекбокс. Необходимо, чтобы при нажатии на чекбокс в ячейку попадала сегодняшняя дата.
При снятии чекбокса данные в ячейке удалялись.

Прикрепленные файлы

Таблица1.xlsx (12.28 КБ)

VideoAlex Пользователь Сообщений: 656 Регистрация: 01.01.1970	#2 10.04.2017 19:49:18 Взялся б только с макросом сделать

Dima S Пользователь Сообщений: 2063 Регистрация: 01.01.1970	#3 10.04.2017 21:24:22 доп. столбец. Прикрепленные файлы Таблица1.xlsx (12.44 КБ)

_Igor_61 Пользователь Сообщений: 3007 Регистрация: 18.07.2016	#4 10.04.2017 21:28:10 И тут две минуты назад с доп.столбцом: http://www.excelworld.ru/forum/2-33219-1

VideoAlex Пользователь Сообщений: 656 Регистрация: 01.01.1970	#5 10.04.2017 22:40:17 Не, ну с доп столбцом не интересно ж

Юрий М

Модератор

Сообщений: 61037 Регистрация: 14.09.2012

Контакты см. в профиле

10.04.2017 23:30:33

1. Уберите привязку ЧекБоксов к ячейкам.
2. Обоим ЧекБоксам назначьте этот макрос:

Код

Sub Macro1()
Dim RW As Long
    RW = CLng(Split(ActiveSheet.Shapes(Application.Caller).OLEFormat.Object.TopLeftCell.Address, "$")(2)) + 1
    If ActiveSheet.Shapes(Application.Caller).OLEFormat.Object.Value = 1 Then
        Cells(RW, 4) = Date
    Else
        Cells(RW, 4) = ""
    End If
End Sub

TMD Пользователь Сообщений: 74 Регистрация: 19.03.2018	#7 20.03.2018 12:46:02 Заранее извиняюсь за возможно вопрос не в тему, но заметил что автор в таблице использует чекбоксы в умной таблице, а как можно сделать что бы чекбоксы с определенным макросом (например копирования нескольких определенных колонок строки на которой стоит чекбокс на другой лист) появлялись автоматически при создании новой строчки умной таблицы? Заранее благодарен за ответ