Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:
реклама
Настольные мармиты от smartcode.ru для установки в кафе и ресторанах.

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

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 

[ Назад ] [ Оглавление ] [ Далее ]

Оставить комментарий

Комментарий:
можно использовать BB-коды
Максимальная длина комментария - 4000 символов.
 
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог