Ú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

• #43847 Fferi50 Topikgazda lappy #43845

  Új Válasz 2020-05-05 19:29:36 #43847

  Ú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

  

  Fferi50

  Topikgazda

  válasz lappy #43845 üzenetére

  Szia!
  Némi ellentmondást érzek:
  "De a megjelenítés csak a naptári év 12 hónapja legyen."
  Később pedig:
  " így a 3x12 hónap azaz 36 oszlopban látom januáról- decemberig a hónapokat."
  Most akkor 12 hónapot vagy 3x12 hónapot (amiből a tárgyévi egy része még üres) szeretnél láthatónak?
  Ha jól gondolom, akkor évente egyszer kell ehhez hozzányúlni, akkor, amikor évváltás van. Akkor pedig:
  1. kijelölöd a "felesleges" 12 hónapot és elrejted.
  2. az összegző oszlopod elé beszúrsz 12 új oszlopot és megcsinálod a fejlécét.
  Ez kb. 5 perces munka.
  Üdv.

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