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

• #2184 shev7 veterán Dufresne #2183

  Új Válasz 2006-10-28 15:24:48 #2184

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

  nemtudom minek erre progit irni, de tessek
  
  Sub Dufresne()
  Dim osszeg, db As Integer
  osszeg = 0
  darab = 0
  For i = 1 To 10
  If (i Mod 2 = 0) Then
  osszeg = osszeg + i
  darab = darab + 1
  Cells(3, 3 + darab) = i
  End If
  Next i
  Cells(1, 4) = osszeg / darab
  Cells(2, 4) = darab
  End Sub
  
  
  MOD: akar te is atirhattad volna
  
  [Szerkesztve]

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