Hirdetés
- Stratégiai biztonsággal védekeznek a dráguló memóriák ellen a gyártók
- Akadozásmentesítő csúcskiterjesztést kapott a Vulkan API
- Titkos Aluminiumot tervez a Google a PC-khez
- Mindenkinél több és erősebb AI gyorsítót ígér Elon Musk
- M.2 csatlakozók terén (is) jónak ígérkezik az MSI közelgő AMD-s alaplapja
-
PROHARDVER!
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
- Projektor topic
- Lexus, Toyota topik
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Apple Watch
- Milyen széket vegyek?
- Nothing Phone 2a - semmi nem drága
- Revolut
- OFF TOPIC 44 - Te mondd, hogy offtopic, a te hangod mélyebb!
- Mini-ITX
- Stratégiai biztonsággal védekeznek a dráguló memóriák ellen a gyártók
- További aktív témák...
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Árváltozás: Deus Ex Human Revolution Collector's Edition
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most Ünnepi áron! :)
- Árváltozás+játék!The Witcher 2 Assassins of Kings Collector's Edition
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- BESZÁMÍTÁS! Apple iPad Pro 13 2024 M4 16GB/2TB WiFi tablet garanciával hibátlan működéssel
- LG 27UL550-W - 27" IPS / 3840x2160 4K / 60Hz 5ms / HDR10 / AMD FreeSync
- Lenovo ThinkPad T14S Gen1 Ryzen5 4650U 16GB Refurbished
- Bomba ár! HP EliteBook 840 G2 - i5-5GEN I 8GB I 500GB I 14" HD+ I Cam I W10 I Garancia!
- ÖNERŐ NÉLKÜL, 12 RÉSZLETRE ELITRO PC BANKMENTES KAMATMENTES RÉSZLETFIZETÉS
Állásajánlatok
Cég: ATW Internet Kft.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi

Fferi50

