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

• #17511 m.zmrzlina senior tag Sanyuc #17508

  Új Válasz 2013-04-01 17:48:53 #17511

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

  Első körben csak a módszer miatt aztán ha kell módosítani még lehet faragni:

  Sub szamol()
  For i = 1 To 30
  For Each cella In Selection.Cells
  If cella.Value = i Then
  mennyi = mennyi + 1
  End If
  Next
  Debug.Print "Összesen " & mennyi & " db " & i & " szám található a kijelölt tartományban."
  mennyi = 0
  Next
  End Sub

  Ez a kód az Immediate ablakba írja ki az eredményt, és ki kell jelölnöd azt a tartományt amiben számolni akarsz.

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