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

• #11734 m.zmrzlina senior tag m.zmrzlina #11728

  Új Válasz 2011-10-17 18:42:55 #11734

  Ú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

  

  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

• #11729 perfag aktív tag m.zmrzlina #11728

  Új Válasz 2011-10-17 12:47:15 #11729

  Ú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

  

  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.

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