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

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