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

• #8858 Delila_1 veterán Alfonzka77 #8857

  Új Válasz 2010-12-10 16:51:00 #8858

  Ú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 Alfonzka77 #8857 üzenetére

  Ímé:

  Sub Átlag()
  Dim sor As Integer, oszlop As Integer
  Dim k_sor As Integer, összeg As Double
  Dim usor As Integer, uoszlop As Integer
  
  usor = ActiveSheet.UsedRange.Rows.Count
  uoszlop = ActiveSheet.UsedRange.Columns.Count
  sor = 1: k_sor = 1
  For oszlop = 1 To uoszlop
  Do While sor <= usor
  összeg = Cells(sor, oszlop) + Cells(sor + 1, oszlop) + Cells(sor + 2, oszlop)
  Cells(k_sor, oszlop + 10) = összeg / 3
  k_sor = k_sor + 1: sor = sor + 3
  Loop
  k_sor = 1: sor = 1
  Next
  End Sub

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