-
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
-
Fferi50
Topikgazda
válasz
poffsoft
#33797
üzenetére
Szia!
Szép-szép. Csak azt nem értem, miért kell a cella függvényt is belekeverni, ha már egyszer felhasználói függvényt (azaz makrót) írunk, mikor van arra egy értelmes VBA funkció (Workbook.Path), hogy megtudjuk a file elérési útját, ráadásul itt nem zavar be semmilyen más tényező, az utolsó tag az a mappa, amelyikben a fájl van.
Public Function neve() As String
Dim mappa As String
mappa = ThisWorkbook.Path
neve = Split(mappa, "\")(UBound(Split(mappa, "\")))
End FunctionÜdv.
-
-
poffsoft
veterán
válasz
Fferi50
#33795
üzenetére
Nekem eszembe sem jutott volna.
Ezt sikerült összehoznom végül:
Public Function STR_SPLIT(ByVal str As String, ByVal sep As String, Optional ByVal n As Integer = 0)
Dim V() As String
Dim num As Integer
V = Split(str, sep)
num = UBound(V)
If num < n Then STR_SPLIT = "#SOK": Exit Function
If n = 0 Then STR_SPLIT = num Else STR_SPLIT = V(n - 1)
End Functiona képlet pedig:
=STR_SPLIT(CELLA("filenév");"\";STR_SPLIT(CELLA("filenév");"\"))ahol:
=STR_SPLIT(CELLA("filenév");"\")
megadja, hány darabból áll a mappanév,=STR_SPLIT(CELLA("filenév");"\";2)
megadja, hogy a 2. mappa nevét.
-
Fferi50
Topikgazda
válasz
poffsoft
#33791
üzenetére
Szia!
Valószínűleg:
mappa=split(mappa,"\")(ubound(split(mappa,"\")))
Még az jutott eszembe, nem biztos hogy az aktulális könyvtár (ami a curdir() eredménye) ténylegesen megegyezik az éppen megnyitott munkafüzet mappájával, ezért valószínűleg biztosabb lenne az
Activeworkbook.Path használata.Üdv.
-
Traxx
őstag
Sziasztok!
Van egy táblázatom, amit szeretnék "felokosítani". Csináltam egy mintát, ahogyan jelenleg kinéz a táblázat.
A listát az indirekt függvénnyel hívom meg, és ez remekül is működik. Viszont szeretném még tovább szűrni, hogy csak a lemezt vagy a köracélt dobja ki a fémeken belül. Leginkább ez úgy lenne jó, ha a B10-be beírnám a fémet, és pl. a C10-ben még csak alcsoportot tudnék választani (lemez, köracél, stb). Az alcsoportokon belül pedig a képen látható módon a csak abba tartozóak között listából tallóznék. Lehetséges ilyet létrehozni, vagy hamvába holt a projekt?
Nehezítés (ha egyáltalán az), hogy ez a "választós" rész más munkalapon lenne, mint az a lista, ahonnan mazsoláznék.
Köszönöm a segítséget
-
-
nordican
tag
válasz
Fferi50
#33790
üzenetére
Sziasztok, nagyon köszönöm, ehhez kell egy kis idő, hogy feldolgozzam, de igyekszem.
Ez pedig, remélem, az utolsó kérdésem (nem gondoltam, hogy az Excel függőséget tud okozni).
A munkafüzetem sok munkalapból áll, amelyek egy részét nem mindig használom, így elrejtettem. Ha viszont kellenek, szeretném őket felfedni, és nem egyenként. A neten találtam is egy ilyen makrót, amivel mindet fel lehet fedni egyszerre (talán másnak is hasznos lehet, bocs, ha nagyon banális):Sub Minden_munkalapot_felfed()
Dim sh As Worksheet
For Each sh In Sheets
sh.Visible = True
Next sh
End SubKiválóan működik, de: Hogyan lehetne úgy átírni, hogy csak meghatározott munkalapokat fedjen fel? Két munkalapot mindig rejteni szeretnék, mert képletek vannak rajta.
-
Fferi50
Topikgazda
válasz
nordican
#33787
üzenetére
Szia!
Az előttem szólóhoz csatlakozom:
Létrehozol egy nevet a következők szerint: NEVE, a hivatkozásba beírod =CELLA("filenév")
Ezután alábbi tömbképlettel megkapod a mappa nevét:=HELYETTE(KÖZÉP(NEVE;NAGY((KÖZÉP(NEVE;SOR(A1:A50);1)="\")*SOR(A1:A50);2)+1;50);KÖZÉP(NEVE;MAX((KÖZÉP(NEVE;SOR(A1:A50);1)="\")*SOR(A1:A50));50);"")
Ha nem szeretnél nevet létrehozni, akkor a NEVE helyére a képletbe mindenhol beírod a CELLA("Filenév") szöveget.
A tömbképletet Ctrl+Shift+ Enter billentyűkombóval viheted be.
Az A1:A50 tartomány azért szükséges, hogy végig tudjon menni a képlet az egész néven, teljesen mindegy, hogy mi a cellák értéke, hiszen csak a sorszám kell nekünk. Ha hosszabbak az elérési utaid, akkor megnövelheted a tartományt.A képlet első része "eldobja" a mappa neve előtti részt, a helyette függvény pedig eltünteti a mappa név utáni részt.
Az élőfej/élőlábban pedig szerintem maradhat az elérési út.
Makróval a Curdir() adja vissza elérési utat, abból a mappa egy ügyes ciklussal megkapható.
Üdv.
-
Fferi50
Topikgazda
-
nordican
tag
válasz
poffsoft
#33782
üzenetére
Basszus, nem értem, miért fejlécet írtam. Szóval az élőfejre gondoltam. Beraktam oda egy azonosító kódot, aminek a munkalap egyik cellájában automatikusan meg kellene ismétlődnie, de sehogyse tudok rá hivatkozni. Sőt ezt még meg kéne fejelnem azzal, hogy az élőfejben lévő kód mindig annak a mappának a nevét kapja automatikusan, ahol a munkafüzetet tárolom (magyarul a kód egyúttal a mappa neve lenne), mert a munkafüzet egy sablon, amit mindig egy adott mappába teszek, és ott testre szabok. Ha ez utóbbira lenne megoldás, az is nagy könnyebbség lenne, akkor még a hivatkozásról is lemondanék.
-
Fferi50
Topikgazda
Szia!
Sorbarendezed cikkszámonként. Feltételezve, hogy van fejlécet (első sorban az oszlopok nevei):
Ezután a D2 cellába beírod =C2. A D3 cellába pedig =Ha(A3=A2;D2 & ";" & C3;C3).
Ezt a képletet végighúzod a D oszlopon.
Az E2 cellába beírod =HA(A3=A2;"";A2). Ezt a képletet az E oszlopon húzod végig. Ezután a D:E oszlopot másolás irányított beillesztés értéket művelettel átalakítod értékké. Szűrsz az E oszlopra, feltétel üres. Ezeket a sorokat kitörlöd. A D oszlopban ott lesz a kívánt eredmény.
A D oszlopot átmásolod a C oszlopba, utána kitörlöd a D:E oszlopot.Üdv.
-
Rcsi
csendes tag
Üdv!
Nem vagyok nagy excel mágus, viszont össze kell hoznom egy adatbázist. Ehhez kérném a segítségeteket.
A jelenlegi problémám ami miatt nem tudok továbbjutni:Adatbázis adatai:
A cikkszám
B név
C méretAz van, hogy minden egyes termék külön sorban van és adva van hozzá egy méret. Amire nekem szükségem lenne az úgy nézne ki, hogy minden termék (cikkszám) csak egyszer szerepeljen az adatbázisban, és a hozzá tartozó méretek egy cellában a "C" oszlopban legyenek felsorolva.
Nem vagyok biztos benne hogy megoldható, de gondoltam egy próbát megér.Előre is köszi a segítséget!
Excel 2007 Magyar -
-
nordican
tag
válasz
poffsoft
#33777
üzenetére
Köszi, ez az! Igen, munkalapokra gondoltam.
A 10-zel nekem sortörést is csinált, lecseréltem hasraütésszerűen 9-re, és most már egymás mellé mennek a tételek. Újabb kérdés: Ha sok tételből áll az összesített cella, és több sorra csúsznak át, jó lenne, ha automatikusan átméreteződne a cella magassága. próbáltam már az automatikus sormagassággal, sortöréssel és anélkül, de meg se kottyan neki. Erre van ötleted? (Ja, most olvasom, hogy a sortörést írtad is.) -
poffsoft
veterán
válasz
nordican
#33776
üzenetére
munkalapokról beszélsz, nem munkafüzetekről, ugye?
Jó a képleted (&=összefűz), csak még stringként be kell szúrnod a többit:
=Munkafüzet1!A1&", "&Munkafüzet2!B3&"."Ha speciális karaktert (pl. sortörés) is akarsz bele:
=Munkafüzet1!A1&", "&KARAKTER(10)&Munkafüzet2!B3&"." -
nordican
tag
Sziasztok, még mindig ugyanazon az adatbázison dolgozom, lassan kész is vagyok. Még egy kérdésem felmerült: Szeretném, ha két különböző (és két külön munkafüzeten lévő) cella tartalma (a példában A1, B3) automatikusan átmásolódna egy harmadik cellába (a példában D4), de úgy hogy a két cella szövege vesszővel legyen elválasztva.
Pl.
(Munkafüzet1) A1: alma
(Munkafüzet2) B3: körte(Munkafüzet3) D4: alma, körte
A =Munkafüzet1!A1&Munkafüzet2!B3 képlet működik is, csak nekem még egy vessző és egy szóköz is kellene a két elem közé.
Erre van valami képlet? -
poffsoft
veterán
válasz
Fferi50
#33773
üzenetére
Megnyugodtam. Eddig féltem, megint nekem vannak szövegértési nehézségeim.
Kategorikusan havi adatok összevetéséről beszél a kolléga.
Szerintem még mindig az a gondja, hogy hogyan állapítsa meg az adott hónap napjainak számát (vagyis az átlag, median, módusz, stb.) számításához mekkora range-t kell kijelölnie.
Gondolom, perpillanat csak fix 31 cellás vektorokkal tudja a képleteket beírni...
De nem okoskodom tovább, megvárjuk a válaszát -
Fferi50
Topikgazda
válasz
kezdosql
#33772
üzenetére
Szia!
"Egyszeru havi osszeveteseket, nem ertem, mit nem lehet ezen erteni."
Például azt, hogy milyen módon szeretnéd az összehasonlításokat elvégezni. Havi összes értékeket, napi átlagos értéket, átlagtól való eltéréseket, trendeket stb.
Vagy az a kérdésed, hogyan lehetne összehasonlíthatóvá tenni a különböző hónapoknak a hosszából következően eltérő értékeit? Erre pl. egy módszer, hogy az adott hónap napi átlagértékével számolva 30 napos hónapokat veszel, legyen az 28-29-30-31 napos akár. (Erre példa a kamatszámítás egyik módszere.)
Esetleg a havi trendet folytatva kiegészíted a nem 31 napos hónapok adatait becsült adatokkal.
De az is lehet, hogy beletörődsz abba, hogy a hónapok hossza különböző és olyan összehasonlításokat teszel (pl napi átlag), amelynél nem számít, hogy hány napos a hónap.Szerintem hasznos lenne egy-két statisztikai módszerekkel foglalkozó honlap felkeresése, ahol ilyen problémák megoldásának autentikus módjáróll is bizonyára lehet hasznos tanácsokat kapni.
Üdv.
-
kezdosql
tag
-
gregus021
tag
Üdv!
Segítséget szeretnék kérni egy makró létrehozásában!
Egy DVD gyűjteményból szeretnék táblázatot létrehozni, amely adott információkat automatikusan, IMDB adatok szerint cellákba ír ki. Lekérdezéssel sikerült manuálisan létrehoznom egy ilyen táblázatot, mellékeltem is a fájlt, de sajnos nem sikerül automatizálnom a folyamatot.
Készítettem egy makrót, ami megkettőzi a korábbi lekérdezést, egy adott cella értékére változtatja a lekérdezés nevét, majd hozzáfűzi azt a korábbi lekérdezésekhez, de nem sikerült egy adott cella értéke alapján megváltoztatni a lekérdezéshez tartozó linket. A teljesen ideális megoldás az lenne, ha az A oszlopba egy cellában megadott szöveg alapján kerülne a film kézzel beírt, magyar címe, mivel ez nem lekérdezhető IMDB-ről, így a mostani adatok egy oszloppal jobbra csúsznának. A második munkalapon mellékeltem, mi az elképzelés, ahonnan a makró felhasználná az adatokat. Ezek a cellák lehetnek konstansok, minden filmnél átírnám a cellák értékeit, tehát csak a makró futásáig lenne lényeges a tartalmuk.
Mellékeltem egy videóban, manuálisan hogyan adom hozzá a filmeket a listához.
Előre is köszönöm a segítséget! -
_Smooth
senior tag
válasz
Delila_1
#33764
üzenetére
Most kipróbáltam itthon is egy tesztlapon, itt se működik.
A metódus: jobbklikk, "Hivatkozás...", mappa betallóz, enter.
Na ennek az elérési útjában lévő szavak egyikét próbáltam cserélni, nem megy.
A táblákat én csak megörököltem, nem HIPERHIVATKOZÁS függvénnyel készültek (ha esetleg Neked ezért működne).(#33767) poffsoft
Csak képletben engedi, nincs más opció. -
-
-
_Smooth
senior tag
válasz
Delila_1
#33758
üzenetére
Igen, hülyeséget írtam. Nem FKEREST akartam, hanem a ctrl+f, illetve a csere (ctrl+h - megszokásból ctrl+f szoktam használni és átkattintok cserére).
De hiperhivatkozásban így nem fogja cserélni.
Ezért kéne valahogy kinyerni a link mökül a teljes elérési utat egy cellába, ott már működik ez a csere, majd onnan újra linket csinálnék belőle.
De van függvény arra, hogy az elérésiutakat kiszedjem? -
_Smooth
senior tag
Sziasztok!
Adott az alábbi probléma, segítséget/ötletet kérnék.
Excel file-okban hiperhivatkozások, amelyek a könyvtárban lévő egyéb file-okra és könyvtárakra (illetve azok tartalmára) hivatkoznak.
Évváltás miatt a könyvtárak megnevezésében lévő évszámok megváltoztak, így a hivatkozások nem működnek.
Ez igazából kb 7 könyvtárnevet érint, de több száz linket. Nyilván egyszerűbb lenne 2016-ra visszaírni azt a 7 mappát, de az elég suta (főleg, majd 2020-ban).
Inkább kivenném az elnevezésből az évszámot, de ehhez is legalább egyszer újra kellene írni a hivatkozásokat.Van valami lehetőség csoportos frissítésre?
Gondolkoztam olyanon, hogy ha kiolvasható egy cellába, akkor csak FKERES -> csere (és kitörlöm a 2016-okat), majd HIPERHIVATKOZÁS és CELLA függvénnyel visszaírom őket.Mi lenne a módja a hivatkozás kiolvastatásának? Vagy van-e ennél gyorsabb, egyszerűbb megoldás?
Köszi előre is.
-
kikisell
újonc
válasz
poffsoft
#33747
üzenetére
Ennyit lát a kolléga, amit ide beillesztettem képként. A fájl nevét kitakartam, nem publikus, de nem is érdekes, a kiterjesztés azért látszik, ez egy makrós sablon excel fájl.
Szóval egyszerre 1 felhasználó nyitja meg írásra is, azt mondja, a megnyitásnál nincs semmi gond, nem ír ki semmit a fájl, meg tudja nyitni, tud bele írni, csak a mentésnél kiabál vissza. Akik csak olvasásra nyitják meg, mert csak annyi kell nekik, hogy lássák az adatokat, és nyomtatni tudjanak belőle, azok igazából csak 1-1 másolatát nyitják meg, tehát nem is a fő fájlt. Ők időnként ráfrissítenek, hogy lássák a fő fájl aktuális adatait.
Még az jutott eszembe, hogy pont egyszerre megy valakinél a saját másolatának a frissítése a másik felhasználó mentésével és az kavarja össze a fájlt. Most minden esetre kipróbáljuk, ami eszünkbe jut.
Eddig ilyen nem volt, pár éve használjuk már, és most jelentkezik ilyen először. Ami változás történt a rendszeren a kezdetek óta, hogy új az Office csomag. -
-
kikisell
újonc
Sziasztok,
Van valakinek ötlete, mi lehet az alábbi felugró ablak oka, ami a képen látható?
A fájlt többen használják közösen, de csak egy ember használja úgy, hogy szerkesztésre nyitja meg, mindenki más csak a már benne lévő adatokkal dolgozik, nyomtatnak belőle, de nem írnak bele új adatot. Aki szerkesztésre szokta megnyitni, nála mentésnél jelentkezik mostanában ez az üzenet, miközben állítása szerint csak ő van benne a fájlban szerkesztési módban, senki más, és így nem tud rámenteni. Ami eszembe jutott, azoknál a részeknél nem történt olyan módosítás, ami ilyen akadályt csinálna, szóval szívesen fogadom mások tapasztalatait, hátha már valaki találkozott ezzel.
-
#33743
Fferi50
Topikgazda
the radish
#33736
Fferi50
Topikgazda
válasz
the radish
#33736
üzenetére
Szia!
Sub masolos()
Dim sor As Integer
For sor = 1 To 160
Range("A" & sor & ":B" & sor).Copy Destination:=Range("x" & sor)
Application.Wait Now + TimeSerial(0, 0, 3)
DoEvents
Next
End SubA Range("x" & sor) helyére írd a célcella címét.
Üdv.
-
Egy kis segítséget kérnék:
A táblám 3 lényegi sorból állna:
A: név, B egy tetszőleges érték, amit én adok meg, C: egy véletlenszerű sorszám, ami nem változik.
Próbáltam a VEL függvényt, de kiosztotta ugyanazt a számot a harmadik sorba többször, és minden szerkesztésnél változik.
Nekem az kéne, hogy a sorok számával megegyező véletlenszerűen kiosztott érték lenne a C oszlopban és ez az érték állandó lenne.Kompatibilitás: 2007-2016
előre is köszönöm a segítséget.
-
#33738
lappy
őstag
the radish
#33736
lappy
őstag
válasz
the radish
#33736
üzenetére
WaitTime = Now() + TimeValue("00:01:00")
While Now() < WaitTime
DoEvents
Wenda késleltető tag
-
#33736
the radish
senior tag
the radish
senior tag
Sziasztok.
Hosszú idő után újra a segítségetekre szorulok.
Szeretnék összehozni egy makrót, ami az első 160 sor
A:Btartományát egyenként átmásolja, de a másolások között vár 3 másodpercet.Manuálisan ez hosszadalmas lenne, nem tudom, hogy lehetne leegyszerűsíteni.
Előre is köszönöm.
-
-
Fferi50
Topikgazda
válasz
Snoop-y
#33719
üzenetére
Szia!
Az alábbi tömbképlet remélhetőleg megoldja a problémádat.
A képletet a B2 cellába kell beírni, feltételezi, hogy az adatok a 2 sortól kezdődnek a Sheet1 lapon:=IFERROR(INDEX(Sheet1!$F$2:$F$5;MATCH(1;((Sheet1!$C$2:$C$5 & Sheet1!$D$2:$D$5<=$A2&B$1)*(Sheet1!$C$2:$C$5 &Sheet1!$E$2:$E$5>=$A2&B$1));0));"")A tartományok végét, ami nálam most az 5. sor, a saját listád végéhez igazítsd, fontos, hogy mindegyik vége egyforma legyen.
A tömbképletet Shift+Ctrl+ Enter billentyű kombóval lehet bevinni, az Excel kapcsos zárójelbe teszi, a szerkesztőlécen igy látod.
Üdv.
-
Fferi50
Topikgazda
válasz
EmberXY
#33715
üzenetére
Szia!
Bocsánat, teljesen igaza van az Excelnek. Ha modulba illeszted, akkor az utolsó sor nem end if, hanem end sub kell legyen, bárhova is illeszted be. Nem akartalak megszivatni, csak figyelmetlen voltam, sorry
Sub figyelmeztet()
If Application.CountIf(Sheets(jegyzetlap).UsedRange, "n") > 0 Then MsgBox "Elintézetlen tétel van"
End SubHa a Thisworkbook Workbook_Open eseményébe, akkor csak a középső sor kell a megjelenő vázlat közé:
Private Sub Workbook_Open()
If Application.CountIf(Sheets(jegyzetlap).UsedRange, "n") > 0 Then MsgBox "Elintézetlen tétel van"
End SubA korábbi kérdésedre: Ebben a formában csak az egyedülálló "n"-eket keresi (így pl. az igen nem játszik a számolásnál. Ha "n"-t tartalmazó szavakat keresel, akkor "*n*" minden olyan cellát beleszámol, amelyben az n betű előfordul.
Üdv.
-
EmberXY
veterán
válasz
poffsoft
#33691
üzenetére
+ Fferi50:
Nekifutottam, teljes sötétségben, beillesztettem a kódot a megadott módon, de a dokumentum megnyitásánál a következő hibaüzenetet kapom: Compile error: End If without block If.
Kipróbáltam úgy is, hogy a thisworkbook lapon a Workbook és az Open van kiválasztva, oda illesztettem a kódot, ekkor a megnyitásnál az a hibaüzenet, hogy Compile error: Expected End Sub.
Mit csinálhattam rosszul? Rossz helyre tettem, vagy kihagytam valamit?
-
-
nordican
tag
Még egy kérdés jöhet?
Olyan legördülő listát szeretnék, amelyiknél ha a lista nevére kattintok, a hozzátartozó elemek is betöltődnek a listanév alatti cellákba. Szóval van pl.A menü
húsleves
rántott hús
somlóiB menü
tojásleves
szilvás gombóc
almás rétesA legördülő menüben választok A és B menü közül, de egyúttal a hozzátartozó elemek is betöltődnek az alatta lévő cellákba.
-
nordican
tag
válasz
Fferi50
#33705
üzenetére
No, képlet elfogadva, a háttér megváltozott, de nem úgy ahogy én szeretném. Nekem az kéne, hogy üres cellánál legyen háttérszíne a cellának, de ha írunk bele, akkor tűnjön el a háttérszín. Ha pedig van háttérszín, az nyomtatásnál ne látszódjon. Szóval hogy rögtön lehessen látni, hogy milyen cellákat kell kitölteni, de ha ki vannak töltve, akkor már olyan legyen, mint a többi cella. Azt gondoltam, erre sokkal gyakrabban szükség van, semmint hogy az egész internetet feltúrjam a megoldásért.
A fenti angol linken így működik a dolog. Nekem most simán kitöltötte a hátteret, ha van venne szöveg, ha nincs, amit a Kitöltéssel is meg tudok csinálni. Vagy még mindig én b...ok el valamit?
Új hozzászólás Aktív témák
- AMD Navi Radeon™ RX 9xxx sorozat
- One otthoni szolgáltatások (TV, internet, telefon)
- Robotporszívók
- Jövedelem
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Melyik tápegységet vegyem?
- Netfone
- Óra topik
- Flint 2 OFF topik
- További aktív témák...
- PC Game Pass előfizetés
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Antivírus szoftverek, VPN
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Dell Latitude 7320 i5-1145G7 16GB 256GB 1 év garancia
- Xiaomi Redmi Note 14 Pro+ 5G 256GB, Kártyafüggetlen, 1 Év Garanciával
- Bomba ár! Dell Vostro 5490 - i5-10GEN I 16GB I 256SSD I 14" FHD I HDMI I Cam I W11 I Gari!
- Apple iPhone 13 128GB,Újszerű,Dobozával,12 hónap garanciával
- GYÖNYÖRŰ iPhone 13 mini 128GB Blue -1 ÉV GARANCIA -Kártyafüggetlen, MS3884, 100% Akkumulátor
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest