Question : Excel VBA sans un mois

Salut Experts

I ont ce macro qui ajoute un rendez-vous de MS Outlook basé sur la cellule choisie d'Excel (qui est une date).  Cela fonctionne OK.

As que vous verrez, la ligne suivante ensembles le début de rendez-vous à avoir lieu à 8h du matin, 31 jours avant la date d'ActiveCell.  

. Début = ActiveCell.Value - 31 + TimeValue (« 8h00 : est-ce que 00 ») question du

My, comment j'est peut changer cela pour être d'UN MOIS avant la date d'ActiveCell plutôt que 31 jours ?  De cette façon, si la date d'ActiveCell est 24/3/2011. Le début sera 24/2/2011.

Thanks

Will
 class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
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 " de l'id= " codeSnippet953527 de
class= de

Réponse : Excel VBA sans un mois

Pour obtenir la date il y a de « un mois », employer ceci :
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 :

Substrater Set_Outlook_Reminder ()
Obscurcir l'objOutlook comme objet
Obscurcir l'objAppt comme objet
Obscurcir l'objNamespace comme objet
Obscurcir l'objFolder comme objet
 
Feuilles de travail (« base de données de client »). Activer
 
    Placer l'objOutlook = le CreateObject (« Outlook.Application »)
    
    Placer l'objNamespace = l'objOutlook.GetNamespace (« MAPI »)
    Placer l'objFolder = l'objNamespace.GetDefaultFolder (9)
    Placer l'objAppt = l'objFolder.Items.Add 'créent l'article de tâche
    Avec l'objAppt
        . Début = DateAdd (« m », 1, ActiveCell.Value) + TimeValue (« 8h00 : 00 »)
        . Extrémité =. Début + TimeValue (« 0h30 : 00 »)
        . Sujet = « facture » + ActiveCell.Offset (- 2, 0). Valeur
        . Endroit = ""
        . Corps = ""
        .BusyStatus = olBusy
        .ReminderMinutesBeforeStart = 120
        .ReminderSet = rectifient
        . Économiser
    Finir avec

Placer l'objAppt = rien
Placer l'objFolder = rien
Placer l'objNamespace = rien
Placer l'objOutlook = rien

MsgBox « avec succès supplémentaire aux perspectives »

Sous-marin d'extrémité
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us