Вопрос : Эксел VBA минус один месяц

Hi Experts

I имеет этот макрос добавляет назначение внешнего вида MS основанное на выбранной клеткой Эксел (будет дата).  Оно работает OK.

As, котор вы увидите, следующий линия комплекты старт назначения, котор нужно быть на 8am, за 31 день до даты ActiveCell.  

. Старт = ActiveCell.Value - 31 + TimeValue («08: 00: 00») вопрос в том, что

My, как могу я изменить то для того чтобы быть ОДИН МЕСЯЦ перед датой ActiveCell довольно чем 31 днем?  Та дорога, если дата ActiveCell 24/3/2011, то. Стартом будет 24/2/2011.

Thanks

Will
 class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
>Sub Set_Outlook_Reminder " class= " id= " codeSnippet953527
class=

Ответ : Эксел VBA минус один месяц

Для того чтобы получить дату «одного месяца тому назад», используйте это:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

Sub Set_Outlook_Reminder ()
Затемните objOutlook как предмет
Затемните objAppt как предмет
Затемните objNamespace как предмет
Затемните objFolder как предмет
 
Рабочий лист («база данных клиента»). Активируйте
 
    Установите objOutlook = CreateObject («Outlook.Application»)
    
    Установите objNamespace = objOutlook.GetNamespace («MAPI»)
    Установите objFolder = objNamespace.GetDefaultFolder (9)
    Установите objAppt = objFolder.Items.Add 'создайте деталь задачи
    С objAppt
        . Старт = DateAdd («m», 1, ActiveCell.Value) + TimeValue («08: 00: 00»)
        . Конец =. Старт + TimeValue («00: 30: 00»)
        . Вопрос = «фактура» + ActiveCell.Offset (- 2, 0). Значение
        . Положение = ""
        . Тело = ""
        .BusyStatus = olBusy
        .ReminderMinutesBeforeStart = 120
        .ReminderSet = True
        . Сохраньте
    Закончитесь с

Установите objAppt = ничего
Установите objFolder = ничего
Установите objNamespace = ничего
Установите objOutlook = ничего

MsgBox «успешно добавленное к внешнему виду»

Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us