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

• #17513 m.zmrzlina senior tag Delila_1 #17512

  Új Válasz 2013-04-01 18:11:29 #17513

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Delila_1 #17512 üzenetére

  Te hekkeled a gépemet?

  Sub szamol()
  Cells(1, 27).Value = "szám"
  Cells(1, 28).Value = "darab"
  For i = 1 To 30
  For Each cella In Selection.Cells
  If cella.Value = i Then
  mennyi = mennyi + 1
  End If
  Next
  Cells(i + 1, 27).Value = i
  Cells(i + 1, 28).Value = mennyi
  mennyi = 0
  Next
  End Sub

  Itt van készen majdnem ugyanez,

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