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

• #2343 lapa veterán dokar #2342

  Új Válasz 2007-08-13 23:11:02 #2343

  Ú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 dokar #2342 üzenetére

  hát ez ilyen ''hoztam is meg nem is'' jellegű lesz, de nemtok rájönni mi a hányás baja van.
  
  talán valaki más...
  
  
  röviden: képlettel nekem nem jött össze, gondoltam írok egy fv-t rá.
  
  
  
  először meg kell adni az értékek tartományát, utána a nevek tartományát, utána a kritériumot (ez az aktuális sorban lévő név), legvégül meg az aktuális sorban lévő magasságot (bár ezt valami ofszet fv-nyel kimazsizhattam volna).
  
  működése (pontosabban nem-működése):
  
  berakja a két tartományt tömbbe, majd végigmegy a tömb sorain. eközben nézi, hogy egyezik-e az éppen látott név az aktuális sorban lévővel. ha igen, akkor egy átmeneti változóba elmenti az addigi maximumot. legvégül pedig megnézi, egyezik-e az aktuális sorban lévő magasság a maximummal. ha igen, akkor TRUE, egyébként FALSE.
  
  szóval ez szép és jó, de a rohadésk nem akar elindulni. biztos csak bénázok, mert kisebb részei működtek a teszt során (példál a bla nevű csoda)...
  
  kicsit kuszák a változók, bocs.
  
  Option Base 1
  Dim mimakszarraj, tevagyearraj As Variant
  Dim megyek As Long
  Dim maksz As Long
  
  Function pistievagy(ByRef mimaksz As Range, ByRef tevagye As Range, ByVal hanyasvagy As String, ByVal paszuly As Long) As Boolean
  
  mimakszarraj = mimaksz
  tevagyearraj = tevagye
  
  For megyek = 1 To 9 'UBound(mimaxarraj)
  
  If tevagyearraj(megyek, 1) = hanyasvagy Then
  
  maksz = Max(mimakszarraj(megyek, 1), maksz)
  
  End If
  
  Next megyek
  
  If paszuly = maksz Then
  
  pistievagy = True
  
  Else
  
  pistevagy = False
  
  End If
  
  End Function
  
  '---------------------------------------------------------
  
  Option Base 1
  
  Dim bluraj As Variant
  Function bla(ByVal ble As Long, ByRef blu As Range) As Long
  
  bluraj = blu
  
  For i = 1 To blu.Cells.Count
  
  bla = bla + bluraj(i, 1)
  
  Next i
  
  End Function
  

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