- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Milyen routert?
- Musk átirányította a Teslának szánt AI-chipeket
- Az AI függővé teszi a bankokat a big tech-től
- Opera böngésző
- Amazon
- Facebook és Messenger
- Nem szavazza meg Musk 56 milliárd dolláros csomagját a norvég állami vagyonalap
- Synology NAS
- Windows 11
-
IT café
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
-
perfag
aktív tag
válasz m.zmrzlina #11728 üzenetére
Á, értem. Kell egy kigyűjtés és minden típusra a minimum-maximum.
Tömbképlettel, makró nélkül, H8-ba beírva, H7 üres kell legyen:
{=INDEX(INDIREKT("$C$5:$C$"&$H$4);HOL.VAN(0;DARABTELI($H$7:H7;INDIREKT("$C$5:$C$"&$H$4));0))}A lista C5-től indul, lehúzható. Ha elfogytak a unique iteme-ek, akkor #HIÁNYZIK üzenetek jönnek, ha nem tetszik, akkor törölhetők.
H4-be az utolsó sort megállapító {=MAX(SOR(C:C)*(C:C<>""))} tömbképlet kell innen, a minimum és maximummal együtt.
[ Szerkesztve ]
-
m.zmrzlina
senior tag
válasz m.zmrzlina #11728 üzenetére
Csak hogy ne maradjon az archívumban hülyeség kijavítatlanul, a makró helyesen:
Sub min_max()
Dim min As Single
Dim max As Single
Dim tipus As String
Dim i As Integer
For i = 1 To Range("A1048576").End(xlUp).Row
Cells(i, 1).Select
tipus = ActiveCell.Value
min = ActiveCell.Offset(0, 1).Value
max = ActiveCell.Offset(0, 1).Value
If Application.WorksheetFunction.CountIf(Range("D:D"), tipus) = 0 Then
Cells(1, 1).Select
Do While ActiveCell.Value <> ""
If ActiveCell.Value = tipus Then
If ActiveCell.Offset(0, 1).Value < min Then
min = ActiveCell.Offset(0, 1).Value
ElseIf ActiveCell.Offset(0, 1).Value > max Then
max = ActiveCell.Offset(0, 1).Value
End If
End If
ActiveCell.Offset(1, 0).Select
Loop
Cells(Range("D1048576").End(xlUp).Row + 1, 4).Value = tipus
Cells(Range("E1048576").End(xlUp).Row + 1, 5).Value = min
Cells(Range("F1048576").End(xlUp).Row + 1, 6).Value = max
End If
Next
End Sub
Új hozzászólás Aktív témák
- Battlefield 2042
- Elektromos autók - motorok
- Szárba szökken a Galaxy Buds 3 Pro
- Luck Dragon: MárkaLánc
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Milyen routert?
- Veszprém és környéke adok-veszek-beszélgetek
- UbiForward24 - Prince of Persia: The Sands of Time Remake csak 2026-ban
- Ubisoft Forward 2024 - Az összes bejelentés egy helyen
- Külpolitika
- További aktív témák...
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen