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

• #3009 Delila_1 veterán fap333 #3005

  Új Válasz 2008-01-21 09:57:35 #3009

  Ú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 fap333 #3005 üzenetére

  Másold be az alábbi makrót:

  Sub Atlag()
  Sheets("Munka1").Select
  usor = ActiveSheet.UsedRange.Rows.Count
  uoszlop = ActiveSheet.UsedRange.Columns.Count
  Sheets("Munka2").Select
  For sor = 2 To usor
  Cells(sor, 1).Select
  ActiveCell.FormulaR1C1 = "=AVERAGE(Munka1!RC[" & uoszlop - 3 & _
  "]:RC[" & uoszlop - 1 & "])"
  Next
  End Sub

  A Munka1 lap 3 utolsó oszlopát átlagolja a Munka2 A oszlopába.
  Ha B oszlopba kell az átlag, a Cells(sor,1)-et írd át Cells(sor,2)-re, és az ActiveCell.FormulaR1C1 kezdetű sorban az uoszlop-3 és uoszlop-1 értékeket is növeld eggyel (uoszlop-3 és uoszlop-2).

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