Compilazione automatica con data e ora con incrementi costanti di 30 minuti

Question

Ciao!

Sono giorni che provo a risolvere questo dilemma:

Ho una colonna A che si chiama DATA E ORA

il formato è g/m/aa h:mm (es. 1/2/10 2:30)

Io vorrei creare una colonna in cui ad ogni riga vi sia un incremento di 30 minuti:

1/2/10 2:30

1/2/10 3:00

1/2/10 3:30

ecc..

Vorrei che excel lo facesse in automatico perche dovrei andare avanti così dal 2010 al 2018. 

Mi potete aiutare??? Grazie infinite

Answer 1

Ciao samu_sett,

Sono giorni che provo a risolvere questo dilemma:

Ho una colonna A che si chiama DATA E ORA

il formato è g/m/aa h:mm (es. 1/2/10 2:30)

Io vorrei creare una colonna in cui ad ogni riga vi sia un incremento di 30 minuti:

1/2/10 2:30

1/2/10 3:00

1/2/10 3:30

ecc..

Vorrei che excel lo facesse in automatico perche dovrei andare avanti così dal 2010 al 2018

Visto che chiedi un soluzione automatica, prova:

• Alt+F11 per aprire l'editor di VBA
• Alt+IM per inserire un nuovo modulo di codice
• Nel nuovo modulo vuoto, incolla il seguente codice:

'=========>>

Option Explicit

'--------->>

Public Sub Tester()

    Dim arrData() As Double

    Dim dTimeInterval As Long

    Dim i As Long

    Const dStartDate As Double = #1/1/2010#       '<<=== Modifica

    Const dEndDate As Double = #1/1/2019#           '<<=== Modifica

    dTimeInterval = (dEndDate - dStartDate) * 24 * 2

    ReDim arrData(1 To dTimeInterval, 1 To 1)

    For i = 0 To dTimeInterval - 1

        arrData(i + 1, 1) = dStartDate + TimeSerial(0, 30, 0) * i

    Next i

    With ActiveSheet

        .Range("A1").Value = "DATA/ORA"

        With .Range("A2").Resize(dTimeInterval)

            .Value = arrData

            .NumberFormat = "dd/mm/yyyy hh:mm"

        End With

    End With

End Sub

'<<=========

• Alt+Q per chiudere l'editor di VBA e tornare a Excel
• Salva il file con l’estensione xlsm
• Seleziona il foglio di interesse
• Alt+F8 per aprire  la finestra di gestione delle macro
• Seleziona Tester
• Esegui

Potresti scaricare il mio file di prova samu_sett20180323.xlsm

===

Regards,

Norman