Új hozzászólás Aktív témák

• #43848 Delila_1 veterán lappy #43845

  Új Válasz 2020-05-05 19:32:27 #43848

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz lappy #43845 üzenetére

  A makró bekéri a kezdő évet, majd ennek megfelelően az első sorba beírja az éveket, a másodikba a hónapokat. Az évek a hozzájuk tartozó 12 hónap közepén látszanak, bár mindig az első hónap fölötti cellában vannak.

  Sub Ev_Elrendezes()
Dim evek As Integer, honapok As Integer, ev As Integer, honap As Integer
Dim kezdoev As Integer, oszlop As Integer

kezdoev = Application.InputBox("Add meg a kezdő évet", "Év bekérése", , , , , , 2)
evek = Year(Date) - kezdoev + 1
oszlop = 1
For ev = 1 To evek
Cells(1, oszlop) = kezdoev
Range(Cells(1, oszlop), Cells(1, oszlop + 11)).HorizontalAlignment = xlCenterAcrossSelection
For honap = 1 To 12
Cells(2, oszlop) = honap
oszlop = oszlop + 1
Next
kezdoev = kezdoev + 1
Next
End Sub

Új hozzászólás Aktív témák