Добрый день! Есть дата, в ячейке (D1), синхронизированная с системой. Нужно сделать так, что бы каждый месяц 15-го числа, из ячейки(С2) вычиталась ячейка (В5). Заранее спасибо.
Добрый день! Есть дата, в ячейке (D1), синхронизированная с системой. Нужно сделать так, что бы каждый месяц 15-го числа, из ячейки(С2) вычиталась ячейка (В5). Заранее спасибо.roma008
Думаю, вот таким макросом, вставленным в код раздела "ЭтаКнига". При этом при повторном открытии в тот же день, повторного вычитания происходит не будет (устанавливается значение ЛОЖЬ/ИСТИНА в Е1, при открытии в любой другой день, значение автоматически меняется) [vba]
Код
Private Sub Workbook_Open() Worksheets("Лист1").Activate If Day(Date) = 15 Then If Not Cells(1, 5) Then With Cells(2, 3) .Value = .Value - Cells(5, 2).Value Cells(1, 5).Value = True End With End If Else: Cells(1, 5).Value = False End If End Sub
[/vba]
Думаю, вот таким макросом, вставленным в код раздела "ЭтаКнига". При этом при повторном открытии в тот же день, повторного вычитания происходит не будет (устанавливается значение ЛОЖЬ/ИСТИНА в Е1, при открытии в любой другой день, значение автоматически меняется) [vba]
Код
Private Sub Workbook_Open() Worksheets("Лист1").Activate If Day(Date) = 15 Then If Not Cells(1, 5) Then With Cells(2, 3) .Value = .Value - Cells(5, 2).Value Cells(1, 5).Value = True End With End If Else: Cells(1, 5).Value = False End If End Sub