-
GAMEPOD.hu
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
-
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á.
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 -
Kvázi
csendes tag
-
Ö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. -
Delila_1
Topikgazda
DEC2HEX és HEX2DEC függvényekkel igen.
Ha nincs meg a két függvényed, az Eszközök/Bővítménykezelőben kapcsold be az Analysis ToolPaak-ot. Egy rakás új függvényt ad.
Ha meg ezeket makróban is akarod alkalmazni, az Analysis ToolPaak - VBA-t is jelöld be.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
-
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
[ Szerkesztve ]
-
Új hozzászólás Aktív témák
- Wise (ex-TransferWise)
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- E-roller topik
- Építő/felújító topik
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Vezetékes FEJhallgatók
- Kerékpárosok, bringások ide!
- Autós topik
- Nvidia GPU-k jövője - amit tudni vélünk
- Külföldi rendelések: boltok, fizetés, postázás
- További aktív témák...
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Új, bontatlan World of Warcraft gyűjtői kiadások
- Megmaradt - Eredeti Humble, Choice - Steam kulcsok
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
- Windows Server 2016, 2019, 2022 Standard, Datacenter, Essentials termékkulcsok - MEGA akció!
- Dragon's Dogma 2 Steam kulcs
- Windows 10, 11 Professional, Home, Enterprise licenckulcsok 64, 32 bit - MEGA Akció!
- AVATAR: Frontiers of Pandora
- Office Professional Plus 2013, 2016, 2019, 2021 RETAIL licenckulcsok - MEGA Akció!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs