-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
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 FunctionA 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. -
motinka
tag
válasz
pentium4
#8296
üzenetére
azaz mégis csak bármit írhatsz a 0 forintos termékekhez csak 0-t nem , így ugye nem számitja azt bele a legjobb árba.
Ellenben ha a további cellákba egy olyan képletet írsz ami először megvizsgálja, hogy az adott cella értéke nem szám akkor 0 legyen az érték, amennyiben szám akkor meg végezze el a műveletet.
pl egy ilyen:
Új hozzászólás Aktív témák
- Beköszöntött az űrinternet kora
- Bemutatkozott a HHKB legújabb, Topre kapcsolókkal szerelt billentyűzete
- Formula-1
- Google Pixel 8 Pro - mestersége(s) az intelligencia
- Samsung Galaxy A54 - türelemjáték
- Nintendo Switch 2
- sziku69: Fűzzük össze a szavakat :)
- Azonnali navigációs kérdések órája
- Luck Dragon: Asszociációs játék. :)
- Apple MacBook
- További aktív témák...
- magyar billentyűzet - 136 - Lenovo Legion Pro 7 (16IRX9H) - Intel Core i9-14900HX, RTX 4080
- AKCIÓ! MSI Z77 MPOWER Z77 chipset alaplap garanciával hibátlan működéssel
- Microsoft Surface Pro 9 i5-1245U 16GB 512GB 1 év garancia
- ÁRGARANCIA!Épített KomPhone i5 13400F 16/32/64GB RAM RX 9060 XT 8GB GAMER PC termékbeszámítással
- iPhone 12 Pro 128GB Pacific Blue - 1 ÉV GARANCIA - Kártyafüggetlen, MS3259,100% Akkumulátor
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő

Fferi50
