Cuestión : Excel VBA menos un mes

Hola Experts

I tiene esta macro que agregue una cita de MS Outlook basada en la célula seleccionada de Excel (que es una fecha).  Trabaja OK.

As que usted verá, la línea siguiente sistemas el comienzo de la cita a estar en 8am, 31 días antes de la fecha de ActiveCell.  

. Comienzo = ActiveCell.Value - 31 + TimeValue (“08: 00: ¿00”) pregunta del

My soy, cómo puedo cambiar eso para ser UN MES antes de la fecha de ActiveCell algo que 31 días?  Esa manera, si la fecha de ActiveCell es 24/3/2011. El comienzo será 24/2/2011.

Thanks

Will
 class= > " claro " 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

Respuesta : Excel VBA menos un mes

Para conseguir la fecha hace de “un mes”, utilizar esto:
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 ()
Amortiguar el objOutlook como objeto
Amortiguar el objAppt como objeto
Amortiguar el objNamespace como objeto
Amortiguar el objFolder como objeto
 
Hojas de trabajo (“base de datos del cliente”). Activar
 
    Fijar el objOutlook = CreateObject (“Outlook.Application”)
    
    Fijar el objNamespace = objOutlook.GetNamespace (“MAPI”)
    Fijar el objFolder = objNamespace.GetDefaultFolder (9)
    Fijar el objAppt = objFolder.Items.Add 'crean el artículo de la tarea
    Con el objAppt
        . Comienzo = DateAdd (“m”, 1, ActiveCell.Value) + TimeValue (“08: 00: 00”)
        . Extremo =. Comienzo + TimeValue (“00: 30: 00”)
        . Tema = “factura” + ActiveCell.Offset (- 2, 0). Valor
        . Localización = ""
        . Cuerpo = ""
        .BusyStatus = olBusy
        .ReminderMinutesBeforeStart = 120
        .ReminderSet = verdad
        . Ahorrar
    Terminar con

Fijar el objAppt = nada
Fijar el objFolder = nada
Fijar el objNamespace = nada
Fijar el objOutlook = nada

MsgBox “agregado con éxito a la perspectiva”

Submarino del extremo
Otras soluciones  
 
programming4us programming4us