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

• #19226 Delila_1 veterán the radish #19225

  Új Válasz 2013-10-05 13:10:50 #19226

  Ú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

  

  Delila_1

  veterán

  válasz the radish #19225 üzenetére

  Írtam hozzá egy kis makrót. Mivel ez funkció, úgy kell alkalmaznod, mint bármelyik függvényt.
  A cellába, ahol az eredményt akarod megkapni, az

  =Max_1(A1:A7;E1)

  képletet írd be. A képlet 2 paramétere a keresés területe (hol As Range), és a kritérium helye (krit As Range).

  A felsorolt értékeidet az A1:A7 tartományba írtam, a 120-at az E1-be.

  Function Max_1(hol As Range, krit As Range)
  Dim szam As Single, CV As Object
  
  If WorksheetFunction.Max(Range("A:A")) > krit Then
  For Each CV In hol
  If CV < krit And CV > szam Then szam = CV
  Next
  Else
  Max_1 = krit.Value
  End If
  Max_1 = szam
  End Function

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