-
Fototrend
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
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
- Vírusirtó, Antivirus VPN kulcsok
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Adobe Előfizetések - Adobe Creative Cloud All Apps, Photography Plan - 12 Hónap