Радиокнопки добавить/исключить дату

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Радиокнопки добавить/исключить дату (Макросы/Sub)

Dmitry_spb

Дата: Вторник, 11.04.2017, 11:46 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый день!

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

Исходный код:
[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

[/vba]

К сообщению приложен файл: Table550.xlsm (18.0 Kb)

Ответить

sboy

Дата: Вторник, 11.04.2017, 12:22 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

Добрый день.
для первой кнопки
[vba]

Код

Sub date_()
Range("D5") = Date
End Sub

[/vba]
для второй
[vba]

Код

Sub clear()
Range("D5") = ""
End Sub

[/vba]

К сообщению приложен файл: 5026526.xlsm (16.5 Kb)

Яндекс: 410016850021169