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

• #17512 Delila_1 veterán m.zmrzlina #17511

  Új Válasz 2013-04-01 18:08:31 #17512

  Ú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 m.zmrzlina #17511 üzenetére

  Második kör, felhasználva a makródat.

  Sub szamol()
  Set ter = Application.InputBox("Jelöld ki a terület:", "Terület bekérése", Type:=8)
  For i = 1 To 30
  For Each cella In ter
  If cella.Value = i Then
  mennyi = mennyi + 1
  End If
  Next
  Cells(1, 22) = "Szám": Cells(1, 23) = "Darabszám"
  Cells(i + 1, 22) = i
  Cells(i + 1, 23) = mennyi
  mennyi = 0
  Next
  End Sub

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