Excel VBA - Удаление листов в зависимости от даты.
Удаление листов в зависимости от даты.
Q: Как удалить рабочие листы листов в зависимости от даты ?
A: Вот код функции на Excel VBA, который решает данную проблему:
' Function DelSheetByDate ' Удаляет рабочий лист sSheetName в активной рабочей книге, ' если дата dDelDate уже наступила ' В случае успеха возвращает True, иначе - False Public Function DelSheetByDate(sSheetName As String, _ dDelDate As Date) As Boolean On Error GoTo errHandle DelSheetByDate = False ' Проверка даты If dDelDate ' Не выводить подтверждение на удаление Application.DisplayAlerts = False ActiveWorkbook.Worksheets(sSheetName).Delete DelSheetByDate = True Application.DisplayAlerts = True End If Exit Function errHandle: MsgBox Err.Description, vbCritical, "Ошибка №" & Err.Number End Function