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

• #2158 shev7 veterán Dufresne #2151

  Új Válasz 2006-10-27 08:56:10 #2158

  Ú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

  

  shev7

  veterán

  válasz Dufresne #2151 üzenetére

  ha a szamok az A1:A10-ben vannak:
  
  Sub Dufresne()
  Dim osszeg, db As Integer
  osszeg = 0
  darab = 0
  For i = 1 To 10
  If (Cells(i, 1) Mod 2 = 0) Then
  osszeg = osszeg + Cells(i, 1)
  darab = darab + 1
  Cells(3, 3 + darab) = Cells(i, 1)
  End If
  Next i
  Cells(1, 4) = osszeg / darab
  Cells(2, 4) = darab
  End Sub
  
  Akkor a d1-ben lesz az atlag, d2-ben a darabszam d3-tol kezdve pedig sorban a paros szamok.

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