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

• #1667 lapa veterán milow #1663

  Új Válasz 2006-10-26 22:36:35 #1667

  Ú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

  

  lapa

  veterán

  válasz milow #1663 üzenetére

  relatív. az alábbi a = név, b = összeg oszlopokat feltételez, fejléccel. c és d oszlopok elejébe rakja az eredményt.
  
  Sub top5()
  
  otodik = Application.WorksheetFunction.Large(Range(Cells(2, 2), Cells(65536, 2)), 5)
  j = 0
  For i = 1 To 65536
  If Cells(i, 1).Value = '''' Then
  Exit For
  Else
  If Cells(i, 2).Value >= otodik Then
  j = j + 1
  Cells(j, 3).Value = Cells(i, 1).Value
  Cells(j, 4).Value = Cells(i, 2).Value
  End If
  End If
  Next i
  
  Range(Cells(1, 3), Cells(j, 4)).Sort Key1:=Cells(2, 4), Order1:=xlDescending, Key1:=Cells(2, 3), Order1:=xlAscending, Header:=xlGuess, _
  OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
  DataOption1:=xlSortNormal
  
  End Sub
  

• #1665 Gh0sT addikt milow #1663

  Új Válasz 2006-10-26 22:18:34 #1665

  Ú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

  

  Gh0sT

  addikt

  válasz milow #1663 üzenetére

  Septiben elolvastam, hogy mi lenne a problémád és összedobtam egy kezdetleges táblát, ami elvileg automatikusan megcsinál neked mindent.
  
  - vizsgálja, hogy az A oszlop hány elemet tartalamaz és követi a táblázat bővülését
  - kiválaszthatod, hogy hány legnagyobb elemet szeretnél kikeresni a táblából
  
  Ha nagyon félre értettem a feladatot, akkor sorry. Kicsit fáradt vagyok már...
  
  [link]

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