Добрый день! Есть дата, в ячейке (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
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
