Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 12.08.2008, 13:30   #1
АLексаNдр
Пользователь
 
Регистрация: 11.08.2008
Сообщений: 17
По умолчанию Как привязать макрос к дате?

Задача следующая:

Есть 31 написаный макрос, которые надо запускать по отдельности.
А именно:
Макрос 1 - запускать руками только В ПЕРВЫЙ день месяца
Макрос 2 - запускать руками только ВО ВТОРОЙ день месяца
................................... ................................... ...............
Макрос 30 - запускать руками только В 30-й день месяца.

Как сделать так, что бы например в 12-й день месяца я кликнул на 8-й макрос и он мне начал ругаться, что не тот день?

Вроде задачу разъяснил. Кто поможет - огромное спасибо.
АLексаNдр вне форума
Старый 12.08.2008, 13:48   #2
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Можно так:
Код:
Sub День12()
    День = 12
    iДень = Day(Date)
    If День <> iДень Then 'проверка
        Call MsgBox("Сегодня " & iДень & "-е, этот макрос не запустится !!!" _
                  & vbCrLf & "Не тот  день :) !" _
           , vbExclamation, "Ошибка!")
        Exit Sub
    End If
    'А здесь рабочий код
End Sub
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума
Старый 12.08.2008, 13:49   #3
дмидми
Форумчанин
 
Аватар для дмидми
 
Регистрация: 06.03.2008
Сообщений: 352
Смех Не кто, а что

day(now) поможет.
дмидми вне форума
Старый 12.08.2008, 14:34   #4
АLексаNдр
Пользователь
 
Регистрация: 11.08.2008
Сообщений: 17
По умолчанию

Спасибо огромное!!! Все работает!!!
АLексаNдр вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как привязать ScrollBar к TabSheet в PageControl fen Компоненты Delphi 11 10.04.2012 19:39
Как привязать рисунок к записи в БД? DIBAZOL БД в Delphi 12 17.07.2008 10:29
Помогите написать макрос выбора по дате/времени и сортировке по нужным параметрам rf_dru Microsoft Office Excel 39 04.07.2008 12:36
Привязать TrackBar к MediaPlayer One.Love Общие вопросы Delphi 6 09.02.2008 14:18