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

• #2347 matekmatika tag lapa #2343

  Új Válasz 2007-08-14 00:34:55 #2347

  Ú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

  

  matekmatika

  tag

  válasz lapa #2343 üzenetére

  Először készíteni kell egy kis táblázatot a másik mellé, amiben a kritériumok lesznek.
  (Név->Pisti; Név->Géza és Név->Elek)
  
  Majd a következő képletet másold be D3-ba:
  
  =HA(B3=(AB.MAX($B$2:$D$11;1;(HA(C3=''Pisti'';$G$2:$G$3;HA(C3=''Géza'';$H$2:$H$3;$I$2:$I$3)))));''Thrue'';''False'')
  
  vagy ha így jobban látszik:
  
  =HA(B3=(AB.MAX($B$2:$D$11;1;(HA(C3=''Pisti'';$G$2:$G$3;HA(C3=''Géza'';$H$2:$H$3;$I$2:$I$3)))));''Thrue'';''False'')
  
  Majd a cella jobb sarkánál lévő négyzetet megfogva húzd le és másold be az alatta lévő cellákba is.
  
  Ha nem menne: itt a kész táblázat:
  [link]
  
  [Szerkesztve]

• #2344 lapa veterán lapa #2343

  Új Válasz 2007-08-13 23:29:53 #2344

  Ú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

  

  lapa

  veterán

  válasz lapa #2343 üzenetére

  na műx. de hogy mi baja volt a max() fv-nyel, azt nemtom. kicsit parasztos, de a célnak megfelel (alt+f11 --> baloldalt beszúrás --> új modul --> kód beilleszt --> két aposztróf = macskaköröm --> képletet táblába beír (első két paramétert dollárosan ofkorz) --> örül.:
  
  Function pistievagy(ByRef mimaksz As Range, ByRef tevagye As Range, ByVal hanyasvagy As String, ByVal paszuly As Long) As Boolean
  
  mimakszarraj = mimaksz
  tevagyearraj = tevagye
  
  maksz = 0
  
  For megyek = 1 To mimaksz.Cells.Count
  
  If tevagyearraj(megyek, 1) = hanyasvagy And maksz < mimakszarraj(megyek, 1) Then
  
  maksz = mimakszarraj(megyek, 1)
  
  End If
  
  Next megyek
  
  If paszuly = maksz Then
  
  pistievagy = True
  
  Else
  
  pistevagy = False
  
  End If
  
  End Function
  
  [link]
  
  [Szerkesztve]

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