web-dev-qa-db-fra.com

"jj/mm/aaaa" format de date dans Excel via vba

J'essaie d'écrire une date au format "jj/mm/aaaa" au format Excel via Excel-vba. Je l'ai atteint en utilisant Cells(1, 1).Value = Format(StartDate, "dd/mm/yyyy"). et ma valeur de cellule est 30/04/2014, ce qui est bien .....

Mais il y a un problème étrange ... Puisque je dois itérer la date de début pour le mois entier en l'ajoutant chaque fois de 1, la valeur suivante est donc 1/5/2014 au lieu de 01/05/2014 jusqu'au 12 de chaque mois 12/5/2014 et à partir du 13 , le mois passe encore à deux chiffres 13/05/2014.... 

Je veux tout en deux chiffres car je dois à nouveau rechercher ces dates en utilisant la méthode Range.Find, dans laquelle je passe la valeur avec "jj/mm/aaaa" fromat.

4
deejay

J? ai compris 

Cellules (1, 1) .Value = StartDate
Cellules (1, 1) .NumberFormat = "jj/mm/aaaa"

Fondamentalement, je dois définir le format de cellule, au lieu de définir la date.

11
deejay

Votre problème est de tenter de changer votre mois en ajoutant 1. 1 dans les séries de dates dans Excel est égal à 1 jour. Essayez de changer votre mois en utilisant ce qui suit:

NewDate = Format(DateAdd("m",1,StartDate),"dd/mm/yyyy")
1
Martin Jackson