Hirdetés
Talpon vagyunk, köszönjük a sok biztatást! Ha segíteni szeretnél, boldogan ajánljuk Előfizetéseinket!
-
Mobilarena
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
-
-
Lehdog
csendes tag
Hálózati meghajtóról próbálod megnyitni a file-t?
Mert ha igen, és a hálózati meghajtóhoz nincs teljes hozzáférésed (csak a meghajtó bizonyos szegmense van bemap-elve), az okozhat ilyen problémát.
Illetve nézd meg az intézőben az eszközök/mappa beállítások menüben a fájltipusok fülben hogy be van e jegyezve az .xls tipus.Leh
-
-
Ögödej
csendes tag
Ááh, ezer köszönet a segítségért mindkettőtöknek!
Nem lett volna gond, ha extra cellák is felhasználásra kerülnek, de dokar megoldása remek
, csak ki kellett javítani a vesszőket pontosvesszőre és a vastagított részen hiányzott az 1-es elől, hogy ''A2=''
=HA(B1=8,HA(A2=1,8,4),HA(B1=4,HA(1,8,2),
HA(B1=2,HA(A2=1,4,1),HA(B1=1,HA(A2=1,2,1),
''ROSSZ KEZDŐ SZÁM''))))
Tehát végül így néz ki, az én celláimra aktualizálva:
=HA(J7=8;HA(G8=1;8;4);HA(J7=4;HA(G8=1;8;2);HA(J7=2;HA(G8=1;4;1);HA(J7=1;HA(G8=1;2;1);''ROSSZ KEZDŐ SZÁM''))))
Azt nem tudtam én, hogy a HA-kat hogyan kell megfelelően egymásba ágyazni... Meg persze még nagyon sok mást sem tudok.
Még egyszer köszönöm a segítséget! ...és segítőkészségetekkel visszaélve
lehet, hogy nemsokára újra segítséget kérek, egy nehezebb feladatban, amiről eddig azt hittem, hogy nem fog menni a megvalósítása excel-ben, de most felcsillant a remény. 
-
-
lapa
veterán
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á.![[kép]](http://lapanet.hu/div/xls/false.JPG "[kép]")
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
, csak ki kellett javítani a vesszőket pontosvesszőre és a vastagított részen hiányzott az 1-es elől, hogy ''A2=''
lehet, hogy nemsokára újra segítséget kérek, egy nehezebb feladatban, amiről eddig azt hittem, hogy nem fog menni a megvalósítása excel-ben, de most felcsillant a remény. 
Új hozzászólás Aktív témák
Fferi50- DOOM - The Dark Ages
- Kínai és egyéb olcsó órák topikja
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- BestBuy topik
- Jelszókezelők 2025-ben: biztonság vagy illúzió?
- Amlogic S905, S912 processzoros készülékek
- Miért álltak az oldalak egy hétig, mi történt?
- Samsung Galaxy Watch7 - kötelező kör
- Itt egy pár fotó az iPhone 17 sorozatról
- Parfüm topik
- További aktív témák...
- Microsoft Windows, Office & Vírusirtók: Akciók, Azonnali Szállítás, Garantált Minőség, Garancia!
- Eladó Steam kulcsok kedvező áron!
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- 27%-OS ÁFÁS SZÁMLA I Jogtiszta Microsoft digitális és fizikai termékek I DIGITALKEYZ.COM
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
Állásajánlatok
Cég: FOTC
Város: Budapest