Questione : Excel VBA meno un mese

Ciao Experts

I ha questa macro che aggiunge un appuntamento di MS Outlook basato sulla cellula selezionata di Excel (che è una data).  Funziona OK.

As che vederete, la seguente linea insiemi l'inizio di appuntamento da essere a 8am, il 31 giorno prima della data di ActiveCell.  

. Inizio = ActiveCell.Value - 31 + TimeValue (“08: 00: 00„) domanda del

My sono, come posso cambiare quello per essere di UN MESE prima della data di ActiveCell piuttosto che il 31 giorno?  Quel senso, se la data di ActiveCell è 24/3/2011. L'inizio sarà 24/2/2011.

Thanks

Will
 class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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 notpretty Set_Outlook_Reminder " del class= " del id= " codeSnippet953527 del
class= del

Risposta : Excel VBA meno un mese

Per ottenere la data “di un mese fa„, usare questo:
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 ()
Oscurare il objOutlook come oggetto
Oscurare il objAppt come oggetto
Oscurare il objNamespace come oggetto
Oscurare il objFolder come oggetto
 
Manuali (“base di dati del cliente„). Attivare
 
    Regolare il objOutlook = CreateObject (“Outlook.Application„)
    
    Regolare il objNamespace = objOutlook.GetNamespace (“MAPI„)
    Regolare il objFolder = objNamespace.GetDefaultFolder (9)
    Regolare il objAppt = objFolder.Items.Add 'generano l'articolo di operazione
    Con objAppt
        . Inizio = DateAdd (“m.„, 1, ActiveCell.Value) + TimeValue (“08: 00: 00„)
        . Estremità =. Inizio + TimeValue (“00: 30: 00„)
        . Oggetto = “fattura„ + ActiveCell.Offset (- 2, 0). Valore
        . Posizione = ""
        . Corpo = ""
        .BusyStatus = olBusy
        .ReminderMinutesBeforeStart = 120
        .ReminderSet = allineano
        . Risparmiare
    Concluder con

Regolare il objAppt = niente
Regolare il objFolder = niente
Regolare il objNamespace = niente
Regolare il objOutlook = niente

MsgBox “aggiunto con successo alla prospettiva„

Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us