Hozzászólások
-
Szia!
Hány fájl?
Milyen formátumban vannak?
Egy mappában vannak?
—————————-
Rákerestél már a dologra?A PowerQuery tud mappából összefűzni fájlokat.
Új lekérdezés->Fájlból->mappából.Ha Excel fáljokról van szó, akkor az még fontos, hogy csak egy munkalap legyen bennük, vagy mindegyikben az első legyen a kérdéses munkalap, és a munkalapokat ugyanúgy hívják minden munkafüzetben.
Imre
Szia!
Mit szeretnél eredménként?
Színezze őket, vagy külön lista?A külön listához képezni kell a három oszlop gyedi elemeit, és mindegyik mellé egy DARABTELI (COUNTIF) függvény a 3 oszlopra.
A azinezéshez feltetelws formazas ugyanezzel a függvénnyel.
Imre
Gondolom az a cél, hogy bármennyi alkategória lehessen.
Ha már így struktúrálod az adatokat és nem teszed külön oszlopba a kategória neveket, akkor viszont meg kell különböztetned az alkategóriákat a többi bejegyzéstől, amiket x-el jelöltél.Például a végükre írnék egy spec karaktert, mondjuk egy kötőjelet. (Édesség -, Borok -, Testápolók -, stb…)
Majd az összes kitöltött cella számából kivonjuk a kötójelre végződők számát.
És akkor a képlet így nézne ki:=DARAB2(M9:M98)-DARABTELI(M9:M98;"*-")Imre
Szia!
A password dolog így nem kerülhető meg.
Az a biztonságos, ha egy inputbox-ban megkérdezed a jelszót, és nem kerül bele a kódba.Tehát:
Private Sub Workbook_Open() Dim v as string v=inpubox("Jelszó:") Sheets("mlap1").Unprotect Password:=v stb..., mindenhol a v-t beírva End SubA frissítés végén a hibaüzenet lehet, hogy azért lehet, mert a frissítés esetleg még nem fejeződött teljesen be.
próbáld ki, hogy a RefreshAll sor után írsz egyApplication.Wait(Now + TimeValue("0:00:5"))Ez 5 másodpercet vár, mielőtt tovább futna. Addig mehet a frissítés a háttérben.
???Ha ez nem menne, akkor próbáld meg azt, hogy a kapcsolatoknál kézzel kikapcsolod a „Frissítés a háttérben” opciót.
Adatok->kapcsolatok->Tulajdonságok->Háttérfrissítés engedélyezése vagy ilyesmi.Ebben az esetben lehet, hogy a Wait sem kell.
???Imre
Szia!
Ez egy 1 dimenziós tömb.
Amikor deklarálod, akkor dinamikus tömbként tedd.
Dim sorszamok() as integer vagy longAmikor értéket akarsz bele tenni, akkor Redim kulcsszóval újradimenzionálhatod.
Ha a már benne lévő elemeket meg akarod őrizni, akkor a Redim Preserve parancs kell.
Összedobtam egy kis példát, ami az első 500 páros számot beírja egy dinamikus tömbbe While ciklussal.
Külön változóban számolja (i), hogy hol tart a számolással, és külön változót növel akkor, ha párosat talál(tombszamlalo). A tömböt csak utóbbi esetben méretezi át, a végén kiírja a tömb méretét.Sub tomb_proba() Dim sorszamok() As Long Dim i As Integer Dim tombszamlalo As Integer i = 0 tombszamlalo = 0 Do While i <= 1000 If i Mod 2 = 0 Then ReDim Preserve sorszamok(tombszamlalo) sorszamok(tombszamlalo) = i tombszamlalo = tombszamlalo + 1 End If i = i + 1 Loop MsgBox UBound(sorszamok) End SubA tömb rendezése már érdekesebb, mert a tömbökön nincs natív SORT metódus a VBA-ban.
Tehát vagy magadnak kell egy rendezést írni (nyilván csak keresni kell egyet a neten), vagy megpróbálod használni a .NET Core libet, azon belül azArrayList konstrukciót.
Erre leírást itt találsz:
http://www.snb-vba.eu/VBA_Arraylist_en.htmlA bal oldali tartalomjegyzékben van rendezés témakör is.
Ez egy szuper dolog.
Ebben az esetben persze a fenti tömböt is ArrayList-ként kell megcsinálni, és az Add metódusal beletenni a sorszámokat.Végül egy felvetés:
ha az egész algoritmust úgy csinálnád meg, hogy lentről lépkedjen felfelé, akkor a tömbbe eleve csökkenő sorrendben lennének a sorszámok nem?
Bár ha a két ciklus egymás után ugyanazon a tartományon megy végig, akkor ugye egymás után lesznek rendezve.
És ha csak egy ciklust csinálsz és vagy feltétellel nézel két dolgot?
Vagy az első ciklus változtat valamit az adatokon?Imre
Örülök, ha tudtam segíteni.
A cikket nem most ígérem, de sort fogok rá keríteni, mert nem először jött elő.
Nézz rá néha az oldalra, vagy majd jön egy hírlevél, esetleg a Facebook oldal + az oldal követőinek hírfolyamában.Ha van korábbi Excel verziód, az is fog futni Win 10-en, nincs olyan, hogy Excel for Win10 🙂
Az üres cella probléma csak eseménykezelő makróval (change esemény) lenne megoldható, de ott meg pláne gond lesz, mert az Excel makrók és a LibreOffice (vagy hasonló) makrók nem teljesen kompatibilisek.
Úgyhogy ezt kézzel kell csinálnod, vagy utánanézel.
Imre
Szia!
Ez már egy speciálisabb eset, de van rá megoldás, csak keresni kell 🙂
Én pl. többek között itt találtam:
https://www.mrexcel.com/forum/excel-questions/553903-count-unique-values-filtered-column.htmlA használt képlet elég bonyolult, nem elemeztem.
=SUM(IF(FREQUENCY(IF(SUBTOTAL(3,OFFSET(A9,ROW(A9:A42)-ROW(A9),,1)), IF(A9:A42<>"",MATCH(A9:A42,A9:A42,0))),ROW(A9:A42)-ROW(A9)+1),1))A képlet nyilván tömbképlet (CSE), a tartomány a képlet szerint az A9:A42-ben van, ezt módosítsd értelemszerűen.
Ezen kívül a függvények neveit magyarra, a vesszőket pontosvesszőre kell változtatni, ha magyar Excelen dolgozol.Hozzátenném még, hogy Excel 2013 óta az egyedi elemszámot a PowerPivot-tal is meg lehet csinálni, semmi tömbképlet.
Imre
Szia!
Sikerült reprodukálnom a problémát.
Ez egészem megdöbbentő.
Ha lesz időm, kipróbálom PowerQuery-vel is, hogy ott igaz-e ez a probléma.A jó hír az, hogy sikerült találnom egy megoldást.
Mielőtt ezt elmondanám, engedd meg, hogy a képletedhez hozzászóljak.
2007 óta nem szokás használni a HA(HIBÁS… szerkezetet, mert így mindenképpen kétszer fut le a keresés.
Mindegy, hogy HOL.VAN vagy FKERES, nagyon nem hatékony. Helyette a HAHIBA függvényt használjuk.
Ez volt az egyik új függvény a 2007-ben.
Olvasd el ezt!Node a fő probléma megoldása az (jobb híján), hogy az INDEX függvényben használni kell az oszlop paramétert is, és azt a fejlécben történő dinamikus kereséssel adjuk meg.
Írtam az INDEX függvényről is nemrég
Tehát 2D keresést kell csinálnod, ami csak a lényeget tekintve kb. így nézne ki:
INDEX(Könyvelés.xlsm!Könyvelés_query; HOL.VAN([@[Bejövő Számlaszám]]; Könyvelés.xlsm!Könyvelés_query[Bizonylatszám];0); HOL.VAN("Bizonylatszám";Könyvelés.xlsm!Könyvelés_query[#Fejlécek];0))Tehát Az INDEX függvény a teljes „Könyvelés_query” táblában keres, és az adatot az annyiadik sorból adja vissza, amit a HOL.VAN megtalált, és az annyiadik oszlopból, ahol a könyvelési tábla fejlécében a „Bizonylatszám” szöveg van.
Ez nekem működött az összerakott demóban.
Imre
Szia!
Megnéztem. A problémát a futár oszlop okozza. Ez nem tudom mi. Talán a csomag?
Ha jól látom, akkor ugyanarra a cikkre futáronként meg akarod ismételni a raktárkészlet információkat.
Ezt natívan Excellel vagy akár Access-el sem tudnám megoldani.A feladat egy szűrés, de mivel a futár információ nincs benne a raktárkészlet táblában, ezért azt csak a cikkszám alapján lehet összefüggésbe hozni a kapott listával. Ez egyszerű. Én speciális szűrővel csinálnám.
De ezután generálni kell bele cikkszámonként ismétlődéseket minden futárhoz.
Ez csak kézzel lehetséges, illetve makróval lehet automatizálni.A csatolt képen van, amit egy irányított szűréssel gyorsan meg lehet csinálni. Ezután a nem ismétlődő cikkszámok elé egy sima Index/Hol.van-al ki lehet szedni az első lapról a Futár infót. Az ismétlődő cikkszámok sorait kellene ezután a lista végére másolni még egyszer,és képezni a Futár adatot elé. Na, ez az, ami probléma.
imre
Hali!
Én úgy csinálnám, hogy betennék egy új oszlopot, és azt kitölteném lefelé úgy, hogy hármasonként növekedjen eggyel.
Ez egy képlet, mondjuk az „A” oszlopba, ami a B oszlop alapján számoz. Ezt írod az A2-be:
=KEREK.FEL(DARAB2($B$2:B2)/3;0)
Majd lehúzod az aljáigHárom egyes, majd három kettes, stb…
Ezután egy PIVOT táblát csinálok, aminek első csoport eleme az A oszlop fejléce, a második pedig a rendezendő oszlop.Így számonként elölről kezdve fogja berendezni a tételeket.
Alakítsd táblázatos formátumúvá.
Vedd ki belőle, ami kell.Imre
