Excel makro za izpis datumov

Odprite nov Excel dokument.

V polje A1 vpišite začetni in v polje A2 končni datum obdobja, ki ga želite izpisati.

Zgoraj kliknite zavihek Razvijalec.

Če možnosti Razvijalec ne vidite, si jo lahko vklopite na način, opisan v lekciji

Priporočamo

Seštevajte s potrditvenimi polji

Ustvarili bomo spisek artiklov, jim določili ceno in ustvarili potrditvena polja, preko katerih bomo seštevali skupno vrednost.

Kliknite Makri.

Vpišite poljubno novo ime za makro, pri čemer naj ta ne vsebuje presledkov.

Kliknite gumb Ustvari.

V funkcijo prilepite spodnjo kodo.

    Dim StartDate As Date
    Dim EndDate As Date
    Dim NoDays As Integer
    
    
    StartDate = Range("A1").Value
    EndDate = Range("B1").Value
    NoDays = EndDate - StartDate + 1
    
    
    Range("A3").Value = StartDate
    
    
    Range("A3").Resize(NoDays).DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:= _
    xlDay, Step:=1, Stop:=EndDate, Trend:=False

Koda v StartDate in EndDate prebere začetni datum iz polj A1 in A2.

Nato izračuna število dni med tema dvema datumoma ter s funkcijo Resize razširi polje A3 na število dni, pri čemer vmesne vrednosti zapolni kronološko.

Sedaj ponovno odprite Makri in kliknite gumb Zaženi.

V celice bodo sedaj po vrsti dodani vsi datumi v izbranem obdobju.