Vraag : Excel VBA minus één maand

Hallo heeft Experts

I deze die macro die een benoeming van MS Outlook toevoegt op de geselecteerde Cel van Excel (die een datum is) wordt gebaseerd.  Het werkt OK.

As u, de volgende lijnreeksen het benoemingsbegin 8am, 31 dagen vóór de datum zult zien bedragen ActiveCell.  

. Begin = ActiveCell.Value - 31 + TimeValue („08: 00: 00“)/>My vraag

Thanks

Will
 zijn
" codeBody " 
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 ()
Schemerige objOutlook als Voorwerp
Schemerige objAppt als Voorwerp
Schemerige objNamespace als Voorwerp
Schemerige objFolder als Voorwerp
 
Aantekenvellen (het „Gegevensbestand van de Klant“). Activeer
 
    Plaats objOutlook = CreateObject („Outlook.Application“)
    
    Plaats objNamespace = objOutlook.GetNamespace („MAPI“)
    Plaats objFolder = objNamespace.GetDefaultFolder (9)
    De reeks objAppt = objFolder.Items.Add 'leidt taak tot punt
    Met objAppt
        . Begin = ActiveCell.Value - 31 + TimeValue („08: 00: 00“)
        . Eind =. Begin + TimeValue („00: 30: 00“)
        . Onderwerp = „Rekening“ + ActiveCell.Offset (- 2, 0). Waarde
        . Plaats = ""
        . Lichaam = ""
        .BusyStatus = olBusy
        .ReminderMinutesBeforeStart = 120
        .ReminderSet = Waar
        . Sparen
    Eind met

Reeks objAppt = niets
Reeks objFolder = niets
Reeks objNamespace = niets
Reeks objOutlook = niets

MsgBox „aan Vooruitzichten met succes wordt toegevoegd die“

Sub van het eind

Antwoord : Excel VBA minus één maand

Om de datum van „te krijgen één maand geleden“, gebruik dit:
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 ()
Schemerige objOutlook als Voorwerp
Schemerige objAppt als Voorwerp
Schemerige objNamespace als Voorwerp
Schemerige objFolder als Voorwerp
 
Aantekenvellen (het „Gegevensbestand van de Klant“). Activeer
 
    Plaats objOutlook = CreateObject („Outlook.Application“)
    
    Plaats objNamespace = objOutlook.GetNamespace („MAPI“)
    Plaats objFolder = objNamespace.GetDefaultFolder (9)
    De reeks objAppt = objFolder.Items.Add 'leidt taak tot punt
    Met objAppt
        . Begin = DateAdd („m“, 1, ActiveCell.Value) + TimeValue („08: 00: 00“)
        . Eind =. Begin + TimeValue („00: 30: 00“)
        . Onderwerp = „Rekening“ + ActiveCell.Offset (- 2, 0). Waarde
        . Plaats = ""
        . Lichaam = ""
        .BusyStatus = olBusy
        .ReminderMinutesBeforeStart = 120
        .ReminderSet = Waar
        . Sparen
    Eind met

Reeks objAppt = niets
Reeks objFolder = niets
Reeks objNamespace = niets
Reeks objOutlook = niets

MsgBox „aan Vooruitzichten met succes“ wordt toegevoegd die

Sub van het eind
Andere oplossingen  
 
programming4us programming4us