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

• #8313 Delila_1 veterán pentium4 #8296

  Új Válasz 2010-09-30 11:16:14 #8313

  Ú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 pentium4 #8296 üzenetére

  Írtam rá egy függvényt.

  Function Minimum(sor As Integer) As Double
  Dim tomb(3), tomb_1(3)
  Dim b As Integer, s As Integer
  
  tomb(0) = Cells(sor, 7)
  tomb(1) = Cells(sor, 12)
  tomb(2) = Cells(sor, 17)
  tomb(3) = Cells(sor, 22)
  
  For b = 0 To 3
  If tomb(b) > 0 Then
  tomb_1(s) = tomb(b)
  s = s + 1
  End If
  Next
  Minimum = Application.Min(tomb_1(0), tomb_1(s - 1))
  End Function

  A szépséghibája, hogy egy üres oszlopba az adatok mellé be kell vinni az =SOR() függvényt, és a Minimum függvényben erre a cellára kell hivatkozni.
  Pl. ha a sor() függvények az AA oszlopban vannak, és a W5-ben akarod megtudni az 5. sor minimumát, akkor a W5-be ezt kell írnod: =minimum(AA5), vagy =minimum(5). Az utóbbinál az a baj, hogy a képlet lemásolásakor az 5-öt minden cellában át kellene írni az aktuális sor számára. Az előbbi képlet "lehúzható".
  Remélem, ezen valaki tud majd javítani. Ha nem, marad a SOR() függvény.

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