Добрый день! Помогите, пожалуйста, доработать макрос. Суть такая: при включении флажка нужно присвоить ячейке значение 1, при отключении флажка необходимо проверить значение в ячейке с датой - если дата в ячейке дальше сегодняшней, то ячейке D5 присвоить -1, в противном случае 0.
То что смогла сделать:
Файл прилагаю
То что смогла сделать:
| Код |
|---|
Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
Dim smallrng As Range
For Each smallrng In [D5]
smallrng.Value = 1
Next smallrng
Else
If Range("E3").Value > today Then Range("d5").Value = -1
Else
Range("d5").Value = 0
End If
Next
End If
End Sub |
Файл прилагаю
Изменено: - 03.06.2015 14:19:35