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

• #19230 Mutt senior tag the radish #19225

  Új Válasz 2013-10-05 14:39:51 #19230

  Ú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

  

  Mutt

  senior tag

  válasz the radish #19225 üzenetére

  Hello,

  A listából az a szám kell, melyek a kritériumnál kisebb...

  CSE képlettel (C1-ben van a határérték, A oszlopban a számok):
  {=MAX((A:A<C1)*(A:A))}

  Szorzatösszeggel pedig:
  =SZORZATÖSSZEG(MAX((A:A<C1)*(A:A)))

  Ha két szám (C1,C2) közötti legnagyobb kell akkor:
  {=MAX((A:A<C1)*(A:A>C2)*(A:A))}
  =SZORZATÖSSZEG(MAX((A:A<C1)*(A:A>C2)*(A:A)))

  A képletek 0-t adnak vissza ha nincs megfelelő szám!

  üdv.

• #19227 Delila_1 veterán the radish #19225

  Új Válasz 2013-10-05 13:21:26 #19227

  Ú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

  A

  If WorksheetFunction.Max(Range("A:A")) > krit Then

  sor helyesen:

  If WorksheetFunction.Max(hol) > krit Then

• #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