Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Ciclo For Next tra 2 date

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Ciclo For Next tra 2 date

Postdi Statix » 30/06/17 10:01

Ciao a tutti,
ho un piccolo quesito da porvi,
devo fare un ciclo For Next tra 2 date
esempio
mese 3 anno 2001 a mese 6 anno 2017
in questo codice il ciclo Anno è ok
mentre quello del mese dovrebbe incominciare da 3 arrivato a 12 ricominciare da 1 a 12 e ultimo anno finire a 6
Codice: Seleziona tutto
Sub Ciclo()


 For Anno = 2001 To 2017
    Range("L2") = Anno

    For Mese = 1 To 12
      Range("K2") = Mese
      Call Estrazione
     
    Next Mese
 Next Anno
End Sub
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1270
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Sponsor
 

Re: Ciclo For Next tra 2 date

Postdi Anthony47 » 30/06/17 11:47

Cambia approccio; ad esempio:
Codice: Seleziona tutto
Sub cicloYM()
Dim dInit As Date, dEnd As Date, dCurrent As Date
'
dInit = DateSerial(2001, 3, 1)      '<<< Data iniziale (anno, mese, gg)
dEnd = DateSerial(2017, 6, 17)      '<<< Data finale (anno, mese, gg)
'
dCurrent = dInit
Do While dCurrent < dEnd
    Range("L2") = Year(dCurrent)
    Range("K2") = Month(dCurrent)
    dCurrent = Application.WorksheetFunction.EDate(dCurrent, 1)
DoEvents
Loop
End Sub

Le due righe marcate <<< definiscono le date di inizio e fine tramite le due variabili dInit e dEnd

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 17646
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Ciclo For Next tra 2 date

Postdi Statix » 30/06/17 14:53

Ciao Anthony47,
tutto ok grazie.
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1270
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta


Torna a Applicazioni Office Windows


Topic correlati a "Ciclo For Next tra 2 date":


Chi c’è in linea

Visitano il forum: Nessuno e 44 ospiti

cron