-
GAMEPOD.hu
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
matekmatika
tag
Mielőtt belemélyednénk nagyon a makrózásba, úgy nem jó, hogy felcseréled a megnevezés és érték oszlopokat, aztán mindkettőt kijelölve növekvő sorrenbe rendezed? Mert ugye ekkor az első 5 sorban lesz az 5 legnagyobb értékű.
Ha pedig ragaszkodsz a makróhoz akkor lenne egy kérdésem. Mi történjen akkor, ha mondjuk 5-nél több legnagyobb értékű sor is van? (pl. a 12-es érték a legnagyobb az oszlopban, de ebből van 8db)
[Szerkesztve] -
lapa
veterán
ööö nemtom hogy ez mennyire elég, de ezt a hsz-ed is olvasva eszembe ötlött egy lehetséges megoldás: [link]
1. tábla fejlécek kellenek
2. adatok --> kimutatás --> tábla teljes oszlopai kijelöl (ha később írogatsz hozzá ugye)
3. neveket bal kockába, összegeket jobb kockába húzod a listából (abból lett nálam e és f oszlop)
4. e2 vagy alatta jobb gomb --> mező tulajdonságok --> speciális --> a többit látod.
5. új adatok esetén a kimutatáson jobb gomb --> frissítés -
Gh0sT
addikt
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]Soha nem késő, hogy azzá válj, aki lehettél volna.
-
lapa
veterán
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
Új hozzászólás Aktív témák
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Lemezes Retro PC Játékok
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Ozeki Kft.
Város: Debrecen